Beiträge von Jam00

Jam00

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?

Jam00

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?

Jam00

ja, hab ich gelesen, hab es nurnicht kapiert

Oki, also er gibt mir immer die Anfagsposition aus, nich die Endposition! Ich hab mal ein Update, aber es gehen noch nicht alle Befehle!

Spoiler anzeigen

[autoit]

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

[/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_AUTOHSCROLL, $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,0,0)
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 & ">"
GUISetOnEvent($GUI_EVENT_CLOSE, "_ENDE")
GUICtrlSetOnEvent ($Button,"_CMD")
$Befehle = "echo|ipconfig|dir|cd|Help"
$BefehleB = "Gibt einen Text zurück|zeigt die IP an|zeigt alle Dateinen und Ortner im aktuellen Pfad an|Wechselt das verzeichniss|Zeigt diese Hilfe an"
$sBefehle = StringSplit ($Befehle,"|")
$sBefehleB = StringSplit ($BefehleB,"|")
While 1
$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
Sleep(100)
WEnd

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

Func _ENDE()
Exit
EndFunc ;==>_ENDE
Func _CMD()
$Fund = False
$Befehl = GUICtrlRead ($Input1)
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
$Zeichen = StringLen ($sBefehle[$1])
$Zeichen2 = StringLen ($Befehl)
$Ergebnis = StringRight ($Befehl,$Zeichen2 - $Zeichen - $Suche)
If $Ergebnis <> "" Then
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,$Ergebnis & $Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,"Syntax Error" & @CRLF & "echo [text]" & $Pfad)
EndIf
$Fund = True
ElseIf $sBefehle[$1] = "Help" Then
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
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
EndIf
EndIf
Next
EndIf
If $Fund = False Then
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,"Dieser Befehl existiert nicht oder kann nicht Gefunden werden" & $Pfad)
EndIf
GUICtrlSetData ($Input1,"")
EndFunc

[/autoit]

Edit: Upsa war ein Fehler drin!

Jam00

Jetzt gehst! Irgendwie hat der ein Problem damit die Position des Letzten zeiches herauszufinden!

Spoiler anzeigen

[autoit]

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

[/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_AUTOHSCROLL, $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,0,0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Pfad = @CRLF & @CRLF & "C:" & @HomePath & ">"
GUISetOnEvent($GUI_EVENT_CLOSE, "_ENDE")
HotKeySet ("{enter}","_CMD")
While 1
$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
Sleep(100)
WEnd

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

Func _ENDE()
Exit
EndFunc ;==>_ENDE
Func _CMD()
$Edit1Read = GUICtrlRead ($Edit1)
If $Edit1Read <> "" Then
$zEdit1Read = $Edit1Read & @CRLF
Else
$zEdit1Read = $Edit1Read
EndIf
$Befehl = GUICtrlRead ($Input1)
$Suche = StringInStr ($Befehl,"echo",2)
If $Suche > 0 Then
$Zeichen = StringLen ("echo")
$Zeichen2 = StringLen ($Befehl)
$Ergebnis = StringRight ($Befehl,$Zeichen2 - $Zeichen - $Suche)
If $Ergebnis <> "" Then
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,$Ergebnis & $Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,"Syntax Error" & $Pfad)
EndIf
Else
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,"Dieser Befehl existiert nicht oder kann nicht Gefunden werden" & $Pfad)
EndIf
GUICtrlSetData ($Input1,"")
EndFunc

[/autoit]

Jam00

Irgendwie kommt das was falsches raus!

Spoiler anzeigen

[autoit]

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

[/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_AUTOHSCROLL, $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,0,0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Pfad = @CRLF & @CRLF & "C:" & @HomePath & ">"
GUISetOnEvent($GUI_EVENT_CLOSE, "_ENDE")
HotKeySet ("{enter}","_CMD")
While 1
Sleep(100)
WEnd

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

Func _ENDE()
Exit
EndFunc ;==>_ENDE
Func _CMD()
$Edit1Read = GUICtrlRead ($Edit1)
If $Edit1Read <> "" Then
$zEdit1Read = $Edit1Read & @CRLF
Else
$zEdit1Read = $Edit1Read
EndIf
$Befehl = GUICtrlRead ($Input1)
$Suche = StringInStr ($Befehl,"echo",2)
If $Suche > 0 Then
$Zeichen = StringLen ("echo")
$Zeichen2 = StringLen ($Befehl)
$Ergebnis = StringRight ($Befehl,$Zeichen2 - $Zeichen - $Suche)
If $Ergebnis <> "" Then
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,$Ergebnis & $Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,"Syntax Error" & $Pfad)
EndIf
Else
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,"Dieser Befehl existiert nicht oder kann nicht Gefunden werden" & $Pfad)
EndIf
GUICtrlSetData ($Input1,"")
$Zeichen3 = _GUICtrlEdit_GetTextLen($Edit1)
$Down = _GUICtrlEdit_PosFromChar($Edit1, $Zeichen3)
ToolTip ($Down[0] & "," & $Down[1] & "," & $Zeichen3)
If $Down[0] < 308 Then
GUICtrlSetPos($Input1,$Down[0],$Down[1])
EndIf
EndFunc

