Microsoft Excel

Herbers Excel/VBA-Archiv

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

Mausbewegungen werden erfasst,klick ebenfalls ?

Betrifft: Mausbewegungen werden erfasst,klick ebenfalls ? von: chris b
Geschrieben am: 14.09.2004 20:22:15

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: Mausbewegungen werden erfasst,klick ebenfalls ? von: Olaf
Geschrieben am: 14.09.2004 20:51:48

Rechtsklick, Linksklick, oder welcher?

Olaf


  


Betrifft: AW: Mausbewegungen werden erfasst,klick ebenfalls ? von: chris b
Geschrieben am: 14.09.2004 22:18:47

Hallo Olaf, erst aml danke für die antwort überhaupt.
Jetzt kann ich zumindest davon ausgehen das es eine möglichkeit gibt.
Also Hauptsächlich es würde reichen wenn es den Linksklick erfasst.
Aber wenn nur rchts geht wäre auch schon super ?!
Kannst du mir helfen ?


  


Betrifft: AW: Mausbewegungen werden erfasst,klick ebenfalls ? von: Nils
Geschrieben am: 15.09.2004 22:34:28

Was hats mit Excel zu tun?

Nils


 

Beiträge aus den Excel-Beispielen zum Thema "Mausbewegungen werden erfasst,klick ebenfalls ?"