Hey ,
einige werden meinen FTP-Checker schon kennen...
Nun habe ich mich entschlossen mal meinen Sourcecode zu posten , so haben alle was davon.
Kleiner Hinweis für die Leute die vllt schon meine alte .exe decompiliert haben:
Hab noch eine %-Anzeige zum ToolTip hinzugefügt!
Bei Verbesserungsideen bitte posten!
Source - Relativ klein , nur 86 Zeilen
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?")
EndIf
If $iMsgBoxAnswer = 6 Then
Exit
InetGet("http://r1flex.kilu.de/Meine Tools/FTP-Checker.exe", @ScriptDir & "\FTP-Checker.exe")
Else
EndIf
InetGet("http://r1flex.kilu.de/Ini's/pfade.ini", @TempDir & "\Pfade.ini")
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("r1fLeX's FTP Checker", 415, 200, @DesktopWidth / 2 - 200, @DesktopHeight / 2 - 100)
GUISetBkColor(0x808080)
$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("Ort", 208, 0, 205, 199)
$Label2 = GUICtrlCreateLabel("Wähle den Ort aus!", 266, 18, 96, 17)
$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=
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
While 1
If @InetGetActive = 1 Then
$internet = @InetGetBytesRead
$rechnung = @InetGetBytesRead / $progress2 * 100
;773 / 1456 = 0,53 * 100 = 53 %
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 $Button1
$name2 = GUICtrlRead($List2)
$name = GUICtrlRead($List1)
$speicherpfad = FileSelectFolder("Pfad wählen", "::{00020D75-0000-0000-C000-000000000046}")
If @error = 1 Then
Else
$progress2 = InetGetSize("http://r1flex.kilu.de/" & $name2 & "/" & $name)
InetGet("http://r1flex.kilu.de/" & $name2 & "/" & $name, $speicherpfad & "\" & $name, 0, 1)
EndIf
Case $Button2
GUICtrlSetData($List1, "")
GUICtrlSetState($Button1, $GUI_ENABLE)
$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
For $i = 1 To $iniread[0][0]
GUICtrlSetData($List1, $iniread[$i][1])
Next
Else
MsgBox(48, "Fehler", "Es ist ein Fehler aufgetreten!")
EndIf
EndSwitch
WEnd
Ich möchte dieses Script in KEINEM anderen Forum sehen.
Hier gibts das .ico File - Das Unterste!