[Сеть, интернет] Доступ FTP через прокси сервер

[1MDI1 [?]]

Всем привет!
Пишу скрипт для обновления списка отозванных сертификатов(CRL) который должен проверять обновился ли CRL и если обновился то устанавливать его снова но есть одна проблема не могу подключится к FTP через прокси сервер.

Код: AutoIt [Выделить]

#include <FTPEx.au3>
#include <Array.au3>
#include <Crypt.au3>
$server = '10.0.1.111'
$username = ''
$pass = ''
$Dir = '/reg/intcrlinfo/'
$Open = _FTP_Open('ZIC')
if @error then
    MsgBox(64,"Error","Ошибка подключения")
    Exit
EndIf
$Conn = _FTP_Connect($Open, $server, $username, $pass,1)
if @error then
    MsgBox(64,"Ошибка!","Не могу подключиться к FTP " & @error)
    _FTP_Close($Open)
    Exit
EndIf
;проверка актуальности CRL
if FileExists(@ScriptDir & '\4be.crl') Then
    _FTP_FileGet($Conn,$Dir & '4be.crl', @ScriptDir & '\4be1.crl' )
    _Crypt_Startup()
        $hashLocal=_Crypt_HashFile(@ScriptDir & '\4be.crl',$CALG_MD5)
        $hashRemote=_Crypt_HashFile(@ScriptDir & '\4be1.crl',$CALG_MD5)
    _Crypt_Shutdown()
        if $hashLocal=$hashRemote Then
            _FTP_Close($Open)
            Exit
        Else
            instCRL()
        EndIf
Else
    instCRL()
EndIf
;получение и установка CRL
Func instCRL()
    _FTP_FileGet($Conn,$Dir & '4be.crl', @ScriptDir & '\4be.crl' )
    If @error Then
        _FTP_Close($Open)
        Exit
    EndIf
    _FTP_Close($Open)
    $comm = @SystemDir & '\rundll32.exe cryptext.dll,CryptExtAddCRL ' & @ScriptDir &'\4be.crl'
    Run(@ComSpec & " /c " & $comm, "", @SW_HIDE)
    WinWaitActive("Мастер импорта сертификатов")
    Send("{ENTER}")
    WinWaitActive("Мастер импорта сертификатов","Хранилище сертификатов")
    Send("{ENTER}")
    WinWaitActive("Мастер импорта сертификатов","Завершение мастера импорта сертификатов")
    Send("{ENTER}")
EndFunc

Этот код работает в обход прокси. А если прописать прокси в

Код: [Выделить]

_FTP_Open и запустить подключение через прокси то не подключается!
Есть какие предложения?

[1MDI1 [?]]

Товарищи скриптеры, разве ни кто не сталкивался с такой задачей и ни кто не знает как решить данную проблему?

[madmasles [?]]

1MDI1,
А так не работает?

Код: AutoIt [Выделить]

;...
$hOpen = _FTP_Open('ZIC', $INTERNET_OPEN_TYPE_PROXY, '123.123.123.123:8000')
;или
$hOpen = _FTP_Open('ZIC', $INTERNET_OPEN_TYPE_PRECONFIG)
;...

[1MDI1 [?]]

К сожалению ни тот ни другой вариант не работает я их уже опробовал

[1MDI1 [?]]

Все вопрос закрыт обошелся без использования функций FTP а заменил получение фала следующей функцией:

Код: AutoIt [Выделить]

Func getCRL($file)
    Local $hDownload = InetGet("ftp://ucecp.e-zab.ru/reg/intcrlinfo/4be.crl", @ScriptDir & $file, 1, 1)
Do
    Sleep(250)
Until InetGetInfo($hDownload, 2)    ; Check if the download is complete.
InetClose($hDownload)   ; Close the handle to release resourcs.
EndFunc