Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Доступ FTP через прокси сервер

Ответить
Настройки темы
[решено] Доступ FTP через прокси сервер

Аватара для 83MDI38

Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать

Всем привет!
Пишу скрипт для обновления списка отозванных сертификатов(CRL) который должен проверять обновился ли CRL и если обновился то устанавливать его снова но есть одна проблема не могу подключится к FTP через прокси сервер.
Код: Выделить весь код
#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
и запустить подключение через прокси то не подключается!
Есть какие предложения?

Отправлено: 09:23, 24-05-2011

 

Аватара для 83MDI38

Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

Отправлено: 05:08, 25-05-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для 83MDI38

Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать

Все вопрос закрыт обошелся без использования функций FTP а заменил получение фала следующей функцией:
Код: Выделить весь код
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

Отправлено: 09:38, 25-05-2011 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Доступ FTP через прокси сервер

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Proxy/NAT - Гостевой доступ провайдера + интернет через прокси NordSig Сетевые технологии 0 04-05-2011 19:55
Proxy/NAT - Прямой доступ к компьютеру, работающему через прокси antikiller_bm Сетевые технологии 1 09-02-2010 22:46
FreeBSD - сквид через прокси сервер sonic2006 Общий по FreeBSD 5 13-03-2009 22:58
Доступ к интернету через прокси? DIMAIN Сетевые технологии 7 25-11-2006 20:45
Почтовый клиент, умеющий работать через прокси сервер Bugs Microsoft Windows 95/98/Me (архив) 4 06-06-2002 12:51


« Предыдущая тема | Следующая тема »


 
Переход