InetGet("http://mmorpgaming.pytalhost.com/autoit/list.txt", @ScriptDir & ".\list.txt")
#include <file.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
Opt('MustDeclareVars', 1)
Local $label1, $label2, $progressbar1, $progressbar2, $button, $wait, $s, $msg, $m, $afile, $aData
Local $iSize, $iCount, $iBytesDone, $iFilesDone, $iPercent, $iDown
GUICreate("Updater", 220, 140)
$label1 = GUICtrlCreateLabel("Dateien", 10, 8, 200, 16)
$progressbar1 = GUICtrlCreateProgress(10, 25, 200, 20)
GUICtrlSetColor(-1, 32250); not working with Windows XP Style
$label2 = GUICtrlCreateLabel("Bytes", 10, 58, 200, 16)
$progressbar2 = GUICtrlCreateProgress(10, 75, 200, 20, $PBS_SMOOTH)
$button = GUICtrlCreateButton("Beenden", 75, 115, 70, 20)
GUISetState()
If InetGet("http://mmorpgaming.pytalhost.com/autoit/list.txt", @ScriptDir & "\list.txt", 1) > 0 Then
    If _FileReadToArray(@ScriptDir & ".\" & "list.txt", $afile) Then
        ;Schleife für Gesamtgröße und Anzahl der Files
        For $i = 1 To $afile[0]
            If Not FileExists(@ScriptDir & "\" & $afile[$i]) Then
                $iSize += InetGetSize("http://mmorpgaming.pytalhost.com/autoit/" & $afile[$i], 1)
                $iCount += 1
            EndIf
        Next
        GUICtrlSetData($label1, "0/" & $iCount & " Dateien")
        For $i = 1 To $afile[0]
            If Not FileExists(@ScriptDir & "\" & $afile[$i]) Then
                $iDown = InetGet("http://mmorpgaming.pytalhost.com/autoit/" & $afile[$i], @ScriptDir & ".\" & $afile[$i], 1)
                $iFilesDone += 1
                $iPercent = $iFilesDone / $iCount * 100
                GUICtrlSetData($progressbar1, $iPercent)
                GUICtrlSetData($label1, $iFilesDone & "/" & $iCount & " Dateien")
                $iBytesDone += $iDown
                $iPercent = $iBytesDone / $iSize * 100
                GUICtrlSetData($progressbar2, $iPercent)
                GUICtrlSetData($label2, $iBytesDone & "/" & $iSize & " Bytes")
            EndIf
        Next
    EndIf
Else
    MsgBox(16, "Fehler", "Updateliste nicht gefunden!")
EndIf
Do
    $msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE or $msg = $button
FileDelete("./list.txt")