Mahlzeit. Warum wird bei diesem Code die GUI nach dem sie vollständig angezeigt wird versteckt? oO Verstehe das nicht so ganz..
Meine Versuche das Problem zu beheben waren verschiedene Zahlen bei dem +-Wert der in der For Schleife verwendet wird , leider ohne Erfolg.
Spoiler anzeigen
#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=globe.ico
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <Array.au3>
Global $progress2, $name2, $iMsgBoxAnswer, $speicher, $name
InetGet("http://r1flex.kilu.de/Ini's/your.ini", @TempDir & "\your.ini")
InetGet("http://r1flex.kilu.de/Ini's/FTP-Checker2.ini", @TempDir & "\FTP-Checker2.ini")
InetGet("http://r1flex.kilu.de/Ini's/FTP.ini", @TempDir & "\FTP.ini")
If IniRead(@TempDir & "\FTP-Checker.ini", "Version", "Aktuell", "0") <> IniRead(@TempDir & "\FTP-Checker2.ini", "Version", "Aktuell", "0") Then
$iMsgBoxAnswer = MsgBox(68, "Version", "Es ist eine neuere Version online!" & @CRLF & "Möchtest du diese jetzt herunterladen und die alte Version überschreiben?")
EndIf
If $iMsgBoxAnswer = 6 Then
InetGet("http://r1flex.kilu.de/Meine Tools/FTP-Checker.exe", @ScriptDir & "\FTP-Checker.exe",1,1)
Exit
Else
EndIf
InetGet("http://r1flex.kilu.de/Ini's/pfade.ini", @TempDir & "\Pfade.ini")
WinSetTrans ("r1fleX's FTP Checker","",0)
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("r1fLeX's FTP Checker", 415, 225, @DesktopWidth / 2 - 200, @DesktopHeight / 2 - 100)
GUISetBkColor(0x808080)
$input1 = GUICtrlCreateInput("", 5, 202, 350, 20)
$pfad = GUICtrlCreateButton("Pfad", 355, 202, 60, 20)
$Group1 = GUICtrlCreateGroup("Download", 0, 0, 205, 199)
$Label1 = GUICtrlCreateLabel("Wähle eine Datei aus!", 42, 18, 109, 17)
$Button1 = GUICtrlCreateButton("Download", 55, 164, 97, 27, 0)
GUICtrlSetState($Button1, $GUI_DISABLE)
$Group2 = GUICtrlCreateGroup("Verzeichnis", 208, 0, 205, 199)
$Label2 = GUICtrlCreateLabel("Wähle ein Serververzeichnis!", 275, 10, 96, 25)
$List2 = GUICtrlCreateList("", 210, 36, 199, 123)
$List1 = GUICtrlCreateList("", 3, 36, 199, 123)
$Button2 = GUICtrlCreateButton("Wechseln", 264, 164, 97, 27, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=
If FileExists (@TempDir & "\pfad.ini") Then
GUICtrlSetData ($input1, IniRead ( @TempDir & "\pfad.ini","Einstellungen","Pfad"," Bitte wählen einen Speicherort --->"))
EndIf
Func OnAutoItExit()
FileDelete(@TempDir & "\FTP-Checker2.ini")
FileDelete(@TempDir & "\Pfade.ini")
EndFunc ;==>OnAutoItExit
$var2 = IniReadSection(@TempDir & "\Pfade.ini", "Pfade")
If Not @error Then
For $i = 1 To $var2[0][0]
GUICtrlSetData($List2, $var2[$i][1])
Next
Else
MsgBox(0, "Error", "Eine wichtige Datei konnte nicht eingelesen werden!")
EndIf
For $i = 0 To 255 +5
WinSetTrans ("r1fLeX's FTP Checker","",$i)
Sleep (1)
Next
While 1
If @InetGetActive = 1 Then
$internet = @InetGetBytesRead
$rechnung = @InetGetBytesRead / $progress2 * 100
ToolTip(Round(@InetGetBytesRead / 1024 / 1024, 1) & "MB" & "/" & Round($progress2 / 1024 / 1024, 1) & "MB" & " (" & Round($rechnung, 0) & "%)", @DesktopWidth / 2 - 90, 0, $name)
Else
ToolTip("")
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $pfad
$speicherpfad = FileSelectFolder("Pfad wählen", "::{00020D75-0000-0000-C000-000000000046}")
GUICtrlSetData($input1, $speicherpfad)
Case $Button1
If GUICtrlRead($input1) = "" Then
MsgBox(48, "Achtung", "Bitte wähle einen Speicherort")
Else
If @InetGetActive = 1 Then
TrayTip ( "Abwarten und Tee trinken...","Es ist immer nur ein Download zur gleichen Zeit erlaubt!")
Else
$speicherpfad = GUICtrlRead ($input1)
IniWrite ( @TempDir & "\pfad.ini","Einstellungen","Pfad",$speicherpfad)
$name2 = GUICtrlRead($List2)
$name = GUICtrlRead($List1)
$progress2 = InetGetSize("http://r1flex.kilu.de/" & $name2 & "/" & $name)
InetGet("http://r1flex.kilu.de/" & $name2 & "/" & $name, $speicherpfad & "\" & $name, 0, 1)
EndIf
EndIf
Case $Button2
GUICtrlSetData($List1, "")
$wechseln = GUICtrlRead($List2)
InetGet("http://r1flex.kilu.de/Ini's/FTP.ini", @TempDir & "\FTP.ini")
$iniread = IniReadSection(@TempDir & "\FTP.ini", $wechseln)
If Not @error Then
GUICtrlSetState($Button1, $GUI_ENABLE)
For $i = 1 To $iniread[0][0]
GUICtrlSetData($List1, $iniread[$i][1])
If Not @error Then
GUICtrlSetState($Button1, $GUI_ENABLE)
For $i = 1 To $iniread[0][0]
GUICtrlSetData($List1, $iniread[$i][1])
Next
Else
GUICtrlSetState($Button1, $GUI_DISABLE)
MsgBox(48, "Achtung", "Bitte wähle einen Ort aus!")
EndIf
Next
Else
GUICtrlSetState($Button1, $GUI_DISABLE)
MsgBox(48, "Achtung", "Bitte wähle einen Ort aus!")
EndIf
EndSwitch
WEnd