asdf

wenn wieder jemand meint er kennt sich mit prg. sprachen aus, frag ihn einfach das das hier ist, macht, kann

$Form1 = GUICreate("xxxxxxxxxxxx", 190, 106, 152, 104)
$Button1 = GUICtrlCreateButton("xxxxxxx", 50, 60, 90, 25)
$Progress1 = GUICtrlCreateProgress(20, 24, 150, 20)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
Dim $download[1]
Global $aSize[10], $aGotSize[10], $Size = 0, $GotSize=0
For $i = 0 To UBound($download)-1
$aSize[$i] = InetGetSize("http://xx.xxxxxxxxxxxx.pl/xxxxxxxxx.xxx")
$Size += $aSize[$i]
Next
MsgBox(0, "Gesamt", $Size & " Bytes")
For $i = 0 To UBound($download)-1
$download[$i] = InetGet("http://xx.xxxxxxxxxxxx.pl/xxxxxxxxx.xxx", "C:xxxxxxxxxxxxxxx" & $i & ".xxx")
$GotSize += $aSize[$i]
GUICtrlSetData($Progress1, ($GotSize / $Size)*100)
Next
Dim $download[1]
Global $aSize[10], $aGotSize[10], $Size = 0, $GotSize=0
For $i = 0 To UBound($download)-1
$aSize[$i] = InetGetSize("http://xx.xxxxxxxxxx.pl/xxxxxxxxxxxx.xxx")
$Size += $aSize[$i]
Next
MsgBox(0, "Gesamt", $Size & " Bytes")
For $i = 0 To UBound($download)-1
$download[$i] = InetGet("http://xx.xxxxxxxxx.pl/xxxxxxxxxxxxxx.xxx", "C:xxxxxxxxxxxxxxxxxxxxxxxx" & $i & ".xxx")
$GotSize += $aSize[$i]
GUICtrlSetData($Progress1, ($GotSize / $Size)*100)
Next
Dim $download[1]
Global $aSize[10], $aGotSize[10], $Size = 0, $GotSize=0
For $i = 0 To UBound($download)-1
$aSize[$i] = InetGetSize("http://xx.xxxxxxxx.pl/xxxxxxxxxxxxxxxxxxxxx.xxx")
$Size += $aSize[$i]
Next
MsgBox(0, "Gesamt", $Size & " Bytes")
For $i = 0 To UBound($download)-1
$download[$i] = InetGet("http://xx.xxxxxxxx.pl/xxxxxxxxxxxxxxxxxx.xxx", "C:xxxxxxxxxxxxxxxxxxxxxx" & $i & ".xxx")
$GotSize += $aSize[$i]
GUICtrlSetData($Progress1, ($GotSize / $Size)*100)
Next
Dim $download[10]
Global $aSize[10], $aGotSize[10], $Size = 0, $GotSize=0
For $i = 0 To UBound($download)-1
$aSize[$i] = InetGetSize("http://xx.xxxxxxx.jp/xxxxxxxx/xxxxxxxx/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.xxx")
$Size += $aSize[$i]
Next
MsgBox(0, "Gesamt", $Size & " Bytes")
For $i = 0 To UBound($download)-1
$download[$i] = InetGet("http://xx.xxxxxxxx.jp/xxxxxxxx/xxxxxxxx/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.xxx", "C:xxxxxxxxxxxxxxxxxx" & $i & ".xxx")
$GotSize += $aSize[$i]
GUICtrlSetData($Progress1, ($GotSize / $Size)*100)
Next
Dim $download[10]
Global $aSize[10], $aGotSize[10], $Size = 0, $GotSize=0
For $i = 0 To UBound($download)-1
$aSize[$i] = InetGetSize("http://www.xxxxxxxxxxxx.com/xxxxxxxxxxx/xxxxxxx/xxxxxxxxxxxxxxxx.xxxx")
$Size += $aSize[$i]
Next
MsgBox(0, "Gesamt", $Size & " Bytes")
For $i = 0 To UBound($download)-1
$download[$i] = InetGet("http://www.xxxxxxxxxxx.com/xxxxxxxxx/xxxxxxxxxxx/xxxxxxxxxxxxxxxxx.xxxx", "C:xxxxxxxxxxxxxxx" & $i & ".xxx")
$GotSize += $aSize[$i]
GUICtrlSetData($Progress1, ($GotSize / $Size)*100)
Next
MsgBox(0,"","Fertig")
EndSwitch
WEnd