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 sowie ein Timer.
X As Long
Y As Long Aufzeichnung und Wiedergabe der Mausbewegungen sind nicht abhängig von der Formulargröße, sondern richten sich hier an der Monitorgröße aus.
End Type
Public MouseRecorder() As POINTAPI
Public i As Integer Klicks auf Anwendungen können leider (noch) nicht simuliert werden (wenn jemand eine Lösung kennt, bitte Info...)
Sub Record()
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 diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.