hallo
hab ein prob mit backspace in meiner konsole...
Spoiler anzeigen
#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)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetColor($Edit1,0x00ff00)
;___________________________
settext("test test test")
input()
;___________________________
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func input()
$value = ""
$count = 0
While 1
Select
#cs uninteresant
Case _ispressed("41") And WinGetTitle("")= $gui
$inp = $inp & "a"
$value = $value & $inp
settext($inp)
while _ispressed("41")
Sleep (1)
WEnd
Case _ispressed("42") And WinGetTitle("")= $gui
$inp = $inp & "b"
$value = $value & $inp
settext($inp)
while _ispressed("42")
Sleep (1)
WEnd
Case _ispressed("43") And WinGetTitle("")= $gui
$inp = $inp & "c"
$value = $value & $inp
settext($inp)
while _ispressed("43")
Sleep (1)
WEnd
Case _ispressed("44") And WinGetTitle("")= $gui
$inp = $inp & "d"
$value = $value & $inp
settext($inp)
while _ispressed("44")
Sleep (1)
WEnd
Case _ispressed("45") And WinGetTitle("")= $gui
$inp = $inp & "e"
$value = $value & $inp
settext($inp)
while _ispressed("45")
Sleep (1)
WEnd
Case _ispressed("46") And WinGetTitle("")= $gui
$inp = $inp & "f"
$value = $value & $inp
settext($inp)
while _ispressed("46")
Sleep (1)
WEnd
Case _ispressed("47") And WinGetTitle("")= $gui
$inp = $inp & "g"
$value = $value & $inp
settext($inp)
while _ispressed("47")
Sleep (1)
WEnd
Case _ispressed("48") And WinGetTitle("")= $gui
$inp = $inp & "h"
$value = $value & $inp
settext($inp)
while _ispressed("48")
Sleep (1)
WEnd
Case _ispressed("49") And WinGetTitle("")= $gui
$inp = $inp & "i"
$value = $value & $inp
settext($inp)
while _ispressed("49")
Sleep (1)
WEnd
Case _ispressed("4A") And WinGetTitle("")= $gui
$inp = $inp & "j"
$value = $value & $inp
settext($inp)
while _ispressed("4A")
Sleep (1)
WEnd
Case _ispressed("4B") And WinGetTitle("")= $gui
$inp = $inp & "k"
$value = $value & $inp
settext($inp)
while _ispressed("4B")
Sleep (1)
WEnd
Case _ispressed("4C") And WinGetTitle("")= $gui
$inp = $inp & "l"
$value = $value & $inp
settext($inp)
while _ispressed("4C")
Sleep (1)
WEnd
Case _ispressed("4D") And WinGetTitle("")= $gui
$inp = $inp & "m"
$value = $value & $inp
settext($inp)
while _ispressed("4D")
Sleep (1)
WEnd
Case _ispressed("4E") And WinGetTitle("")= $gui
$inp = $inp & "n"
$value = $value & $inp
settext($inp)
while _ispressed("4E")
Sleep (1)
WEnd
Case _ispressed("4F") And WinGetTitle("")= $gui
$inp = $inp & "o"
$value = $value & $inp
settext($inp)
while _ispressed("4F")
Sleep (1)
WEnd
Case _ispressed("50") And WinGetTitle("")= $gui
$inp = $inp & "p"
$value = $value & $inp
settext($inp)
while _ispressed("50")
Sleep (1)
WEnd
Case _ispressed("51") And WinGetTitle("")= $gui
$inp = $inp & "q"
$value = $value & $inp
settext($inp)
while _ispressed("51")
Sleep (1)
WEnd
Case _ispressed("52") And WinGetTitle("")= $gui
$inp = $inp & "r"
$value = $value & $inp
settext($inp)
while _ispressed("52")
Sleep (1)
WEnd
Case _ispressed("53") And WinGetTitle("")= $gui
$inp = $inp & "s"
$value = $value & $inp
settext($inp)
while _ispressed("53")
Sleep (1)
WEnd
Case _ispressed("54") And WinGetTitle("")= $gui
$inp = $inp & "t"
$value = $value & $inp
settext($inp)
while _ispressed("54")
Sleep (1)
WEnd
Case _ispressed("55") And WinGetTitle("")= $gui
$inp = $inp & "u"
$value = $value & $inp
settext($inp)
while _ispressed("55")
Sleep (1)
WEnd
Case _ispressed("56") And WinGetTitle("")= $gui
$inp = $inp & "v"
$value = $value & $inp
settext($inp)
while _ispressed("56")
Sleep (1)
WEnd
Case _ispressed("57") And WinGetTitle("")= $gui
$inp = $inp & "w"
$value = $value & $inp
settext($inp)
while _ispressed("57")
Sleep (1)
WEnd
Case _ispressed("58") And WinGetTitle("")= $gui
$inp = $inp & "x"
$value = $value & $inp
settext($inp)
while _ispressed("58")
Sleep (1)
WEnd
Case _ispressed("59") And WinGetTitle("")= $gui
$inp = $inp & "y"
$value = $value & $inp
settext($inp)
while _ispressed("59")
Sleep (1)
WEnd
Case _ispressed("5A") And WinGetTitle("")= $gui
$inp = $inp & "z"
$value = $value & $inp
settext($inp)
while _ispressed("5A")
Sleep (1)
WEnd
case _ispressed("30") And WinGetTitle("")= $gui
$Inp = $inp & "0"
$value = $value & $inp
settext($inp)
while _ispressed("30")=1
sleep(1)
WEnd
case _ispressed("31") And WinGetTitle("")= $gui
$Inp = $inp & "1"
$value = $value & $inp
settext($inp)
while _ispressed("31")=1
sleep(1)
WEnd
case _ispressed("32") And WinGetTitle("")= $gui
$Inp = $inp & "2"
$value = $value & $inp
settext($inp)
while _ispressed("32")=1
sleep(1)
WEnd
case _ispressed("33") And WinGetTitle("")= $gui
$Inp = $inp & "3"
$value = $value & $inp
settext($inp)
while _ispressed("33")=1
sleep(1)
WEnd
case _ispressed("34") And WinGetTitle("")= $gui
$Inp = $inp & "4"
$value = $value & $inp
settext($inp)
while _ispressed("34")=1
sleep(1)
WEnd
case _ispressed("35") And WinGetTitle("")= $gui
$Inp = $inp & "5"
$value = $value & $inp
settext($inp)
while _ispressed("35")=1
sleep(1)
WEnd
case _ispressed("36") And WinGetTitle("")= $gui
$Inp = $inp & "6"
$value = $value & $inp
settext($inp)
while _ispressed("36")=1
sleep(1)
WEnd
case _ispressed("37") And WinGetTitle("")= $gui
$Inp = $inp & "7"
$value = $value & $inp
settext($inp)
while _ispressed("37")=1
sleep(1)
WEnd
case _ispressed("38") And WinGetTitle("")= $gui
$Inp = $inp & "8"
$value = $value & $inp
settext($inp)
while _ispressed("38")=1
sleep(1)
WEnd
case _ispressed("39") And WinGetTitle("")= $gui
$Inp = $inp & "9"
$value = $value & $inp
settext($inp)
while _ispressed("39")=1
sleep(1)
WEnd
Case _ispressed("20") And WinGetTitle("")= $gui
$inp = $inp & " "
$value = $value & $inp
settext($inp)
While _ispressed("20")
Sleep(1)
WEnd
Case _ispressed("be") And WinGetTitle("")= $gui
$inp = $inp & "."
$value = $value & $inp
settext($inp)
While _ispressed("be")
Sleep(1)
WEnd
Case _ispressed("0d") And WinGetTitle("")= $gui
While _IsPressed("0d")
Sleep(1)
WEnd
#ce ExitLoop
Case _ispressed("08") And WinGetTitle("")= $gui;<-backspace
if $count <> 0 then
$text = StringTrimRight($text,1)
GUICtrlSetData($Edit1,$text)
Sleep(100)
$count = $count - 1
Endif
Case _IsPressed("11") And _IsPressed("56") And WinGetTitle("")= $gui
$inp = $inp & ClipGet()
while _IsPressed("56")
Sleep(1)
WEnd
settext($inp)
Case Else
$count = $count -1
EndSelect
$count = $count +1
$Inp = ""
WEnd
Return $value
EndFunc
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
ich will das der benutzer seine eingabe löschen kann aber nicht die von der konsole selbst.
aber irgendwie funktioniert da was nicht:(
wist ihr an was das liegt?
mfg