Есть скрипт, который качает файлы по ссылкам.
Но он качает только первый файл все время. Как сделать так чтобы он качал все файлы по порядку?
Код:
Global $ArrayFileName[9]=[ _
"memtest86-iso.zip", _
"v35fdd.zip", _
"mhdd32ver4.6iso.zip", _
"TinyCore-current.iso", _
"slitaz-rolling-core.iso", _
"pra03-1608middle.iso", _
"systemrescuecd-x86-5.2.2.iso", _
"clonezilla-live-2.5.5-38-amd64.zip", _
"gparted-live-0.31.0-1-amd64.iso"]
Global $ArrayFileURL[9]=[ _
"https://www.memtest86.com/downloads/memtest86-iso.zip", _
"http://www.ihdd.ru/download/software/victoria/v35fdd.zip", _
"http://www.ihdd.ru/download/software/mhdd/mhdd32ver4.6iso.zip", _
"http://www.tinycorelinux.net/9.x/x86/release/TinyCore-current.iso", _
"http://distro.ibiblio.org/slitaz/iso/rolling/slitaz-rolling-core.iso", _
"https://mirror.yandex.ru/puppyrus/puppyrus-a/pra03/iso/1608/pra03-1608middle.iso", _
"https://sourceforge.net/projects/systemrescuecd/files/sysresccd-x86/5.2.2/systemrescuecd-x86-5.2.2.iso", _
"https://osdn.net/frs/redir.php?m=cznic&f=clonezilla%2F69273%2Fclonezilla-live-2.5.5-38-amd64.zip", _
"https://sourceforge.net/projects/gparted/files/gparted-live-stable/0.31.0-1/gparted-live-0.31.0-1-amd64.iso"]
$string = ""
For $i In $ArrayFileURL
$id = Download($ArrayFileURL[$i], $ArrayFileName[$i])
While InetGetInfo($id,2) = True
InetGetInfo($id,0)
If InetGetInfo($id,2)= False Then
MsgBox(0,"","Error")
EndIf
WEnd
Next
MsgBox(4096, "", "Результат: " & @CRLF & $id)
Func Download($ArrayFileURL, $ArrayFileName)
$FileSaveLocation = @ScriptDir & "\" & $ArrayFileName
$FileSize = InetGetSize($ArrayFileURL)
if $FileSize = 0 Then
MsgBox(0,"","Не удалось получить размер файла!")
Exit
EndIf
$FileDownload = InetGet($ArrayFileURL, $FileSaveLocation, 1,1)
ProgressOn("", "", "", -1)
Do
$Percentage = InetGetInfo($FileDownload, 0) * 100 / $FileSize
ProgressSet($Percentage, Round($Percentage, 0) & "% Загружено " & Round(InetGetInfo($FileDownload, 0) / 1048576, 2) & " из " & Round($FileSize / 1048576, 2) & " MB", "Загрузка")
Sleep(250)
Until InetGetInfo($FileDownload, 3)
If @error Then
Exit
EndIf
ProgressOff()
EndFunc
Но он качает только первый файл все время. Как сделать так чтобы он качал все файлы по порядку?