Ich meinte eig nur, dass es keine try ... catch funktionen gibt, aber es sind natürlich in den meisten Funtionen Mechanismen eingebaut, damit das script nicht immer gleich stecken bleibt und man auf eventuelle "Fehler" reagieren kann
Beiträge von inventor
-
-
1. mit solchen kleinen codeschnipseln kann dir keiner helfen, du solltest mindestens die komplette Schleife und deine Funktion posten
2. wäre eine etwas genauere beschreibung des Fehlers nich schlecht, wenigstens über welche Art von Fehler wird reden
2. in AutoIt kann man afaik keine Fehler abfangen, man kann nur verhindern, dass sie Auftreten
mfg inventor -
sapontan würde ich das anze nicht mir dem IE sondern mit _InetGetSource machen, und dann mit
_StringBetween die Adressen rausfiltern -
dann muss ich also alle control einzeln prüfen?
-
Alcros:
die msgbox hatte ich vorher drin, daher weiß ich ja die werte, und mit den klammern, alle anderen 14 Vergleiche funktionieren ganz normal, nur bei den beiden checkboxen hab ich besagtes problem@Marsi :
achso, ich hatte nur neulich in der hilfe gefunden, dass es == auch gibt und da das in vielen anderen sprachen zum vergleichen genutzt wird, hab ich es hier eif auch verwendet -
Hi,
ich mach für unsere Schulsanitäter die Homepage, und da schreib ich für unseren Lehrer nen Editor, damit er sich nicht mit dem Quelltext prügeln muss, aber jetzt habe ich das Problem, dass er in Zeile 262 behauptet, 1 und 4 wären gleich, und somit das ganze als unverändert annimmt, obwohl es gespeichert istPS:
der Quelltext is noch nicht fertig und an vielen anderenstellen auch noch fehlerhaft, hanz abgesehen, dass manan vielen stellen mit einem bruchteil an aufwand das selbe Ergebnis erzielen könnteQuelltext
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#cs ----------------------------------------------------------------
Script Version : 0.1
Author : inventor <[email='stefan.thomas@famthomas.net'][/email]>
#ce ----------------------------------------------------------------
#region Optionen und Includes
Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)
Opt("GUIcloseonESC", 0)#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>Opt("GUIResizeMode", $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
[/autoit] [autoit][/autoit] [autoit]
#endregion Optionen und Includes#region Variablen
[/autoit] [autoit][/autoit] [autoit]Global $GUI
[/autoit] [autoit][/autoit] [autoit]Global $ID[3][9]
[/autoit] [autoit][/autoit] [autoit]Global $status_width[2]
[/autoit] [autoit][/autoit] [autoit]
$status_width[0] = 75
$status_width[1] = 425
Global $status
Global $stat_newtextGlobal $men_datei
[/autoit] [autoit][/autoit] [autoit]
Global $men_open
Global $men_speichern
Global $men_speichernunter
Global $men_beenden
Global $men_ask
Global $men_helpGlobal $saved = False
[/autoit] [autoit][/autoit] [autoit]
Global $savepath = ""
Global $openpath = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"Global $file_msg
[/autoit] [autoit][/autoit] [autoit]
Global $file_hndGlobal $save_msg
[/autoit] [autoit][/autoit] [autoit]
Global $save_inhalt
Global $save_return
Global $savedinhalt[3][9]
Global $savedtext
Global $savedwrite
Global $iGlobal $save_dialogmsg
[/autoit] [autoit][/autoit] [autoit]Global $end_msg
[/autoit] [autoit][/autoit] [autoit]Global $keystate = 0
[/autoit] [autoit][/autoit] [autoit]
Global $oldkeystate = 1
Global $helpkeystate = 1Global Const $Kopf = "<html>" & @CRLF & " <head>" & @CRLF & ' <title>SSD JEG - Startseite</title>' & @CRLF & @CRLF & ' <meta name="author" content="Stefan Thomas">' & @CRLF & ' <meta name="robots" content="noindex, nofollow">' & @CRLF & @CRLF & ' <link rel="stylesheet" href="./css/index.css" type="text/css">' & @CRLF & ' <link rel="stylesheet" href="./css/all.css" type="text/css">' & @CRLF & @CRLF & ' <link rel="shortcut icon" href="./graphics/SSD_logo_2_icon.gif">' & @CRLF & ' </head>' & @CRLF & ' <body>' & @CRLF & ' <div id="logo">' & @CRLF & ' <a href="./">' & @CRLF & ' <img src="./graphics/SSD_logo_2_200.gif" width="150" height="150" alt="Logo" >' & @CRLF & ' </a>' & @CRLF & ' </div>' & @CRLF & ' <div id="titel">' & @CRLF & ' <h1>Schulsanitätsdienst des JEG</h1>' & @CRLF & ' </div>' & @CRLF & ' <div id="nav">' & @CRLF & ' <h2> Navigation</h2>' & @CRLF & ' <div class="nav-aktuell" id="nav-startseite">' & @CRLF & ' Startseite' & @CRLF & ' </div>' & @CRLF & ' <div class="nav-norm" id="nav-kurzel">' & @CRLF & ' <a href="kurzel.html">Namenskürzel</a>' & @CRLF & ' </div>' & @CRLF & ' <div class="nav-norm" id="nav-impress">' & @CRLF & ' <a href="impressum.html">Impressum</a>' & @CRLF & ' </div>' & @CRLF & ' <div class="nav-norm" id="nav-kalender">' & @CRLF & ' <a href="https://www.google.com/calendar/embed?src=8sjq1lk0qmofoa63tvh1j7bh64%40group.calendar.google.com&ctz=Europe%2FBerlin" target="_blank">Kalender</a>' & @CRLF & ' </div>' & @CRLF & ' </div>' & @CRLF & ' <div id="main-container">' & @CRLF & ' <div id="main-aktuell">' & @CRLF & ' <h3>Aktuelles:</h3>' & @CRLF & @CRLF
[/autoit] [autoit][/autoit] [autoit]
Global Const $Footer = ' </div>' & @CRLF & ' </div>' & @CRLF & ' </body>' & @CRLF & '</html>'Global $hgui
[/autoit] [autoit][/autoit] [autoit]
Global $help = FalseGlobal $GUIhwd
[/autoit] [autoit][/autoit] [autoit]
Global $WMID
Global $wparam
Global $iparamGlobal $open_filehwnd
[/autoit] [autoit][/autoit] [autoit]
Global $open_file#endregion Variablen
[/autoit] [autoit][/autoit] [autoit]
#region Initialisierung$GUI = GUICreate("SSD-Website-Editor", 600, 700, -1, -1, $WS_Maximizebox + $WS_Minimizebox)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "beenden")$men_datei = GUICtrlCreateMenu("Datei ")
[/autoit] [autoit][/autoit] [autoit]
$men_open = GUICtrlCreateMenuItem("Öffnen", $men_datei,0)
GUICtrlSetOnEvent($men_open, "offnen")
$men_speichern = GUICtrlCreateMenuItem("Speichern", $men_datei, 1)
GUICtrlSetOnEvent($men_speichern, "save")
$men_speichernunter = GUICtrlCreateMenuItem("Speichern unter", $men_datei, 2)
GUICtrlSetOnEvent($men_speichernunter, "saveunder")
$men_beenden = GUICtrlCreateMenuItem("Beenden", $men_datei, 3)
GUICtrlSetOnEvent($men_beenden, "beenden")
$men_ask = GUICtrlCreateMenu(" ? ")
$men_help = GUICtrlCreateMenuItem("Hilfe ", $men_ask, 1)
GUICtrlSetOnEvent($men_help, "help")GUICtrlCreateGroup("Aktuelles:", 10, 10, 570, 135)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("Diese Woche haben", 15, 30, 100, 20)
$ID[0][0] = GUICtrlCreateInput("", 117, 28, 150, 18)
GUICtrlCreateLabel("und", 270, 30, 20, 20)
$ID[0][1] = GUICtrlCreateInput("", 292, 28, 150, 18)
GUICtrlCreateLabel("Dienst.", 445, 30, 40, 20)GUICtrlCreateLabel("Ersatz ist", 15, 55, 45, 20)
[/autoit] [autoit][/autoit] [autoit]
$ID[0][2] = GUICtrlCreateInput("", 62, 53, 150, 18)$ID[0][3] = GUICtrlCreateCheckbox("Nächsten Termin angeben", 15, 85, 150, 20)
[/autoit] [autoit][/autoit] [autoit]
$ID[0][4] = GUICtrlCreateLabel("Das nächste Treffen ist am", 35, 110, 130, 20)
$ID[0][5] = GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY, 170, 108, 100, 20, $DTS_SHORTDATEFORMAT)GUICtrlCreateGroup("Zukünftiges:", 10, 145 + 10, 570, 135)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("Nächste Woche haben", 15, 145 + 30, 115, 20)
$ID[1][0] = GUICtrlCreateInput("", 132, 145 + 28, 150, 18)
GUICtrlCreateLabel("und", 285, 145 + 30, 20, 20)
$ID[1][1] = GUICtrlCreateInput("", 307, 145 + 28, 150, 18)
GUICtrlCreateLabel("Dienst.", 460, 145 + 30, 40, 20)GUICtrlCreateLabel("Ersatz ist", 15, 145 + 55, 45, 20)
[/autoit] [autoit][/autoit] [autoit]
$ID[1][2] = GUICtrlCreateInput("", 62, 145 + 53, 150, 18)$ID[1][3] = GUICtrlCreateCheckbox("Nächsten Termin angeben", 15, 145 + 85, 150, 20)
[/autoit] [autoit][/autoit] [autoit]
$ID[1][4] = GUICtrlCreateLabel("Das", 35, 145 + 110, 20, 20)
$ID[1][5] = GUICtrlCreateRadio("nächste", 65, 145 + 102, 55, 20)
$ID[1][6] = GUICtrlCreateRadio("übernächste", 65, 145 + 118, 75, 20)
$ID[1][7] = GUICtrlCreateLabel("Treffen ist am", 150, 145 + 110, 100, 20)
$ID[1][8] = GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY, 220, 145 + 108, 100, 20, $DTS_SHORTDATEFORMAT)$ID[2][0] = GUICtrlCreateEdit("", 10, 300, 575, 310)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetResizing($ID[2][0], $GUI_DOCKAUTO)$status = _GUIctrlstatusbar_create($GUI, $status_width)
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlStatusBar_SetText($status, " Gespeichert", 0)
$saved = TrueFor $x = 0 To 2 Step 1
[/autoit] [autoit][/autoit] [autoit]
For $y = 0 To 8 Step 1
$savedinhalt[$x][$y] = GUICtrlRead($ID[$x][$y])
If ($x == 0 And $y == 5) Then
ExitLoop
ElseIf($x == 2 And $y == 0) Then
ExitLoop
EndIf
Next
NextGUISetState(@SW_SHOW, $GUI)
[/autoit] [autoit][/autoit] [autoit]GUIRegisterMsg($WM_ACTIVATE, "checkfokus")
[/autoit] [autoit][/autoit] [autoit]AdlibRegister("status_resize", 250)
[/autoit] [autoit][/autoit] [autoit]
AdlibRegister("testifsaved", 301)
AdlibRegister("shownext", 300)$keystate = 1
[/autoit] [autoit][/autoit] [autoit]
keystate()
#endregion Initialisierung#region Hauptprogramm
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(1000)
WEnd#endregion Hauptprogramm
[/autoit] [autoit][/autoit] [autoit]#region Funktionen
[/autoit] [autoit][/autoit] [autoit]#region Speichern
[/autoit] [autoit][/autoit] [autoit]Func men_saveunder()
[/autoit] [autoit][/autoit] [autoit]
status("Speichere")
$save_return = saveunder ()
If ($save_return == -1) Then
Return -1
Else
save ()
EndIf
EndFuncFunc save()
[/autoit] [autoit][/autoit] [autoit]
status("Speichere")
If ($savepath == "") Then
saveunder ()
EndIf
$file_msg = FileOpen($savepath & "\index.html", 2 +
If ($file_msg == -1) Then
Return -2 ; Fehler beim öffnen der Datei
Else
$file_hnd = $file_msg
EndIf
write($Kopf)
For $x = 0 To 2 Step 1
For $y = 0 To 8 Step 1
$savedinhalt[$x][$y] = GUICtrlRead($ID[$x][$y])
If ($x == 0 And $y == 5) Then
ExitLoop
ElseIf($x == 2 And $y == 0) Then
ExitLoop
EndIf
Next
Next
write(' Diese Woche haben <font color="00ff00">' & $savedinhalt[0][0] & '</font> und <font color="00ff00">' & $savedinhalt[0][1] & '</font> Dienst.<br>' & @CRLF)
write(' Ersatz ist <font color="00ff00">' & $savedinhalt[0][2] & '</font>.<br> ' & @CRLF)
If $savedinhalt[0][3] = $GUI_CHECKED Then
write(' Das nächste Treffen ist am <font color="00ff00">' & GUICtrlRead($ID[0][5]) & '</font>')
EndIf
write(' </div>' & @CRLF)
write(' <div id="main-demnaechst">' & @CRLF & ' <h3>Zukünftiges:</h3>' & @CRLF & @CRLF)
write(' Nächste Woche haben <font color="00ff00">' & $savedinhalt[1][0] & '</font> und <font color="00ff00">' & $savedinhalt[1][1] & '</font> Dienst. <br>' & @CRLF)
write(' Ersatz ist <font color="00ff00">' & $savedinhalt[1][2] & '</font>.<br>' & @CRLF)
If $savedinhalt[1][3] = $GUI_CHECKED Then
If $savedinhalt[1][4] = $GUI_CHECKED Then
write(' Das nächste Treffen ist am <font color="00ff00">' & GUICtrlRead($ID[1][8]) & '</font>' & @CRLF)
Else
write(' Das übernächste Treffen ist am <font color="00ff00">' & GUICtrlRead($ID[1][8]) & '</font>' & @CRLF)
EndIf
EndIf
write(' </div>' & @CRLF & @CRLF & ' <div id="main-news">' & @CRLF)
$savedtext = $savedinhalt[2][0]
$savedtext = StringSplit($savedtext, @CRLF, 1)
For $i = 1 To $savedtext[0] Step 1
$savedtext[$i] = $savedtext[$i] & @CRLF
$savedtext[$i] = StringReplace($savedtext[$i], "&", "&", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "ä", "ä", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "Ä", "Ä", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "ü", "ü", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "Ü", "Ü", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "ö", "ö", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "Ö", "Ö", 1)
$savedtext[$i] = StringReplace($savedtext[$i], "ß", "ß", 1)
If StringInStr($savedtext[$i], "[trenner]") Then
$savedtext[$i] = StringReplace($savedtext[$i], "[trenner]" & @CRLF, '<hr class="trenner">' & @CRLF)
Else
$savedtext[$i] = StringReplace($savedtext[$i], @CRLF, "<br>" & @CRLF)
EndIf
$savedwrite = $savedwrite & ' ' & $savedtext[$i]
Next
write($savedwrite)
write($Footer)
FileClose($file_hnd)
status("")
EndFuncFunc saveunder()
[/autoit] [autoit][/autoit] [autoit]
status("Speichere")
Do
$save_msg = FileOpenDialog("SSD-Website-Editor", $openpath,"Html-Dateien (*.html; *.htm)|Alle Dateien (*.*)", 1 + 4, "index.html", $GUI)
If ($save_msg == "") Then
If (@error == 1) Then
status("Speichern abgebrochen")
Return -1
EndIf
Else
$savepath = $save_msg
EndIf
Until(FileExists($savepath))
EndFuncFunc testifsaved()
[/autoit] [autoit][/autoit] [autoit]
For $x = 0 To 2 Step 1
For $y = 0 To 7 Step 1
;status("read : " & GUICtrlRead($ID[0][3]) & " saved : " & $savedinhalt[0][3])
If Not GUICtrlRead($ID[$x][$y]) == $savedinhalt[$x][$y] Then
_GUICtrlStatusBar_SetText($status, "Geändert", 0)
$saved = False
Return False
EndIf
If ($x == 0 And $y == 5) Then
ExitLoop
ElseIf($x == 2 And $y == 0) Then
ExitLoop
EndIf
Next
Next
_GUICtrlStatusBar_SetText($status, "Gespeichert", 0)
$saved = True
Return True
EndFuncFunc write($save_inhalt)
[/autoit] [autoit][/autoit] [autoit]
FileWrite($file_hnd, $save_inhalt)
EndFunc
#endregion Speichern#region Laden
[/autoit] [autoit][/autoit] [autoit]Func offnen()
[/autoit] [autoit][/autoit] [autoit]
While 1
$save_dialogmsg = FileOpenDialog("SSD-Website-Editor", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "HTML-Dateien (*.html; *.htm)|Alle Dateien (*.*)", 3, "index.html", $GUI)
If (@error) Then
Return -1 ; Öffnen Abgebrochen
Else
$openpath = $save_dialogmsg
ExitLoop
EndIf
WEnd
Laden()
EndFuncFunc Laden()
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "SSD-Website-Editor", $openpath)
$open_filehwnd = FileOpen($openpath)
MsgBox(0, "SSD-Website-Editor", $open_filehwnd)
$open_file = FileRead($open_filehwnd)
FileClose($open_filehwnd)
MsgBox(0, "SSD-Website-Editor", $open_file)
$open_file = StringReplace($open_file, $Kopf, "")
MsgBox(0, "SSD-Website-Editor", $open_file)
$open_file = StringReplace($open_file, $Footer, "")
GUICtrlSetData($ID[2][0], $open_file)
EndFunc#endregion Laden
[/autoit] [autoit][/autoit] [autoit]#region Window-funktionen
[/autoit] [autoit][/autoit] [autoit]Func beenden()
[/autoit] [autoit][/autoit] [autoit]
If ($saved == False) Then
$end_msg = MsgBox(3 + 32 + 4096, "Newsedit - Speichern?", "Sie haben ihre Datei noch nicht gespeichert, wollen sie das jetzt tun?")
If ($end_msg == 2) Then ;Abbrechen
Return
ElseIf($end_msg == 7) Then
end()
Else
If (men_save() == -1) Then
Return
EndIf
end()
EndIf
Else
end()
EndIf
EndFuncFunc end()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc shownext()
[/autoit] [autoit][/autoit] [autoit]
If (GUICtrlRead($ID[0][3]) == $GUI_UNCHECKED) Then
GUICtrlSetState($ID[0][4], $GUI_HIDE)
GUICtrlSetState($ID[0][5], $GUI_HIDE)
Else
GUICtrlSetState($ID[0][4], $GUI_SHOW)
GUICtrlSetState($ID[0][5], $GUI_SHOW)
EndIf
If (GUICtrlRead($ID[1][3]) == $GUI_UNCHECKED) Then
GUICtrlSetState($ID[1][4], $GUI_HIDE)
GUICtrlSetState($ID[1][5], $GUI_HIDE)
GUICtrlSetState($ID[1][6], $GUI_HIDE)
GUICtrlSetState($ID[1][7], $GUI_HIDE)
GUICtrlSetState($ID[1][8], $GUI_HIDE)
Else
GUICtrlSetState($ID[1][4], $GUI_SHOW)
GUICtrlSetState($ID[1][5], $GUI_SHOW)
GUICtrlSetState($ID[1][6], $GUI_SHOW)
GUICtrlSetState($ID[1][7], $GUI_SHOW)
GUICtrlSetState($ID[1][8], $GUI_SHOW)
EndIf
EndFuncFunc checkfokus($GUIhwnd, $WMID, $wparam, $iparam)
[/autoit] [autoit][/autoit] [autoit]
If not $wparam == 0 Then
$keystate = 1
keystate ()
Else
$keystate = 0
keystate()
EndIf
EndFuncFunc status($stat_newtext = "")
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlStatusBar_SetText($status, $stat_newtext, 1)
EndFuncFunc status_resize()
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlStatusBar_Resize($status)
EndFuncFunc keystate()
[/autoit] [autoit][/autoit] [autoit]
Switch $keystate
Case 1
HotKeySet("^s", "men_save")
HotKeySet("^+s", "saveunder")
HotKeySet("{F1}", "help")
HotKeySet("^h", "help")
HotKeySet("^o", "offnen")
Case 0
HotKeySet("^s")
HotKeySet("^+s")
HotKeySet("{F1}")
HotKeySet("^h")
HotKeySet("^o")
EndSwitch
status("Keystate : "&$keystate)
EndFunc#endregion Window-funktionen
[/autoit] [autoit][/autoit] [autoit]#region Hilfe
[/autoit] [autoit][/autoit] [autoit]Func help()
[/autoit] [autoit][/autoit] [autoit]
$help = True$hgui = GUICreate("Newsedit - Hilfe", 400, 350, -1, -1, $WS_CHILD + $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU, -1, $GUI)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "hclose", $hgui)
GUICtrlCreateTab(20, 20, 360, 310)
GUICtrlCreateTabItem("Allgemein")
GUICtrlCreateLabel("Der SSD-Website-Editor ist ein kostenloses Programm, um die Startseite für die Homepage des Schulsanitätsdienstes des Josef Effner Gymnasiums Dachau zu bearbeiten.", 35, 60, 330, 50)
#cs GUICtrlCreateTabItem("Tastenkürzel")
GUICtrlCreateLabel("Hilfe : F1 oder STRG+H", 35, 60, 330, 20)
GUICtrlCreateLabel("Speichern : STRG+S", 35, 80, 330, 20)
GUICtrlCreateLabel("Speichern unter : STRG+SHIFT+S", 35, 100, 330, 20)
#ce
GUICtrlCreateTabItem("Schlüsselwörter")
GUICtrlCreateLabel("[trenner] : Fügt an der entsprechenden Stelle eine Trennlinie ein" & @CRLF & " muss allein in einer Zeile stehen!!", 35, 60, 330, 40)
GUICtrlCreateLabel("Zeilenumbrüche und die meisten Umlaute (ä, ö, ü, ß) werden automatisch in die entsprechenden HTML-Codes umgewandelt.", 35, 100, 330, 40)
GUICtrlCreateLabel("Es können sämtliche HTML-Tags verwendet werden", 35, 140, 330, 20)
GUICtrlCreateTabItem("Über")
GUICtrlCreateLabel("Version : 0.2", 35, 60, 330, 20)
GUICtrlCreateLabel("Autor : Stefan Thomas", 35, 80, 330, 20)
GUICtrlCreateLabel("E-mail : stefan.thomas@famthomas.net", 35, 100, 330, 20)
GUICtrlCreateLabel("Dies ist die zweite, komplett überarbeitete, Version, in der einige Features, wie zum Beispiel das Laden von Dateien oder die Anzeige des Speicherzustands , noch nicht voll funktionsfähig sind.", 35, 150, 330, 50)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_ACTIVATE, "checkhelpfokus")
EndFuncFunc checkhelpfokus($GUIhwnd, $WMID, $wparam, $iparam)
[/autoit] [autoit][/autoit] [autoit]
If not $wparam == 0 Then
HotKeySet("{ESC}", "hclose")
Else
HotKeySet("{ESC}")
EndIf
EndFuncFunc hclose()
[/autoit] [autoit][/autoit] [autoit]
GUIDelete($hgui)
$help = False
EndFunc#endregion Hilfe
[/autoit] [autoit][/autoit] [autoit][/autoit]
#endregion Funktionen -
Ist es auch illegal, wenn ich meine eigenen .exen in den Quellcode dekompilieren will?
-
afaik ist .dll im prinzip das gleiche Format wie eine .exe, nur dass ihr der automatisch ausgeführte teil fehlt und sie für mehrere programme verwendet werden kann
-
wann kann man eig mit der Version 0.85 rechnen?
die müsste doch ein richtiger meilenstein sein, was man so an bugreports und neuen features liest -
wohl eher 70cm
Danke, jetzt funzt esMFG inventor
-
du musst sie oben trotzdem noch mit dim,local oder global deklarieren
ist sowieso "ordenlicher" wenn man Variablen extra Deklariert, obs nun in AutoIt nötig ist, oder nicht
-
Moin,
[autoit]
ich hab folgendes Problem:
Ich hab ein Edit-Control, in das ein mehrzeiliger Text eingegeben wird, der dann von meinem Programm in html "übersetzt" wird.
Dabei will ich den Text Zeilenweise verarbeiten, aberStringSplit ()
[/autoit]gibt mir nur Müll zurück.
Was mache ich falsch, bzw. wie krige ich es hin, dass ich ein Array habe, in dem in $array[0] die Eröße und in den anderen Elementen jeweils eine Zeile, gefoglt von einem @CRLF stehen habe?Hier noch mein Quelltext:
Quelltext
[autoit]
[/autoit]
$savedtext = GUICtrlRead($edit)
$savedtext = StringSplit($savedtext, @CRLF)
For $i = 1 To $savedtext[0] Step 1
$savedtext[$i] = StringReplace($savedtext[$i], "ä", "ä")
$savedtext[$i] = StringReplace($savedtext[$i], "Ä", "Ä")
$savedtext[$i] = StringReplace($savedtext[$i], "ü", "ü")
$savedtext[$i] = StringReplace($savedtext[$i], "Ü", "Ü")
$savedtext[$i] = StringReplace($savedtext[$i], "ö", "ö")
$savedtext[$i] = StringReplace($savedtext[$i], "Ö", "Ö")
$savedtext[$i] = StringReplace($savedtext[$i], "ß", "ß")
$savedtext[$i] = StringReplace($savedtext[$i], '"', """)
$savedtext[$i] = StringReplace($savedtext[$i], "&", "&")
If StringInStr($savedtext[$i], "[line]") Then
$savedtext[$i] = StringReplace($savedtext[$i], "[line]", '<hr class="trenner">'&@CRLF&' ')
Else
$savedtext[$i] = StringReplace($savedtext[$i], @CRLF, "<br>"&@CRLF&' ')
EndIf
$savedwrite = $savedwrite&$savedtext[$i]
Next
write($savedwrite)Habs auch schon mitregulären Ausdrücken und StringRegExpReplace versucht, aber es hat alles nicht funktioniert
-
-
Das is mein code:
(für Herzatacken u.ä. wird keine Haftung übernommen )Spoiler anzeigen
[autoit]#cs Informationen --------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.1
[/autoit] [autoit][/autoit] [autoit]
Author: Stefan ThomasScript Function:
[/autoit] [autoit][/autoit] [autoit]
Skript, zur anzeige und scpeicherung eines 14/1 Billiardspiels, sowie der Zeitkontrolle
#ce Informationen --------------------------------------------------------------#region Includes (möglich gebraucht)
[/autoit] [autoit][/autoit] [autoit]#include <Constants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>#endregion Includes
[/autoit] [autoit][/autoit] [autoit]
#region OptionenOpt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]
Opt("TrayAutoPause", 0)
Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayIconDebug", 0)
Opt("GUICloseOnESC", 0)#endregion Optionen
[/autoit] [autoit][/autoit] [autoit]#region Variablen
[/autoit] [autoit][/autoit] [autoit]Dim $GUI ;ID des Hauptfensters
[/autoit] [autoit][/autoit] [autoit]Dim $sound1
[/autoit] [autoit][/autoit] [autoit]
If FileExists(@ScriptDir & "\Ton1.wav") Then
$sound1 = @ScriptDir & "\Ton1.wav"
ElseIf FileExists(@ScriptDir & "\Ton1.mp3") Then
$sound1 = @ScriptDir & "\Ton1.mp3"
ElseIf FileExists(@WindowsDir & "\Media\ding.wav") Then
$sound1 = @WindowsDir & "\Media\ding.wav"
EndIf
Dim $sound2
If FileExists(@ScriptDir & "\Ton2.wav") Then
$sound2 = @ScriptDir & "\Ton2.wav"
ElseIf FileExists(@ScriptDir & "\Ton2.mp3") Then
$sound2 = @ScriptDir & "\Ton2.mp3"
ElseIf FileExists(@WindowsDir & "\Media\Windows XP-kritischer Fehler.wav") Then
$sound2 = @WindowsDir & "\Media\Windows XP-kritischer Fehler.wav"
ElseIf FileExists(@WindowsDir & "\Media\chord.wav") Then
$sound2 = @WindowsDir & "\Media\chord.wav"
EndIfDim $mendat
[/autoit] [autoit][/autoit] [autoit]
Dim $menend
Dim $menopt
Dim $meneinst
Dim $menhelp
Dim $menuber
Dim $prog
Dim $s1lab[4]
Dim $s2lab[4]
Dim $ulab[3]
Dim $picid[3]
Dim $name1 = "Spielername 1"
Dim $name2 = "Spielername 2"
Dim $zmode = False
Dim $fok = 2
Dim $fokid
Dim $keystate = False
Dim $_zmode
Dim $childstartDim $pic1
[/autoit] [autoit][/autoit] [autoit]
If FileExists(@ScriptDir & "\bild1.jpg") Then
$pic1 = @ScriptDir & "\bild1.jpg"
ElseIf FileExists(@ScriptDir & "\bild1.bmp") Then
$pic1 = @ScriptDir & "\bild1.bmp"
ElseIf FileExists(@ScriptDir & "\bild1.gif") Then
$pic1 = @ScriptDir & "\bild1.gif"
EndIf
Dim $pic2
If FileExists(@ScriptDir & "\bild2.jpg") Then
$pic2 = @ScriptDir & "\bild2.jpg"
ElseIf FileExists(@ScriptDir & "\bild2.bmp") Then
$pic2 = @ScriptDir & "\bild2.bmp"
ElseIf FileExists(@ScriptDir & "\bild2.gif") Then
$pic2 = @ScriptDir & "\bild2.gif"
EndIf
Dim $punkte1 = 0
Dim $punkte2 = 0Dim $zeit = 35
[/autoit] [autoit][/autoit] [autoit]Dim $ogui
[/autoit] [autoit][/autoit] [autoit]
Dim $olab[11]
Dim $oin[11]
Dim $obutt[2]Dim $hgui
[/autoit] [autoit][/autoit] [autoit]
#endregion Variablen
#region Erstellen der GUI$GUI = GUICreate("Billiard Spielverwalter 14/1", 900, 600, -1, -1, $WS_MAXIMIZEBOX + $WS_MINIMIZEBOX)
[/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "pclose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "minimize")
GUISetOnEvent($GUI_EVENT_RESTORE, "restore")
GUISetBkColor(0x002000, $GUI)
GUICtrlSetDefColor(0xFFFFFF, $GUI)
GUISetFont(50);Menüleiste
[/autoit] [autoit][/autoit] [autoit]
$mendat = GUICtrlCreateMenu("Datei")
$menend = GUICtrlCreateMenuItem("Beenden [ALT+F4]", $mendat)
GUICtrlSetOnEvent($menend, "pclose")
$menopt = GUICtrlCreateMenu("Optionen")
$meneinst = GUICtrlCreateMenuItem("Einstellungen [Alt+O]", $menopt)
GUICtrlSetOnEvent($meneinst, "optionen")
$menhelp = GUICtrlCreateMenu("Hilfe")
$menuber = GUICtrlCreateMenuItem("Hilfe [F1]", $menhelp)
GUICtrlSetOnEvent($menuber, "help");Spieler 1
[/autoit] [autoit][/autoit] [autoit]
$s1lab[1] = GUICtrlCreateLabel("Spieler 1", 87, 30, 126, 40)
GUICtrlSetFont($s1lab[1], 25)
$picid[1] = GUICtrlCreatePic($pic1, 50, 100, 200, 250)
$s1lab[2] = GUICtrlCreateLabel($name1, 15, 390, 270, 50, $SS_CENTER)
GUICtrlSetFont($s1lab[2], 25)
$s1lab[3] = GUICtrlCreateInput($punkte1, 75, 460, 170, 65, $SS_CENTER)
GUICtrlSetColor($s1lab[3], 0x000000)
;Label ( $punkte1, 75, 460, 150, 65, $SS_CENTER)
;Uhr
$ulab[1] = GUICtrlCreateLabel($zeit, 300 + 50, 120, 200, 160)
GUICtrlSetFont($ulab[1], 125)
$prog = GUICtrlCreateProgress(300 - 20, 325, 340, 45)
GUICtrlSetData($prog, $zeit * (5 / 3));Spieler 2
[/autoit] [autoit][/autoit] [autoit]
$s2lab[1] = GUICtrlCreateLabel("Spieler 2", 600 + 87, 30, 126, 40)
GUICtrlSetFont($s2lab[1], 25)
$picid[2] = GUICtrlCreatePic($pic2, 600 + 50, 100, 200, 250)
$s2lab[2] = GUICtrlCreateLabel($name2, 600 + 15, 390, 270, 50, $SS_CENTER)
GUICtrlSetFont($s2lab[2], 25)
$s2lab[3] = GUICtrlCreateInput($punkte1, 600 + 75, 460, 170, 65, $SS_CENTER)
GUICtrlSetColor($s2lab[3], 0x000000)#endregion Erstellen der GUI
[/autoit] [autoit][/autoit] [autoit]
#endregion#region Hauptfunktion
[/autoit] [autoit][/autoit] [autoit]keystate()
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]change()
[/autoit] [autoit][/autoit] [autoit];optionen ()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(999)
If $zmode = True Then
If $zeit > 0 Then
zeitdekr()
EndIf
EndIf
WEnd#endregion Hauptfunktion
[/autoit] [autoit][/autoit] [autoit]
#endregion#region Funktionen
[/autoit] [autoit][/autoit] [autoit]Func pclose()
[/autoit] [autoit][/autoit] [autoit]
GUIDelete($GUI)
Exit
EndFuncFunc minimize()
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_MINIMIZE)
EndFuncFunc restore()
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_RESTORE)
EndFuncFunc keystate()
[/autoit] [autoit][/autoit] [autoit]
If $keystate = False Then
HotKeySet("{Enter}", "startstop")
HotKeySet("{+}", "_add")
HotKeySet("{NUMPADADD}", "_add")
HotKeySet("{TAB}", "change")
HotKeySet("{space}", "reset")
HotKeySet("^o", "optionen")
HotKeySet("{F1}", "help")
HotKeySet("^h", "help")
;$keystate = True
ElseIf $keystate = True Then
HotKeySet("{Enter}")
HotKeySet("{+}")
HotKeySet("{NUMPADADD}")
HotKeySet("{TAB}")
HotKeySet("{space}")
HotKeySet("^o")
HotKeySet("{F1}")
HotKeySet("^h")
;$keystate = False
EndIf
If $keystate = True Then
$keystate = False
ElseIf $keystate = False Then
$keystate = True
EndIf
EndFuncFunc zeitdekr()
[/autoit] [autoit][/autoit] [autoit]
;If $zeit>0 Then
$zeit = $zeit - 1
GUICtrlSetData($prog, $zeit * (5 / 3))
GUICtrlSetData($ulab[1], $zeit)
;EndIf
If $zeit = 10 Then
SoundPlay($sound1, 0)
ElseIf $zeit <= 5 And $zeit > 0 Then
SoundPlay($sound1, 0)
ElseIf $zeit = 0 Then
SoundPlay($sound2, 0)
EndIf
EndFuncFunc childtime($childstart)
[/autoit] [autoit][/autoit] [autoit]
$_zmode = $zmode
If $childstart = True Then
$zmode = False
ElseIf $childstart = False Then
$zmode = $_zmode
EndIf
EndFuncFunc reset()
[/autoit] [autoit][/autoit] [autoit]
$zeit = 36
GUICtrlSetData($ulab[1], 35)
GUICtrlSetData($prog, 35 * (5 / 3))
EndFuncFunc _add()
[/autoit] [autoit][/autoit] [autoit]
$zeit = $zeit + 25
GUICtrlSetData($ulab[1], $zeit)
GUICtrlSetData($prog, $zeit * (5 / 3))
EndFuncFunc startstop()
[/autoit] [autoit][/autoit] [autoit]
If $zmode = True Then
$zmode = False
ElseIf $zmode = False Then
$zmode = True
EndIf
EndFuncFunc change()
[/autoit] [autoit][/autoit] [autoit]
If $fok = 2 Then
GUICtrlDelete($fokid)
$fokid = GUICtrlCreateGroup("", 25, -20, 250, 560)
GUICtrlSetState($s1lab[3], $GUI_FOCUS)
$fok = 1
ElseIf $fok = 1 Then
GUICtrlDelete($fokid)
$fokid = GUICtrlCreateGroup("", 600 + 25, -20, 250, 560)
GUICtrlSetState($s2lab[3], $GUI_FOCUS)
$fok = 2
EndIf
reset()
EndFunc#region Optionen
[/autoit] [autoit][/autoit] [autoit]Func Optionen()
[/autoit] [autoit][/autoit] [autoit]
keystate()
childtime(True)
$ogui = GUICreate("Billiard Spielverwalter 14/1 - Optionen", 600, 260, -1, -1, $WS_CHILD + $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU, -1, $GUI)
GUISetOnEvent($GUI_EVENT_CLOSE, "Oclose")
;Dim $
GUICtrlCreateGroup("Spieler1", 20, 20, 560, 95)
GUICtrlCreateLabel("Spielername:", 30, 47, 60, 20)
$oin[1] = GUICtrlCreateInput($name1, 95, 45, 200, 20)
GUICtrlCreateLabel("Bild:", 30, 77, 30, 20)
$oin[2] = GUICtrlCreateInput($pic1, 95, 75, 365, 20)
$obutt[0] = GUICtrlCreateButton("Durchsuchen", 470, 75, 100, 20)
GUICtrlSetOnEvent($obutt[0], "Obutt1")
GUICtrlCreateGroup("Spieler2", 20, 120 + 20, 560, 95)
GUICtrlCreateLabel("Spielername:", 30, 120 + 47, 60, 20)
$oin[3] = GUICtrlCreateInput($name2, 95, 120 + 45, 200, 20)
GUICtrlCreateLabel("Bild:", 30, 120 + 77, 30, 20)
$oin[4] = GUICtrlCreateInput($pic2, 95, 120 + 75, 365, 20)
$obutt[1] = GUICtrlCreateButton("Durchsuchen", 470, 120 + 75, 100, 20)
GUICtrlSetOnEvent($obutt[1], "Obutt2")
GUISetState(@SW_SHOW)
EndFuncFunc Obutt1()
[/autoit] [autoit][/autoit] [autoit]
$pic1 = FileOpenDialog("Billiard Spieleverwalter 14/1 - Spieler 1 Foto", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Bilder (*.bmp;*.jpg;*.gif)", 1, "bild1.jpg")
GUICtrlSetData($oin[2], $pic1)
EndFuncFunc Obutt2()
[/autoit] [autoit][/autoit] [autoit]
$pic2 = FileOpenDialog("Billiard Spieleverwalter 14/1 - Spieler 2 Foto", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Bilder (*.bmp;*.jpg;*.gif)", 1, "bild2.jpg")
GUICtrlSetData($oin[4], $pic2)
EndFuncFunc Oclose()
[/autoit] [autoit][/autoit] [autoit]
$name1 = GUICtrlRead($oin[1])
GUICtrlSetData($s1lab[2], $name1)
$pic1 = GUICtrlRead($oin[2])
GUICtrlSetImage($picid[1], $pic1)
$name2 = GUICtrlRead($oin[3])
GUICtrlSetData($s2lab[2], $name2)
$pic2 = GUICtrlRead($oin[4])
GUICtrlSetImage($picid[2], $pic2)
keystate()
childtime(False)
GUIDelete($ogui)
EndFunc#endregion Optionen
[/autoit] [autoit][/autoit] [autoit]#region Hilfe
[/autoit] [autoit][/autoit] [autoit]Func help()
[/autoit] [autoit][/autoit] [autoit]
keystate()
childtime(True)
$hgui = GUICreate("Billiard Spielverwalter 14/1 - Hilfe", 400, 450, -1, -1, $WS_CHILD + $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU, -1, $GUI)
GUISetOnEvent($GUI_EVENT_CLOSE, "hclose")
GUICtrlCreateTab(20, 20, 360, 410)
GUICtrlCreateTabItem("Generell")
GUICtrlCreateLabel("Billiard Spielverwalter 14/1 ist eine kostenlose Anwendung zum Anzeigen des Punktestandes in einem 14/1 Spiel mit zwei Personen, sowie dem Anzeigen des Timeouts für einen Stoß.", 35, 50, 330, 40)
GUICtrlCreateTabItem("Über")
GUICtrlCreateLabel("Version : 1.0", 35, 50, -1, 20)
GUICtrlCreateLabel("Autor : Stefan Thomas", 35, 70, 175, 20)
GUICtrlCreateLabel("E-mail : stefan.thomas@famthomas.net", 35, 90, 200, 20)
GUICtrlCreateTabItem("Spielerdaten")
GUICtrlCreateLabel("1: Spielernamen", 35, 50, 135, 20)
GUICtrlCreateLabel("Unter 'Optionen' können zwei Spielernamen angegeben werden, diese werden bei Verlassen des 'Optionen'-Dialoges automatisch übernommen.", 35, 70, 330, 50)
GUICtrlCreateLabel("2: Spieler-Bilder:", 35, 125, 330, 20)
GUICtrlCreateLabel("Im 'Optionen'-Dialog können zwei Bilder angegeben werden, diese müssen als *.bmp, *.jpg oder als nichtanimierts *.gif abgespeichert sein." & @CRLF & "Alternativ können die Bilder mit den Name 'bild1' und 'bild2' in den oben genannten Dateiarten im Verzeichnis in dem dieses Programm läuft abgespeichert werden. Dies muss jedoch vor dem Start des Programms geschehen.", 35, 145, 330, 95)
GUICtrlCreateTabItem("Signaltöne")
GUICtrlCreateLabel("1: Noch 10, bzw weniger als 5 Sekunden für den aktuellen Stoß:", 35, 50, 330, 20)
GUICtrlCreateLabel("Wenn nur noch 10 Sekunden für den aktuellen stoß übrig sind, sowie wenn weniger als 5 sekunden für den aktuellen Stoß übrig sind , wird ein Signalton abgespielt. Dies ist Standartmäßig ein Systemton, kann jedoch durch das Speichern der gewünschten Tondatei im Verzeichnis, in dem dieses Programm läuft, geändert werden." & @CRLF & " Der Ton muss als .wav oder .mp3 mit den Namen 'Ton1' (Bei 10 bzw. 5 oder weniger Sekunden)vor Programmstart gespeichert werden.", 35, 70, 330, 95)
GUICtrlCreateLabel("2: Zeit vorbei:", 35, 175, 330, 20)
GUICtrlCreateLabel("Wenn die Zeit vorbei ist, wird ein anderer Ton abgespielt, ebenfalls normalerweise ein Systemton. Wenn eine '.wav' oder '.mp3' Datei des Namens 'ton2' in dem Verzeichnis, in dem dieses Programm läuft, existiert, wird diese verwendet.", 35, 195, 330, 55)
GUICtrlCreateTabItem("Tastaturkürzel")
GUICtrlCreateLabel("Optionen : 'STRG'+'O'", 35, 60, 330, 20)
GUICtrlCreateLabel("Hilfe : 'F1' oder 'STRG'+'H'", 35, 80, 330, 20)
GUICtrlCreateLabel("Zeit zurücksetzen : 'Leertaste'", 35, 100, 330, 20)
GUICtrlCreateLabel("25s addieren : '+'", 35, 120, 330, 20)
GUICtrlCreateLabel("Spielerwechsel : 'Tab'", 35, 140, 330, 20)
GUICtrlCreateLabel(" Uhr starten/stoppen : 'Enter'", 35, 160, 330, 20)
GUISetState(@SW_SHOW)
EndFuncFunc hclose()
[/autoit] [autoit][/autoit] [autoit]
childtime(False)
keystate()
GUIDelete($hgui)
EndFunc#endregion Hilfe
[/autoit] [autoit][/autoit] [autoit]#endregion Funktionen
[/autoit] -
moin,
ich habe folgendes Problem:
Ich habe eine Gui, in der regelmäßig ein Group-Control gelöscht und an anderer Stelle erstellt wird, wenn ich aber die Fenstergröße ändere, wird das Control wieder an der ürspünglichen, jetzt aber falschen Position erstellt.
Ich bin deshalb auf der Suche nach einer Möglichkeit, die Größen/Positionsänderung zu berechnen oder für einzelne Controls eine Fenstergrößenänderung zu simulieren, um so das Resizing auszulösen.Ich hoffe ihr habt mein problem verstanden und könnt mir helfen, nachdem google und die Forumssuche versagt haben.
Mfg inventor
PS:
wenn nötig kann ich auch den code noch posten, aber den anblick würde ich euch gerne ersparen -
Ich würde es so:
[autoit]
[/autoit]
$i = $start
Do
; deine anweisungen
$i = $i+$step
Until $i > $stop
[autoit]
Oder so:
[/autoit]
$i = $start
While $i < $stop
; deine anweisungen
$i = $i + $step
WEnd
machen,
je nach dem, ob die schleife mindestens einmal durchlaufen werden soll, oder nicht -
hast du schon überprüft, ob die ini standardkonform is?
wenn sie es nicht ist, kann des zu einem abbruch des lesevorgang führen -
moin mal wieder
ich denke ich werd jezt dauerhaft auf ISN umsteigen, des is wirklich super. aber ein bug is mir noch aufgefallen:
wenn ich eine Zeile mit Tab einrücke, und dann eine neue Zeile mache, wird die neue Zeile um so viele Tabs
eingerückt, wie in der oberen Zeile insgesamt sind, statt so viele, wie es bis zum ersten Buchstaben sind.Außerdem fände ich es praktisch, wenn auch lokale variablen angezeigt würden und man mit STRG + TAB bzw STRG + SHIFT + TAB zwischen den Dateireitern wechseln könnte
MFG
inventor -
erklärung zum oben genannten Bug:
Wenn ich in den Programmeinstellungen, Tab "Programmpfade", auf "..." klicke, erscheint ein Ordner suchen Dialog, wenn ich in dem Dialog links unten auf neuen ordner erstellen klicke, wird der ordner nicht in der Liste oben angezeigt, wenn ich in den explorer wechsle aber schon.
Der Ordner wird mit dem Name "Neuer Ordner (x)" angelegt, aber nicht im Dialog, in dem er erstellt wurde angezeigt, erst wenn ich den Ordner Suchen Dialog verlasse und erneut aufrufe, wird der erstellte Ordner angezeigt
(ist das gleiche bei mehreren Ordnern)MFG
inventor -
mir ist noch ein bug aufgefallen:
wenn ich unter win xp (sonst aktuell) in den datei öffnen /speichern dialogen einen neuen ordner erstelle, wird dieser erstellt, aber nicht angezeigt, erst dann, wenn ich den dialog neu öffne.
Die AutoIt Funktionen FileOpenDialog und FileSaveDialog Funktionieren bei mir aber einwandfrei
(falls du die verwendest
sonst is es aber wirklich richtig gut, auch wenn mir beim großteil noch nich ganz klar is, wie du das gemacht hast.
ein beeindrukter
inventor