Beiträge von Jam00

Jam00

Wenn ich das Richtig verstehe geht das immer so weiter, oder Kunde1 Kunde2 Kunde3 und so oder? Dann mach es einfach so:

Spoiler anzeigen

[autoit]

$INI = "Test.ini"
$KundenZahl = 2
Global $Text
For $1 = 1 To $KundenZahl
$Read = IniRead ($INI,"Kunden","Kunde" & $1,"")
If $Text <> "" Then
$Text = $Text & "," & $Read
Else
$Text = $Read
EndIf
Next
MsgBox (0,"",$Text)

[/autoit]

Und die INI:

Spoiler anzeigen

[Kunden]
Kunde1=1
Kunde2=2

Jam00

Ist das im Internet oder was?

Wenn nicht kannst du ganz einfacah ControlKlick nehmen!

Jam00

warum speicherst du sie nicht einfach?

Du kannst es ganz einfach mit & machen!

[autoit='Beispiel']

$1 = "1"
$2 = "2"
MsgBox (0,"",$1 & "," & $2)

[/autoit]

Jam00

Okay, den Link kannte ich garnicht!

Jam00

Also irgendwie kapier ich nicht was du meinst!
Kannst ja mal WinClose probieren!

Jam00

Besorg dir doch einfach die Deutschen hilfen, damit kann man viel anfangen! Die kann man sich gluabe ich hier irgedwo runterladen!EDIT: Hier mal der Link

Jam00

Was hast du denn für ein Problem mit dem Fenster? Willst du es schließen oder willst du es sichtbar machen, oder was?

Jam00

peethebee
man, ich hab gegoogelt, aber nix gefuden! Ich bin ja nicht blöde!

@Electron23
Und wie geht das mit AutoIt?

Jam00

Hä? damit kann ich doch was auf einen FTP-Server was laden oder?

Jam00

Kann ich per TCP auch Dateien verschiken? Also nicht nur Text? Sozusagen TCPSendFile oder sowas

Jam00

Raupi
aber echt mal hört doch mal auf mit dem scheiß!

Hier, ich hab es jetzt noch gemacht, das man die Größe verändern kann!

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <INet.au3>
#include <_IsPressed_UDF.au3>

[/autoit] [autoit][/autoit] [autoit]

$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"
$sKeys = StringSplit ($Keys,"|")

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
#Region ### START Koda GUI section ### Form=C:\WINDOWS\Form1.kxf
$Form1 = GUICreate("CMD-Box", 669, 355, 250, 203,$WS_SIZEBOX)
GUISetIcon("C:\WINDOWS\system32\shell32.dll", 200)
GUISetBkColor(0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 666, 326, 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)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _ENDE()
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)
$Pos2 = ControlGetPos ($Form1,"",$Edit1)
If $Pos[0] <> $Down[0] And $Pos[1] <> $Down[1] Then
GUICtrlSetPos($Input1,$Down[0]+8,$Down[1],$Pos2[2] - 307)
EndIf
EndFunc

[/autoit]

Wie kann ich einstellen, das man es nur so klein machen kann wie es voher war?

Jam00

Vista ist eben scheiße Ist das unter Vista vieleicht unter einem anderen Name gespeichert?

Jam00

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>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <INet.au3>
#include <_IsPressed_UDF.au3>

[/autoit] [autoit][/autoit] [autoit]

$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"
$sKeys = StringSplit ($Keys,"|")

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
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)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _ENDE()
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
EndFunc

[/autoit]

Edit: 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?

Jam00

Okay, danke, hier mal mein Aktuelles Script, falls es euch interesiert!

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <INet.au3>
#include <_IsPressed_UDF.au3>

[/autoit] [autoit][/autoit] [autoit]

$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"
$sKeys = StringSplit ($Keys,"|")

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
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)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _ENDE()
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

[/autoit]

Jam00

Danke, das haben wir ja schon gelöst Jetzt hatte ich eine Andere Frage!

Jam00

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <INet.au3>
#include <_IsPressed_UDF.au3>

[/autoit] [autoit][/autoit] [autoit]

$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"
$sKeys = StringSplit ($Keys,"|")

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
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)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _ENDE()
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

[/autoit]

Warum 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!

Jam00

perfeckt danke

Jam00

Achso, ja, das benutz diese DLL, gibt es da vieleicht eine DLL die Auch AnyKey kennt?

Jam00

was wird benutzt?

Jam00

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!

Beiträge von Jam00

arbeiten mit Ini-Dateien

bitte um Hilfe - automatisierung einer Refresh Funktion

arbeiten mit Ini-Dateien

PHP Datein bearbeiten

Plötzlich unbekanntes Fenster/neGXViewer unbeaufsichtigt installieren

PHP Datein bearbeiten

Plötzlich unbekanntes Fenster/neGXViewer unbeaufsichtigt installieren

Dateien Per TCP verschiken

Dateien Per TCP verschiken

Dateien Per TCP verschiken

Eingabeauffordderung

Skriptbeispiel Spielkarten

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung