fragen für meine console

#include <GUIConstants.au3>
#include <misc.au3>
Global $text =""
Global $inp =""
$gui="FTPconsole"
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\johannes\desktop\berrechnungsprogs\kodas\pureconsole.kxf
$Form1_1 = GUICreate($gui, 400, 200, 193, 115, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetBkColor(0x008000)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 400, 200, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN), 0)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlCreatePic("C:\Dokumente und Einstellungen\Johannes\Eigene Dateien\Eigene Bilder\FTPconsole.bmp",0,0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetColor($Edit1,0x00ff00)
settext("ziffer:")
$test = input()
Func input()
While 1
Select
Case _ispressed("41") And WinGetTitle("")= $gui
$inp = $inp & "a"
settext($inp)
while _ispressed("41")
Sleep (1)
WEnd
Case _ispressed("42") And WinGetTitle("")= $gui
$inp = $inp & "b"
settext($inp)
while _ispressed("42")
Sleep (1)
WEnd
Case _ispressed("43") And WinGetTitle("")= $gui
$inp = $inp & "c"
settext($inp)
while _ispressed("43")
Sleep (1)
WEnd
Case _ispressed("44") And WinGetTitle("")= $gui
$inp = $inp & "d"
settext($inp)
while _ispressed("44")
Sleep (1)
WEnd
Case _ispressed("45") And WinGetTitle("")= $gui
$inp = $inp & "e"
settext($inp)
while _ispressed("45")
Sleep (1)
WEnd
Case _ispressed("46") And WinGetTitle("")= $gui
$inp = $inp & "f"
settext($inp)
while _ispressed("46")
Sleep (1)
WEnd
Case _ispressed("47") And WinGetTitle("")= $gui
$inp = $inp & "g"
settext($inp)
while _ispressed("47")
Sleep (1)
WEnd
Case _ispressed("48") And WinGetTitle("")= $gui
$inp = $inp & "h"
settext($inp)
while _ispressed("48")
Sleep (1)
WEnd
Case _ispressed("49") And WinGetTitle("")= $gui
$inp = $inp & "i"
settext($inp)
while _ispressed("49")
Sleep (1)
WEnd
Case _ispressed("4A") And WinGetTitle("")= $gui
$inp = $inp & "j"
settext($inp)
while _ispressed("4A")
Sleep (1)
WEnd
Case _ispressed("4B") And WinGetTitle("")= $gui
$inp = $inp & "k"
settext($inp)
while _ispressed("4B")
Sleep (1)
WEnd
Case _ispressed("4C") And WinGetTitle("")= $gui
$inp = $inp & "l"
settext($inp)
while _ispressed("4C")
Sleep (1)
WEnd
Case _ispressed("4D") And WinGetTitle("")= $gui
$inp = $inp & "m"
settext($inp)
while _ispressed("4D")
Sleep (1)
WEnd
Case _ispressed("4E") And WinGetTitle("")= $gui
$inp = $inp & "n"
settext($inp)
while _ispressed("4E")
Sleep (1)
WEnd
Case _ispressed("4F") And WinGetTitle("")= $gui
$inp = $inp & "o"
settext($inp)
while _ispressed("4F")
Sleep (1)
WEnd
Case _ispressed("50") And WinGetTitle("")= $gui
$inp = $inp & "p"
settext($inp)
while _ispressed("50")
Sleep (1)
WEnd
Case _ispressed("51") And WinGetTitle("")= $gui
$inp = $inp & "q"
settext($inp)
while _ispressed("51")
Sleep (1)
WEnd
Case _ispressed("52") And WinGetTitle("")= $gui
$inp = $inp & "r"
settext($inp)
while _ispressed("52")
Sleep (1)
WEnd
Case _ispressed("53") And WinGetTitle("")= $gui
$inp = $inp & "s"
settext($inp)
while _ispressed("53")
Sleep (1)
WEnd
Case _ispressed("54") And WinGetTitle("")= $gui
$inp = $inp & "t"
settext($inp)
while _ispressed("54")
Sleep (1)
WEnd
Case _ispressed("55") And WinGetTitle("")= $gui
$inp = $inp & "u"
settext($inp)
while _ispressed("55")
Sleep (1)
WEnd
Case _ispressed("56") And WinGetTitle("")= $gui
$inp = $inp & "v"
settext($inp)
while _ispressed("56")
Sleep (1)
WEnd
Case _ispressed("57") And WinGetTitle("")= $gui
$inp = $inp & "w"
settext($inp)
while _ispressed("57")
Sleep (1)
WEnd
Case _ispressed("58") And WinGetTitle("")= $gui
$inp = $inp & "x"
settext($inp)
while _ispressed("58")
Sleep (1)
WEnd
Case _ispressed("59") And WinGetTitle("")= $gui
$inp = $inp & "y"
settext($inp)
while _ispressed("59")
Sleep (1)
WEnd
Case _ispressed("5A") And WinGetTitle("")= $gui
$inp = $inp & "z"
settext($inp)
while _ispressed("5A")
Sleep (1)
WEnd
case _ispressed("30") And WinGetTitle("")= $gui
$Inp = $inp & "0"
settext($inp)
while _ispressed("30")=1
sleep(1)
WEnd
case _ispressed("31") And WinGetTitle("")= $gui
$Inp = $inp & "1"
settext($inp)
while _ispressed("31")=1
sleep(1)
WEnd
case _ispressed("32") And WinGetTitle("")= $gui
$Inp = $inp & "2"
settext($inp)
while _ispressed("32")=1
sleep(1)
WEnd
case _ispressed("33") And WinGetTitle("")= $gui
$Inp = $inp & "3"
settext($inp)
while _ispressed("33")=1
sleep(1)
WEnd
case _ispressed("34") And WinGetTitle("")= $gui
$Inp = $inp & "4"
settext($inp)
while _ispressed("34")=1
sleep(1)
WEnd
case _ispressed("35") And WinGetTitle("")= $gui
$Inp = $inp & "5"
settext($inp)
while _ispressed("35")=1
sleep(1)
WEnd
case _ispressed("36") And WinGetTitle("")= $gui
$Inp = $inp & "6"
settext($inp)
while _ispressed("36")=1
sleep(1)
WEnd
case _ispressed("37") And WinGetTitle("")= $gui
$Inp = $inp & "7"
settext($inp)
while _ispressed("37")=1
sleep(1)
WEnd
case _ispressed("38") And WinGetTitle("")= $gui
$Inp = $inp & "8"
settext($inp)
while _ispressed("38")=1
sleep(1)
WEnd
case _ispressed("39") And WinGetTitle("")= $gui
$Inp = $inp & "9"
settext($inp)
while _ispressed("39")=1
sleep(1)
WEnd
Case _ispressed("20") And WinGetTitle("")= $gui
$inp = $inp & " "
settext($inp)
While _ispressed("20")
Sleep(1)
WEnd
Case _ispressed("be") And WinGetTitle("")= $gui
$inp = $inp & "."
settext($inp)
While _ispressed("be")
Sleep(1)
WEnd
Case _ispressed("0d") And WinGetTitle("")= $gui
ExitLoop
Case _ispressed("08") And WinGetTitle("")= $gui
$inp = StringTrimRight($inp,1)
settext($inp)
Sleep(50)
Case _IsPressed("11") And _IsPressed("56") And WinGetTitle("")= $gui
$inp = $inp & ClipGet()
while _IsPressed("56")
Sleep(1)
WEnd
settext($inp)
EndSelect
$Inp = ""
WEnd
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd
func settext($ntext,$crlf=0)
If $crlf = 1 Then
$text = $text & @CRLF & $ntext
ElseIf $crlf = 0 Then
$text = $text & $ntext
EndIf
GUICtrlSetData($Edit1,$text)
EndFunc
;func setmarke($marke,$wert)
;endfunc
#cs Func _replacestate()
$msgstatus = StringReplace(GUICtrlRead($Edit1), "test", "statenew")
GUICtrlSetData($Edit1, $msgstatus)
EndFunc

Func _replacestate1($handle, $searchstring, $replacestring)
If $handle <> "" Or $searchstring <> "" Or $replacestring <> "" Then
$msgstatus = StringReplace(GUICtrlRead($handle), $searchstring, $replacestring)
GUICtrlSetData($Edit1, $msgstatus)
Return 1
Else
Return 0
EndIf
#ce EndFunc