Скачивание файлов

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