$hProxyURL = 'http.my.proxy.com:8080'
$hIEproxyPass = 0
$hLoginURL = ''
$hPassURL = ''
If $CmdLine[0] = 0 Then
ConsoleWrite('empty critical param')
Exit
EndIf
If $CmdLine[1] = 'help' Then
ConsoleWrite('param 1 = file directory\name ' & @CRLF & 'param 2 = out directory ' & @CRLF & 'param 3 = login (if param 3 = np then no proxy)' & @CRLF & 'param 4 = password ' & @CRLF & 'param 5 = proxy:port ')
Exit
EndIf
If $CmdLine[0] < 2 Then
$hdir = @ScriptDir & '\CRL\'
ConsoleWrite('param 2 - empty ... Use ' & $hdir & @CRLF)
Else
$hdir = $CmdLine[2] & '\'
EndIf
$hFileURL = FileOpen($CmdLine[1])
If $hFileURL = -1 Then
MsgBox(4096, 'Ошибка', 'Что со списком URL?')
Exit
EndIf
If $CmdLine[0] < 3 Then
ConsoleWrite('param 3 Login - empty' & @CRLF & 'export proxy settings IE' & @CRLF)
Else
$hLoginURL = $CmdLine[3]
$hIEproxyPass = 2
EndIf
If $CmdLine[0] < 4 Then
ConsoleWrite('param 4 password - empty ' & @CRLF & $hPassURL)
Else
$hPassURL = $CmdLine[4]
EndIf
If $CmdLine[0] < 5 Then
ConsoleWrite('param 5 proxy - empty... Use: ' & $hProxyURL & @CRLF)
Else
$hProxyURL = $CmdLine[5]
EndIf
if $CmdLine[0] > 2 Then
if $CmdLine[3] = "np" Then
ConsoleWrite("No proxy mode" & @CRLF)
Else
HttpSetProxy($hIEproxyPass,$hProxyURL, $hLoginURL, $hPassURL)
EndIf
EndIf
While 1
$sLine = FileReadLine($hFileURL)
If @error = -1 Then ExitLoop
$LensLine = StringLen($sLine)
$nsLine = $LensLine - StringInStr($sline,'/',0,-1)
$fName = StringRight($sLine, $nsLine)
Local $hDownload = InetGet($sLine, $hdir & $fName, 1, 1)
Do
Sleep(250)
Until InetGetInfo($hDownload, 2)
Local $aData = InetGetInfo($hDownload)
InetClose($hDownload)
ConsoleWrite($fName & ' size: ' & $aData[1] & ' rezult: ' & $aData[3] & @CRLF )
WEnd
ConsoleWrite($fName & ' size: ' & $aData[1] & ' rezult: ' & $aData[3] & @CRLF )
FileClose($hFileURL)
Мой полностью рабочий вариант с параметрами работающий через командную строку. Работает при кучах ограничений и стабильно качает файлы
Заложил 5 параметров:
1-й – «Путь\имяЛистаURL.Расширение» - обязательный . Если первым параметром передаётся help , то выводится описание параметров
2-ой – «ПутьВыгрузки» . При отсутствие данного параметра файлы загружаются в дирректорию скрипта в подкатолог CRL
3-й – Логин . Если вмето логина ввести np , то будет использован режим без proxy
4-й – Пароль
5-й – ПроксиСервер:Порт . Если не заполнен, то будет использован тот что зашит в коде
Пример команд
S:\CERT\CRLdownload.exe help
S:\CERT\CRLdownload.exe "S:\CERT\CRL\CRLlist.txt"
S:\CERT\CRLdownload.exe "S:\CERT\CRL\CRLlist.txt" "S:\CERT\CRL" np
S:\CERT\CRLdownload.exe "S:\CERT\CRL\CRLlist.txt" "S:\CERT\CRL" iamuser passvord01
S:\CERT\CRLdownload.exe "S:\CERT\CRL\CRLlist.txt" "S:\CERT\CRL" iamuser passvord01 http://vip-proxypac.comsa.com:8582/ProxyNTLM.pac
