wie kann ich einstellen, das der Curser immer im Input ist?, bzw. das sobal ich irgendeine eingabe mache, das er dann in das Input geht?
Eingabeauffordderung
-
- [ offen ]
-
Jam00 -
31. Januar 2009 um 14:04 -
Geschlossen -
Erledigt
-
-
GUICtrlSetState($controlid, $GUI_Focus)... man man man benutz doch einfach mal die hilfe wenn man nur schon focus eingiebt kommt das ganz oben
-
Man, ich bin die ganze zeit in der Hilfe, ich hab 4 Stück auf, 2 Normle und 2 UDF-Hilfen, aber wenn man nicht weiß wonach man suchen soll findet man es auch nicht mal eben so!
Wie kann ich prüfen ob irgendeine Taste gedrückt wird? Also z.B. _IsPresst(irgendwas) also das der mir sagt wenn ich irgendeine Taste drücke! So ungefähr wie bei ICQ, da kommt ja immer ein Tastenton wenn man was Drückt!
EDIT: Also EnyKey gibt es sowas?
-
Man, ich bin die ganze zeit in der Hilfe, ich hab 4 Stück auf, 2 Normle und 2 UDF-Hilfen, aber wenn man nicht weiß wonach man suchen soll findet man es auch nicht mal eben so!
Wie kann ich prüfen ob irgendeine Taste gedrückt wird? Also z.B. _IsPresst(irgendwas) also das der mir sagt wenn ich irgendeine Taste drücke! So ungefähr wie bei ICQ, da kommt ja immer ein Tastenton wenn man was Drückt!
EDIT: Also EnyKey gibt es sowas?
_isspresst und enykey, jaja...
ich glaube da gibts ein Event ( ) -
vermutlich kommt man hiermit am weitesten... ist aber glaube ich das gleiche wie _ispressed
-
das ist doch nicht autoit oder? Und einen AnyKey kann ich uach nicht finden!
EDIT: Ich hab enochwas:
Also man kann ja im Edit text makieren und so, und ich wollte, das wenn man irgendwas im Editfeld makiert hat oder so, das sobald man eine eingabe macht, der Curser in das Inputfeld springt! -
guck dir mal die Funktion _isPressed an, also die Deklaration (in Misc.au3)
Da wird das auch benutzt, ich glaub per dllcall. -
was wird benutzt?
-
-
Achso, ja, das benutz diese DLL, gibt es da vieleicht eine DLL die Auch AnyKey kennt?
-
Ich schätze mal das lässt sich damit machen.
[Blockierte Grafik: http://www.windowsvistamagazin.de/screenshots/250x375/2007/10/Anykey_Taste.jpg] -
- Offizieller Beitrag
Schau dir mal im Englischen Forum das an http://www.autoitscript.com/forum/index.php?showtopic=86296 .Da ist die IsPressed_UDF . Da gibt´s auch eine Funktion zur abfrage ob any Key gedrückt wurde .
-
perfeckt danke
-
Spoiler anzeigen
[autoit]#include <EditConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <INet.au3>
#include <_IsPressed_UDF.au3>$Keys = "30|31|32|33|34|35|36|37|38|39|41|42|43|44|45|46|47|48|49|4A|4B|4C|4D|4E|4F|50|51|52|53|54|55|56|57|58|59|5A|BE"
[/autoit] [autoit][/autoit] [autoit]
$sKeys = StringSplit ($Keys,"|")Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
#Region ### START Koda GUI section ### Form=C:\WINDOWS\Form1.kxf
$Form1 = GUICreate("Form1", 648, 308, 250, 203)
GUISetIcon("C:\WINDOWS\system32\shell32.dll", 200)
GUISetBkColor(0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 648, 308, BitOR($ES_AUTOVSCROLL,$ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL), 0)
$Pfad = "C:" & @HomePath & ">"
GUICtrlSetData(-1,$Pfad)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput("", 290, 0,341,19,$ES_AUTOHSCROLL,0)
GUICtrlSetState (-1,$GUI_FOCUS)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Button = GUICtrlCreateButton ("OK",0,0)
GUICtrlSetState (-1,$GUI_HIDE)
Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Pfad = @CRLF & @CRLF & "C:" & @HomePath & ">"
$Pfad2 = "C:" & @HomePath & ">"
GUISetOnEvent($GUI_EVENT_CLOSE, "_ENDE")
GUICtrlSetOnEvent ($Button,"_CMD")
$Befehle = "echo|ipconfig|dir|cd|cls|Help|Exit"
$BefehleB = "Gibt einen Text zurück|zeigt die IP an|zeigt alle Dateinen und Ortner im aktuellen Pfad an|Wechselt das verzeichniss|Löscht den Bildschirminhalt|Zeigt diese Hilfe an|Beendet das Programm"
$sBefehle = StringSplit ($Befehle,"|")
$sBefehleB = StringSplit ($BefehleB,"|")
GUICtrlSetState ($Input1,$GUI_FOCUS)
While 1
If _IsAnyKeyPressed() Then
$State = GUICtrlGetState($Input1)
ToolTip ($State & "," & $GUI_FOCUS)
EndIf
_InputPos()
Sleep(100)
WEndFunc _ENDE()
[/autoit]
Exit
EndFunc ;==>_ENDE
Func _CMD()
_GUICtrlEdit_BeginUpdate($Edit1)
$Fund = False
$Befehl = GUICtrlRead ($Input1)
$sBefehl = StringSplit ($Befehl," ")
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
If IsArray ($sBefehle) Then
For $1 = 1 To $sBefehle[0]
$Suche = StringInStr ($Befehl,$sBefehle[$1],2)
If $Suche > 0 Then
If $sBefehle[$1] = "echo" Then
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Echo gibt einen Text zurück" & @CRLF & "echo [text]" & $Pfad)
Else
$Zeichen = StringLen ($sBefehle[$1])
$Zeichen2 = StringLen ($Befehl)
$Ergebnis = StringRight ($Befehl,$Zeichen2 - $Zeichen - $Suche)
If $Ergebnis <> "" Then
_GUICtrlEdit_AppendText($Edit1,$Ergebnis & $Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,"Syntax Error" & @CRLF & "echo [text]" & $Pfad)
EndIf
EndIf
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "exit" Then
$Status = False
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Beendet das Programm")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
$Status = True
EndIf
EndIf
If $Status = False Then
Exit
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "Help" Then
If $sBefehle[0] = $sBefehleB[0] Then
For $2 = 1 To $sBefehle[0]
_GUICtrlEdit_AppendText($Edit1,@CRLF & $sBefehle[$2] & @TAB & $sBefehleB[$2])
Next
_GUICtrlEdit_AppendText($Edit1,$Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,"Programm hat Datenfehler")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "ipconfig" Then
$Status = False
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Gibt die IP-Adresse von deinem PC zurück")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
$Status = True
EndIf
EndIf
If $Status = False Then
_GUICtrlEdit_AppendText($Edit1,"Deine IP ist:" & @TAB & _GetIP())
_GUICtrlEdit_AppendText($Edit1,$Pfad)
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "cls" Then
$Status = False
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Löscht den Bildschirminhalt")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
$Status = True
EndIf
EndIf
If $Status = False Then
_GUICtrlEdit_SetText($Edit1,"")
_GUICtrlEdit_AppendText($Edit1,$Pfad2)
EndIf
$Fund = True
EndIf
EndIf
Next
EndIf
If $Fund = False Then
_GUICtrlEdit_AppendText($Edit1,"Der Befehl " & $Befehl & " existiert nicht oder kann nicht Gefunden werden" & $Pfad)
EndIf
_Scroll($Edit1)
_GUICtrlEdit_EndUpdate($Edit1)
GUICtrlSetData ($Input1,"")
EndFunc
Func _Scroll($Felt)
$Lines = _GUICtrlEdit_GetLineCount($Felt)
_GUICtrlEdit_LineScroll($Felt, 0, $Lines)
EndFunc ;==>_Scroll
Func _InputPos ()
$Zeichen3 = _GUICtrlEdit_GetTextLen($Edit1)
$Down = _GUICtrlEdit_PosFromChar($Edit1, $Zeichen3 -1)
$Pos = ControlGetPos ($Form1,"",$Input1)
If $Pos[0] <> $Down[0] And $Pos[1] <> $Down[1] Then
GUICtrlSetPos($Input1,$Down[0]+8,$Down[1])
EndIf
EndFuncWarum gibt GuiGetState immer das Gleiche aus? Egal ob der Curser sich am feld befindet oder nicht! $GUI_FOCUS gib 256 zur4ück, ich habe den State auf $GUI_FOCUS warum gibt er mir dann immer 80 zurück? Wie kann ich erfahren, ob der Curser im $Input1 ist oder nicht? Ah, und die UDF hab ich in den Dateianhang gemacht!
-
[autoit]
While 1
[/autoit]
For $i = 1 To 221
$return = DllCall("user32.dll", "int", "GetAsyncKeyState", "int", "0x" & Hex($i, 2))
ConsoleWrite($return[0]&@CRLF)
If $return[0] <> 0 Then MsgBox(0, "", "TASTE GEDRÜCKT")
Next
WEndGUIGetState??? Sone Funktion hab ich garnicht o_O ==> GUICtrlGetState???
[autoit]Global Const $GUI_FOCUS = 256
[/autoit]ist doch wunderbar wenn er 256 ausgiebt???
-
Danke, das haben wir ja schon gelöst Jetzt hatte ich eine Andere Frage!
-
- Offizieller Beitrag
GuiCtrlGetState gibt 80 zurück das heißt @GUI_ENABLE = 64 und $GUI_SHOW = 16 zusammen halt 80. Ob das Control den Focus hat wird nicht zurückgegeben . Wenn du den Focus abfragen willst nimm eher ControlGetFocus .
Edit welche Rückgabewerte GuiCtrlGetState liefert steht aber auch in der Hilfe .
ZitatRemarks
As opposed to GUICtrlRead this function returns ONLY the state of a control enabled/disabled/hidden/show/dropaccepted
-
Okay, danke, hier mal mein Aktuelles Script, falls es euch interesiert!
Spoiler anzeigen
[autoit]#include <EditConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <INet.au3>
#include <_IsPressed_UDF.au3>$Keys = "30|31|32|33|34|35|36|37|38|39|41|42|43|44|45|46|47|48|49|4A|4B|4C|4D|4E|4F|50|51|52|53|54|55|56|57|58|59|5A|BE"
[/autoit] [autoit][/autoit] [autoit]
$sKeys = StringSplit ($Keys,"|")Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
#Region ### START Koda GUI section ### Form=C:\WINDOWS\Form1.kxf
$Form1 = GUICreate("Form1", 648, 308, 250, 203)
GUISetIcon("C:\WINDOWS\system32\shell32.dll", 200)
GUISetBkColor(0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 648, 308, BitOR($ES_AUTOVSCROLL,$ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL), 0)
$Pfad = "C:" & @HomePath & ">"
GUICtrlSetData(-1,$Pfad)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput("", 290, 0,341,19,$ES_AUTOHSCROLL,0)
GUICtrlSetState (-1,$GUI_FOCUS)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Button = GUICtrlCreateButton ("OK",0,0)
GUICtrlSetState (-1,$GUI_HIDE)
Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Pfad = @CRLF & @CRLF & "C:" & @HomePath & ">"
$Pfad2 = "C:" & @HomePath & ">"
GUISetOnEvent($GUI_EVENT_CLOSE, "_ENDE")
GUICtrlSetOnEvent ($Button,"_CMD")
$Befehle = "echo|ipconfig|dir|cd|cls|Help|Exit"
$BefehleB = "Gibt einen Text zurück|zeigt die IP an|zeigt alle Dateinen und Ortner im aktuellen Pfad an|Wechselt das verzeichniss|Löscht den Bildschirminhalt|Zeigt diese Hilfe an|Beendet das Programm"
$sBefehle = StringSplit ($Befehle,"|")
$sBefehleB = StringSplit ($BefehleB,"|")
While 1
$Fucus = ControlGetFocus ($Form1)
If $Fucus <> "Edit2" Then
If _IsPressed ("01") Or _IsPressed ("02") Or _IsPressed ("03") Then
Sleep (0)
ElseIf _IsAnyKeyPressed() Then
GUICtrlSetState ($Input1,256)
EndIf
EndIf
_InputPos()
Sleep(100)
WEndFunc _ENDE()
[/autoit]
Exit
EndFunc ;==>_ENDE
Func _CMD()
_GUICtrlEdit_BeginUpdate($Edit1)
$Fund = False
$Befehl = GUICtrlRead ($Input1)
$sBefehl = StringSplit ($Befehl," ")
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
If IsArray ($sBefehle) Then
For $1 = 1 To $sBefehle[0]
$Suche = StringInStr ($Befehl,$sBefehle[$1],2)
If $Suche > 0 Then
If $sBefehle[$1] = "echo" Then
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Echo gibt einen Text zurück" & @CRLF & "echo [text]" & $Pfad)
Else
$Zeichen = StringLen ($sBefehle[$1])
$Zeichen2 = StringLen ($Befehl)
$Ergebnis = StringRight ($Befehl,$Zeichen2 - $Zeichen - $Suche)
If $Ergebnis <> "" Then
_GUICtrlEdit_AppendText($Edit1,$Ergebnis & $Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,"Syntax Error" & @CRLF & "echo [text]" & $Pfad)
EndIf
EndIf
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "exit" Then
$Status = False
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Beendet das Programm")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
$Status = True
EndIf
EndIf
If $Status = False Then
Exit
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "Help" Then
If $sBefehle[0] = $sBefehleB[0] Then
For $2 = 1 To $sBefehle[0]
_GUICtrlEdit_AppendText($Edit1,@CRLF & $sBefehle[$2] & @TAB & $sBefehleB[$2])
Next
_GUICtrlEdit_AppendText($Edit1,$Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,"Programm hat Datenfehler")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "ipconfig" Then
$Status = False
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Gibt die IP-Adresse von deinem PC zurück")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
$Status = True
EndIf
EndIf
If $Status = False Then
_GUICtrlEdit_AppendText($Edit1,"Deine IP ist:" & @TAB & _GetIP())
_GUICtrlEdit_AppendText($Edit1,$Pfad)
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "cls" Then
$Status = False
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Löscht den Bildschirminhalt")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
$Status = True
EndIf
EndIf
If $Status = False Then
_GUICtrlEdit_SetText($Edit1,"")
_GUICtrlEdit_AppendText($Edit1,$Pfad2)
EndIf
$Fund = True
EndIf
EndIf
Next
EndIf
If $Fund = False Then
_GUICtrlEdit_AppendText($Edit1,"Der Befehl " & $Befehl & " existiert nicht oder kann nicht Gefunden werden" & $Pfad)
EndIf
_Scroll($Edit1)
_GUICtrlEdit_EndUpdate($Edit1)
GUICtrlSetData ($Input1,"")
EndFunc
Func _Scroll($Felt)
$Lines = _GUICtrlEdit_GetLineCount($Felt)
_GUICtrlEdit_LineScroll($Felt, 0, $Lines)
EndFunc ;==>_Scroll
Func _InputPos ()
$Zeichen3 = _GUICtrlEdit_GetTextLen($Edit1)
$Down = _GUICtrlEdit_PosFromChar($Edit1, $Zeichen3 -1)
$Pos = ControlGetPos ($Form1,"",$Input1)
If $Pos[0] <> $Down[0] And $Pos[1] <> $Down[1] Then
GUICtrlSetPos($Input1,$Down[0]+8,$Down[1])
EndIf
EndFunc -
- Offizieller Beitrag
Wird doch langsam. Ein Vorschlag hätte ich noch. Wenn das Prog gestartet wird, befindet sich das Input nicht an der richtigen Stelle. Das solltest du beheben . Und das ganze hat einen Fehler, wenn du gerade im Edit bist und eine Taste drückst , dann wird der Focus zwar auf die Input gesetzt.Aber die Taste die du gedrückt hast nicht in die Input übernommen .
-
Raupi
Das mit dem Input war bei mir richtig, darum hab ich es nicht gemerkt! Und das der das dann nicht schreibt ist mir auch aufgefallen, hab aber keine ahnung wie ich das machen soll! Hier noch mal ein Update:Spoiler anzeigen
[autoit]#include <EditConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <INet.au3>
#include <_IsPressed_UDF.au3>$Keys = "30|31|32|33|34|35|36|37|38|39|41|42|43|44|45|46|47|48|49|4A|4B|4C|4D|4E|4F|50|51|52|53|54|55|56|57|58|59|5A|BE"
[/autoit] [autoit][/autoit] [autoit]
$sKeys = StringSplit ($Keys,"|")Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
#Region ### START Koda GUI section ### Form=C:\WINDOWS\Form1.kxf
$Form1 = GUICreate("CMD-Box", 648, 308, 250, 203)
GUISetIcon("C:\WINDOWS\system32\shell32.dll", 200)
GUISetBkColor(0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 648, 308, BitOR($ES_AUTOVSCROLL,$ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL), 0)
$Pfad = "C:" & @HomePath & ">"
GUICtrlSetData(-1,$Pfad)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput("", 0, 0,341,19,$ES_AUTOHSCROLL,0)
GUICtrlSetState (-1,$GUI_FOCUS)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Button = GUICtrlCreateButton ("OK",0,0)
GUICtrlSetState (-1,$GUI_HIDE)
Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Pfad = @CRLF & @CRLF & "C:" & @HomePath & ">"
$Pfad2 = "C:" & @HomePath & ">"
GUISetOnEvent($GUI_EVENT_CLOSE, "_ENDE")
GUICtrlSetOnEvent ($Button,"_CMD")
$Befehle = "echo|ipconfig|dir|cd|cls|Help|Exit"
$BefehleB = "Gibt einen Text zurück|zeigt die IP an|zeigt alle Dateinen und Ortner im aktuellen Pfad an|Wechselt das verzeichniss|Löscht den Bildschirminhalt|Zeigt diese Hilfe an|Beendet das Programm"
$sBefehle = StringSplit ($Befehle,"|")
$sBefehleB = StringSplit ($BefehleB,"|")
$Zeichen3 = _GUICtrlEdit_GetTextLen($Edit1)
$Down = _GUICtrlEdit_PosFromChar($Edit1, $Zeichen3 -1)
$Pos = ControlGetPos ($Form1,"",$Input1)
GUICtrlSetPos($Input1,$Down[0]+8,$Down[1],648 - $Down[0]-25)
While 1
$Fucus = ControlGetFocus ($Form1)
If $Fucus <> "Edit2" Then
If _IsPressed ("01") Or _IsPressed ("02") Or _IsPressed ("03") Then
Sleep (0)
ElseIf _IsAnyKeyPressed() Then
GUICtrlSetState ($Input1,256)
EndIf
EndIf
_InputPos()
Sleep(100)
WEndFunc _ENDE()
[/autoit]
Exit
EndFunc ;==>_ENDE
Func _CMD()
_GUICtrlEdit_BeginUpdate($Edit1)
$Fund = False
$Befehl = GUICtrlRead ($Input1)
$sBefehl = StringSplit ($Befehl," ")
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
If IsArray ($sBefehle) Then
For $1 = 1 To $sBefehle[0]
$Suche = StringInStr ($Befehl,$sBefehle[$1],2)
If $Suche > 0 Then
If $sBefehle[$1] = "echo" Then
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Echo gibt einen Text zurück" & @CRLF & "echo [text]" & $Pfad)
Else
$Zeichen = StringLen ($sBefehle[$1])
$Zeichen2 = StringLen ($Befehl)
$Ergebnis = StringRight ($Befehl,$Zeichen2 - $Zeichen - $Suche)
If $Ergebnis <> "" Then
_GUICtrlEdit_AppendText($Edit1,$Ergebnis & $Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,"Syntax Error" & @CRLF & "echo [text]" & $Pfad)
EndIf
EndIf
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "exit" Then
$Status = False
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Beendet das Programm")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
$Status = True
EndIf
EndIf
If $Status = False Then
Exit
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "Help" Then
If $sBefehle[0] = $sBefehleB[0] Then
For $2 = 1 To $sBefehle[0]
_GUICtrlEdit_AppendText($Edit1,@CRLF & $sBefehle[$2] & @TAB & $sBefehleB[$2])
Next
_GUICtrlEdit_AppendText($Edit1,$Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,"Programm hat Datenfehler")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "ipconfig" Then
$Status = False
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Gibt die IP-Adresse von deinem PC zurück")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
$Status = True
EndIf
EndIf
If $Status = False Then
_GUICtrlEdit_AppendText($Edit1,"Deine IP ist:" & @TAB & _GetIP())
_GUICtrlEdit_AppendText($Edit1,$Pfad)
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "cls" Then
$Status = False
If $sBefehl[0] >= 2 Then
If $sBefehl[2] = "/?" Then
_GUICtrlEdit_AppendText($Edit1,"Löscht den Bildschirminhalt")
_GUICtrlEdit_AppendText($Edit1,$Pfad)
$Status = True
EndIf
EndIf
If $Status = False Then
_GUICtrlEdit_SetText($Edit1,"")
_GUICtrlEdit_AppendText($Edit1,$Pfad2)
EndIf
$Fund = True
EndIf
EndIf
Next
EndIf
If $Fund = False Then
_GUICtrlEdit_AppendText($Edit1,"Der Befehl " & $Befehl & " existiert nicht oder kann nicht Gefunden werden" & $Pfad)
EndIf
_Scroll($Edit1)
_GUICtrlEdit_EndUpdate($Edit1)
GUICtrlSetData ($Input1,"")
EndFunc
Func _Scroll($Felt)
$Lines = _GUICtrlEdit_GetLineCount($Felt)
_GUICtrlEdit_LineScroll($Felt, 0, $Lines)
EndFunc ;==>_Scroll
Func _InputPos ()
$Zeichen3 = _GUICtrlEdit_GetTextLen($Edit1)
$Down = _GUICtrlEdit_PosFromChar($Edit1, $Zeichen3 -1)
$Pos = ControlGetPos ($Form1,"",$Input1)
If $Pos[0] <> $Down[0] And $Pos[1] <> $Down[1] Then
GUICtrlSetPos($Input1,$Down[0]+8,$Down[1],648 - $Down[0]-25)
EndIf
EndFuncEdit: wie kann ich es machen, das man das Fenster in der Größe verändern kann alos das dann da am Fensteramen die Pfeile erscheinen?
-