Автор Тема: [Сеть, интернет] Доступ FTP через прокси сервер  (Прочитано 118821 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн 1MDI1 [?]

  • Новичок
  • *
  • Сообщений: 4
  • Репутация: 0
  • Пол: Мужской
    • Награды
Всем привет!
Пишу скрипт для обновления списка отозванных сертификатов(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 и запустить подключение через прокси то не подключается!
Есть какие предложения?

Русское сообщество AutoIt


Оффлайн 1MDI1 [?]

  • Новичок
  • *
  • Сообщений: 4

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
Товарищи скриптеры, разве ни кто не сталкивался с такой задачей и ни кто не знает как решить данную проблему?

Оффлайн madmasles [?]

  • Глобальный модератор
  • *
  • Сообщений: 7790
  • Репутация: 2314
  • Пол: Мужской
  • Награды За модерирование форума
    • Награды
  • Версия AutoIt: 3.3.x.x
1MDI1,
А так не работает?
Код: AutoIt [Выделить]
;...
$hOpen = _FTP_Open('ZIC', $INTERNET_OPEN_TYPE_PROXY, '123.123.123.123:8000')
;или
$hOpen = _FTP_Open('ZIC', $INTERNET_OPEN_TYPE_PRECONFIG)
;...


Оффлайн 1MDI1 [?]

  • Новичок
  • *
  • Сообщений: 4

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
К сожалению ни тот ни другой вариант не работает :( я их уже опробовал

Русское сообщество AutoIt

Re: [Сеть, интернет] Доступ FTP через прокси сервер
« Ответ #3 Отправлен: Май 25, 2011, 04:22:12 »

Оффлайн 1MDI1 [?]

  • Новичок
  • *
  • Сообщений: 4

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
Все вопрос закрыт обошелся без использования функций 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


Русское сообщество AutoIt

Re: [Сеть, интернет] Доступ FTP через прокси сервер
« Ответ #4 Отправлен: Май 25, 2011, 09:35:07 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
3 Ответов
7535 Просмотров
Последний ответ Ноябрь 01, 2010, 07:00:45
от Redline
2 Ответов
3621 Просмотров
Последний ответ Декабрь 08, 2010, 21:10:04
от Arei
14 Ответов
7549 Просмотров
Последний ответ Июль 10, 2013, 05:53:15
от madmasles
2 Ответов
3914 Просмотров
Последний ответ Август 29, 2011, 12:33:57
от joiner
2 Ответов
3266 Просмотров
Последний ответ Август 09, 2012, 07:16:31
от Kverty
19 Ответов
15649 Просмотров
Последний ответ Апрель 08, 2013, 16:49:42
от RUVATA
1 Ответов
2285 Просмотров
Последний ответ Ноябрь 25, 2012, 11:44:16
от real_sm
2 Ответов
2355 Просмотров
Последний ответ Апрель 10, 2013, 12:56:12
от mef-t
4 Ответов
4720 Просмотров
Последний ответ Май 19, 2013, 06:27:54
от AZJIO
0 Ответов
1127 Просмотров
Последний ответ Июнь 19, 2015, 03:51:25
от Zalman1980