oplossing
muis aansturen is eigelijk heel makkelijk
maak een klas aan
csmuisklikken
en zet er de volgende code in
Public Class csMuisKlikken
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down
Public Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up
Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
Public Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up
End Class
plaats nu op de formulier een timer met de naam timer1
plaats nu op de formulier de volgende code
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
csMuisKlikken.mouse_event(csMuisKlikken.MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
csMuisKlikken.mouse_event(csMuisKlikken.MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.S Then
Timer1.Enabled = True
Timer1.Start()
ElseIf e.KeyCode = Keys.E Then
Timer1.Stop()
ElseIf e.KeyCode = Keys.Escape Then
Application.Exit()
End If
End Sub
End Class
ps. hoe kun je tinymce integrieren in .net
(de omgeivng waar je dit bericht mee post)