hallo
meine konsole wächst und wächst:)
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)
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
doch nun hab ich zwei probleme....
das erste ist das ich diesen häslichen blinkenden strich weg haben will, das zweite ist dass der aktuelle text immer im bild sein soll.
desweiteren funktioniert
Case _ispressed("08") And WinGetTitle("")= $gui
$inp = StringTrimRight($inp,1)
settext($inp)
nicht:( und ich weiß nicht an was es liegt.
// an was es leigt das die funktion nicht geht weiß ich jetzt, kann es aber jetzt nimmer beheben...
mfg