Private Declare Sub mouse_event Lib "user32" _
(ByVal dwflags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_MOVE = &H1
Private Sub fMouseMove(lXAxis As Long, lYAxis As Long)
mouse_event MOUSEEVENTF_MOVE, lXAxis, lYAxis, 0, 0
End Sub
Private Sub Command1_Click()
fMouseMove Text1, Text2
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Ley_ Newbie
Anmeldedatum: 19.12.2006 Beiträge: 3
Verfasst am: 26.12.2006, 04:21
Erzähl mir .. was man damit machen kann oO
deicecoldkilla_ Newbie
Anmeldedatum: 08.12.2006 Beiträge: 15
Verfasst am: 26.12.2006, 04:40
Ley hat Folgendes geschrieben:
Erzähl mir .. was man damit machen kann oO
wieso probierst du es nicht und sihst aber der name sagt doch eig schon alles.
Registrieren
Login
