Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

nocheinmal Mausklicks Systemweit erkennen

Betrifft: nocheinmal Mausklicks Systemweit erkennen von: chris b
Geschrieben am: 15.09.2004 05:21:56

Hallo Excel Profis,
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

  


Betrifft: AW: nocheinmal Mausklicks Systemweit erkennen von: chris b
Geschrieben am: 15.09.2004 07:20:46

Hallo ExcelProfis,
danke für eure super Hilfe immer wieder.
Dieses mal habe ich es selbst geschafft.
Ich kann jetzt meine Mausbewegungen inclusive Klicks erfassen und aufzeichnen.
Dankeschön !!!


 

Beiträge aus den Excel-Beispielen zum Thema "nocheinmal Mausklicks Systemweit erkennen"