$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\';'S:\CERT\'
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
;ConsoleWrite($hIEproxyPass & @CRLF & $hProxyURL& @CRLF & $hLoginURL & @CRLF & $hPassURL)
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
;MsgBox(4096, 'Успех', $sLine)
$LensLine = StringLen($sLine) ;измерили строку
$nsLine = $LensLine - StringInStr($sline,'/',0,-1) ;поиском слева (-1) нашли первое вхождение разделителя и вычли из длины ссылки
$fName = StringRight($sLine, $nsLine); обрезали до разделителя слева
;MsgBox(4096, 'Имя файла', $fName) ; & $nsLine &'-'& $LensLine
Local $hDownload = InetGet($sLine, $hdir & $fName, 1, 1) ;скачали
;ConsoleWrite($fName & @CRLF)
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)