Mouserecorder - Mausbewegungen aufzeichnen und abspielen

Mouserecorder - Mausbewegungen aufzeichnen und abspielen: GetCursorPos, SetCursorPos
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Type POINTAPI Benötigt werden ein Formular, zwei Buttons
X As Long sowie ein Timer.
Y As Long Aufzeichnung und Wiedergabe der Maus-
End Type bewegungen sind nicht abhängig von der
Formulargröße, sondern richten sich hier an
Public MouseRecorder() As POINTAPI der Monitorgröße aus.
Public i As Integer Klicks auf Anwendungen können leider
(noch) nicht simuliert werden (wenn jemand
Sub Record() eine Lösung kennt, bitte Info...)
Select Case frmForm.Command1.Caption
Case "Record" Aufnahme.
i = 0
Erase MouseRecorder Alten Recorder-Inhalt löschen.
frmForm.Command1.Caption = "Stop"
frmForm.Command2.Enabled = False
frmForm.tmrRecord.Enabled = True
Case "Stop" Aufnahme beenden.
frmForm.tmrRecord.Enabled = False
frmForm.Command1.Caption = "Record"
frmForm.Command2.Enabled = True
frmForm.Command1.Enabled = False
frmForm.Caption = "Aufnahme beendet - klicken Sie auf Play..."
frmForm.Command2.SetFocus
End Select
End Sub
Sub Play()
frmForm.tmrRecord.Enabled = True
End Sub
   
Sub Command1_Click() Aufnahme der Mausbewegung.
Record
End Sub
Sub Command2_Click() Wiedergabe der Mausbewegung.
Play
End Sub
Sub tmrRecord_Timer()
Static r As Integer
If Command1.Caption = "Stop" Then Mausbewegungen aufnehmen.
i = i + 1
ReDim Preserve MouseRecorder(i)
GetCursorPos MouseRecorder(i)
Me.Caption = "Aufnahme läuft ..."
Else Mausbewegungen abspielen.
Me.Caption = "Wiedergabe läuft ..."
r = r + 1
If r <= i Then
SetCursorPos MouseRecorder(r).X, MouseRecorder(r).Y Position setzen.
Else
Me.Caption = "Wiedergabe beendet"
Erase MouseRecorder Recorder löschen.
r = 0
tmrRecord.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
Command1.Caption = "Record"
End If
End If
End Sub

Mehr Tipps: Ermitteln, ob der angemeldete Benutzer Administrator ist

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt