[Analyse by sd333221, 12:32]
Code:
Sub tmrlog_Timer()
'N * ref: __vbaExceptHandler
'N * ref: __vbaChkstk
'N * ref: __vbaOnError
'N * API ref: GetForegroundWindow
'N * ref: __vbaSetSystemError
'N * ref: __vbaVarTstNe
'N * API ref: GetForegroundWindow
'N * ref: __vbaSetSystemError
'N * ref: __vbaVarMove
'N * API ref: GetForegroundWindow
'N * ref: __vbaSetSystemError
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaVarTstEq
'N * ref: __vbaFreeVar
'N * ref: __vbaObjSet
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: vbCrLf
'N * ref: __vbaStrCat
'N * ref: __vbaStrMove
'N * ref: vbCrLf
'N * ref: __vbaStrCat
'N * ref: __vbaStrMove
'N * ref: "[no title]"
'N * ref: __vbaStrCat
'N * ref: __vbaStrMove
'N * ref: "["
'N * ref: __vbaStrCat
'N * ref: Time
'N * ref: "]"
'N * ref: "["
'N * ref: Date
'N * ref: "]"
'N * ref: vbCrLf
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaStrVarVal
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObjList
'N * ref: __vbaFreeVarList
'N * ref: __vbaObjSet
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: vbCrLf
'N * ref: __vbaStrCat
'N * ref: __vbaStrMove
'N * ref: vbCrLf
'N * ref: __vbaStrCat
'N * ref: __vbaStrMove
'N * ref: "["
'N * ref: __vbaStrCat
'N * API ref: GetForegroundWindow
'N * ref: __vbaSetSystemError
'N * ref: __vbaHresultCheckObj
'N * ref: "]"
'N * ref: "["
'N * ref: Time
'N * ref: "]"
'N * ref: "["
'N * ref: Date
'N * ref: "]"
'N * ref: vbCrLf
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaVarCat
'N * ref: __vbaStrVarVal
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObjList
'N * ref: __vbaFreeVarList
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (left mouse click) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (right mouse click) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (middle mouse click) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (enter) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (backspace) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (escape) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (delete) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (insert) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (end) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (home) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (tab) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (control) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (start button) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (CNTXK) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (page up) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (page down) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (left arrow) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (up arrow) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (right arrow) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (down arrow) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F1) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F2) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F3) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F4) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F5) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F6) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F7) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F8) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F9) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F10) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F11) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (F12) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "*"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "+"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "."
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "/"
'N * ref: __vbaVarCopy
'N * ref: __vbaVarMove
'N * ref: __vbaVarForInit
'N * ref: __vbaVarAdd
'N * ref: __vbaVarMove
'N * ref: __vbaI4Var
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: __vbaVarCopy
'N * ref: __vbaVarForNext
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: ":"
'N * ref: __vbaVarCopy
'N * ref: ";"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "+"
'N * ref: __vbaVarCopy
'N * ref: "="
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "<"
'N * ref: __vbaVarCopy
'N * ref: ","
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "_"
'N * ref: __vbaVarCopy
'N * ref: "-"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: ">"
'N * ref: __vbaVarCopy
'N * ref: "."
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "?"
'N * ref: __vbaVarCopy
'N * ref: "/"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "="
'N * ref: __vbaVarCopy
'N * ref: "+"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "~"
'N * ref: __vbaVarCopy
'N * ref: "`"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: ")"
'N * ref: __vbaVarCopy
'N * ref: "0"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "!"
'N * ref: __vbaVarCopy
'N * ref: "1"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "="
'N * ref: __vbaVarCopy
'N * ref: "+"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "@"
'N * ref: __vbaVarCopy
'N * ref: "2"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "#"
'N * ref: __vbaVarCopy
'N * ref: "3"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "$"
'N * ref: __vbaVarCopy
'N * ref: "4"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "%"
'N * ref: __vbaVarCopy
'N * ref: "5"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "^"
'N * ref: __vbaVarCopy
'N * ref: "6"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "&"
'N * ref: __vbaVarCopy
'N * ref: "7"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "*"
'N * ref: __vbaVarCopy
'N * ref: "8"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "("
'N * ref: __vbaVarCopy
'N * ref: "9"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "|"
'N * ref: __vbaVarCopy
'N * ref: "\"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: """"
'N * ref: __vbaVarCopy
'N * ref: "'"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "}"
'N * ref: __vbaVarCopy
'N * ref: "]"
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: "{"
'N * ref: __vbaVarCopy
'N * ref: "["
'N * ref: __vbaVarCopy
'N * ref: __vbaVarForInit
'N * ref: __vbaI4Var
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: __vbaI4Var
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * API ref: GetKeyState
'N * ref: __vbaSetSystemError
'N * ref: __vbaI4Var
'N * ref: Chr(
'N * ref: __vbaVarMove
'N * ref: __vbaI4Var
'N * ref: Chr(
'N * ref: LCase(
'N * ref: __vbaVarMove
'N * ref: __vbaFreeVar
'N * ref: __vbaVarForNext
'N * ref: __vbaObjSet
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaVarCat
'N * ref: __vbaStrVarVal
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaFreeStr
'N * ref: __vbaFreeObjList
'N * ref: __vbaFreeVarList
'N * ref: __vbaFreeStrList
'N * ref: __vbaFreeObjList
'N * ref: __vbaFreeVarList
'N * ref: __vbaFreeVarList
'N * ref: __vbaFreeVar
'N * ref: __vbaFreeVar
'N * ref: __vbaFreeVar
End Sub
Man beachte hierbei:
Code:
N * ref: " (right mouse click) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (middle mouse click) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (enter) "
'N * ref: __vbaVarCopy
'N * API ref: GetAsyncKeyState
'N * ref: __vbaSetSystemError
'N * ref: " (backspace) "
'N * ref: __vbaVarCopy
GetAsyncKeyState ist für Tastatureingaben zustaendig,
es sieht stark nach einem Keylogger aus,
da die Funktion eh schon "Sub tmrLOG_Timer()"
heisst.
Lasst die Finger davon ;)