nocheinmal Mausklicks Systemweit erkennen
15.09.2004 05:21:56
chris
habe dieses mal eine schwere sehr schwere frage und zwar ist es möglich..
ich Zeichne mit folgendem Code den ich hier als Beispiel mit eingefügt habe die Position der Maus 5 Sekunden auf.Mit diesem Beispiel kann ich auch diese 5 Sekunden wieder abspielen lassen.
Jetzt meine frage ist es auch noch zusätzlich irgendwie möglich die Mausklicks zusätzlich mit aufzuzeichnen ?
Ps. Falls es möglich wäre noch einen keylogger einzubauen wäre das auch super ?!Muss aber nicht unbedingt sein.
Vielen Dank im vorraus grüße Christian
Private Declare
Function GetCursorPos Lib "user32" (cPoint As POINTAPI) As Long
Private Declare
Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare
Sub Sleep Lib "kernel32" (ByVal zeit As Long)
Private Type POINTAPI
x As Long
y As Long
End Type
Sub aufzeichnen()
Dim tPoint As POINTAPI
Dim x As Long
Dim y
Dim a
Dim Ende As Single, i As Long
Sleep 500
Open "c:\positionen.txt" For Output As #1
DoEvents
Ende = Timer + 5
Do While Timer <= Ende
i = i + 1
x = GetCursorPos(tPoint)
DoEvents
Print #1, Trim(tPoint.x), Trim(tPoint.y)
' Je kleiner der Wert desto öfter wird Mausposition ausgelesen !
Sleep 1
Loop
Close #1
MsgBox ("ende aufzeichen")
End Sub
Sub abspielen()
Dim x As Long, y As Long, n As Long
On Error GoTo Ende
Open "c:\positionen.txt" For Input As #1 ' Datei zum Einlesen öffnen.
Do While Not EOF(1) ' Auf Dateiende abfragen.
Line Input #1, dats ' Datenzeilen lesen.
x = Left(dats, 5)
y = Right(dats, 5)
'je höher die zeit desto langsammer die abspielung !
Sleep 1
n = SetCursorPos(x, y)
Loop
Close #1 ' Datei schließen.
MsgBox ("fertig")
Ende:
End Sub
Sub löschen()
On Error Resume Next
Kill "c:\positionen.txt"
MsgBox ("Datei wurde gelöscht !"), vbInformation
End Sub