[/autoit]

Bei mir kommt da 65535,-1 raus, aber das ist ja vonn schwachsinn!

Jam00

Ich habe es so gemacht, wenn ihr mir jetzt nich sagen könnt wie ich die Position, des letzten Zeichen in der Edit herausfinde, bin ich zufrieden

Spoiler anzeigen

[autoit]

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

[/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_AUTOHSCROLL, $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,0,0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Pfad = @CRLF & @CRLF & "C:" & @HomePath & ">"
$Zahl = 0
GUISetOnEvent($GUI_EVENT_CLOSE, "_ENDE")
HotKeySet ("{enter}","_CMD")
While 1
Sleep(100)
WEnd

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

Func _ENDE()
Exit
EndFunc ;==>_ENDE
Func _CMD()
$Edit1Read = GUICtrlRead ($Edit1)
If $Edit1Read <> "" Then
$zEdit1Read = $Edit1Read & @CRLF
Else
$zEdit1Read = $Edit1Read
EndIf
$Befehl = GUICtrlRead ($Input1)
$Suche = StringInStr ($Befehl,"echo",2)
If $Suche > 0 Then
$Zeichen = StringLen ("echo")
$Zeichen2 = StringLen ($Befehl)
$Ergebnis = StringRight ($Befehl,$Zeichen2 - $Zeichen - $Suche)
If $Ergebnis <> "" Then
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,$Ergebnis & $Pfad)
Else
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,"Syntax Error" & $Pfad)
EndIf
Else
_GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
_GUICtrlEdit_AppendText($Edit1,"Dieser Befehl existiert nicht oder kann nicht Gefunden werden" & $Pfad)
EndIf
GUICtrlSetData ($Input1,"")
$Zahl = $Zahl +1
$Down = 48 * $Zahl
If $Down < 308 Then
GUICtrlSetPos($Input1,290,$Down)
EndIf
EndFunc

[/autoit]

EDIT: Weil so ändert der Ja nur die Position, ohne zu wissen ob die auch stimmt, wennn ich einen Mehrzeileigen text habe, ist die Position ja falsch! Und wenn der Pfad anders ist ja auch, ich nehme mal an bei euch stimmt es nicht!

Jam00

Oki, danke!
Habs gerad auch gefunden
Bin in der Hilfe irgendwie als dran vobei!

Jam00

Hallo, wie kann ich herausfinden wieviele zeihen ein $ hat?

Beispeil

[autoit]

$1 = "123456"
MsgBox (0,"","Die zeichenkette enthält [Hier die Anzachl der Zeichen (also 6)] Zeichen"

[/autoit]

Jam00

Oki, danke
Also Deepred, ich finde deins eigentlch immernoch am Besten, wenn man doch $ES_READONLY nur auf bestimmte zeichen setzen könnte!

Geht sowas vieleicht mit einer RichEdit?

Jam00

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/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", 199)
GUISetBkColor(0xFFFFFF)
$Input1 = GUICtrlCreateInput("Input1", 102, 81, 121, 28, -1, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 648, 308, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL), 0)
GUICtrlSetData(-1, "Edit1")
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

GUICtrlSetOnEvent ($GUI_EVENT_CLOSE,"_ENDE")
While 1
Sleep(100)
WEnd
Func _ENDE()
Exit
EndFunc

[/autoit]

Warum funktionier das GuiCtrlSetOnEvent nicht?

Raupi , und wie willst du die Position rausbekommen?

Jam00

Okay, danke das ist was ich brauche, gleicher Link

Jam00

Hat jemand eine Idee wie man das ändern kann?

Jam00

Nein, ich bruache das so!

Jam00

Der da angezeigt wird, und mir ist aufgefallen, das man ja alles löschen kann

Jam00

Cool, jetzt muss ich mich da mal durcharbeiten, wie kann ich denn den Pfad ändern?

Jam00

Is echt interesant
Naja, wenn sie nicht dabei ist, liehfert man sie eben mit!

Jam00

Hallo, auf http://www.uhrzeit.org/atomuhr.html steht immer die Aktuelle Uhrzeit, wie kann ich die mit Autoit abrufen, und dann die Zeit von meinem Computer so einstellen?

Jam00

Ah, also kann mir vieleicht jemand ein Beispiel in einer Gui machen? Ich weiß, ich nerve, aber darus kapier ich es am besten^^

Jam00

ne, wenn ich dann scrolle bewegt sich das Inputfeld ja nicht mit!
@Deepred, kannst du mir sagen wie das geht?

Jam00

Ne, da kann man ja dann die Zeilen vo der Pfad steht und so löschen! Und man kann einfach alles bearbeiten, das soll ja nicht so sein!

Beiträge von Jam00

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung

Anzahl von Zeicher herausfinden

Anzahl von Zeicher herausfinden

Eingabeauffordderung

Eingabeauffordderung

Daten aus Internet

Eingabeauffordderung

Daten aus Internet

Eingabeauffordderung

Eingabeauffordderung

Skriptbeispiel Spielkarten

Daten aus Internet

Eingabeauffordderung

Eingabeauffordderung

Eingabeauffordderung