Войти в систему

Home
    - Создать дневник
    - Написать в дневник
       - Подробный режим

LJ.Rossia.org
    - Новости сайта
    - Общие настройки
    - Sitemap
    - Оплата
    - ljr-fif

Редактировать...
    - Настройки
    - Список друзей
    - Дневник
    - Картинки
    - Пароль
    - Вид дневника

Сообщества

Настроить S2

Помощь
    - Забыли пароль?
    - FAQ
    - Тех. поддержка



Пишет nataxxa ([info]nataxxa)
@ 2006-07-28 13:26:00


Previous Entry  Add to memories!  Tell a Friend!  Next Entry
Настроение:помогите!!!!

Требуется помощь зала!!!
ПОМОГИТЕ!


Язык разработки - Visual Basic.
Надо: с помощью API-шных функций написать программу, которая проконнекчиваясь к Интернет через прокси-сервер (логин1 и пароль1 известны) скачивает файл с FTP-сервера (опять-таки, логин2 и пароль2 известны). Программа, работающая напрямую - есть, проблемы именно прокси-авторизацией для выхода в сеть. Предположительно, нужны какие-то пассы с HTTP(Open)SendRequest и InternetSetOption, но как-то не получается пока.
hINetSession = InternetOpen("FireFTPClient", 1, vbNullString, vbNullString, 0)

hSession = InternetConnect(hINetSession, serverName, _
serverPort, userName, userPassword, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)


Call FtpSetCurrentDirectory(hSession, directory)

hFile = FtpFindFirstFile(hSession, fileMask, file32, 0, 0)
Нужно переделать этот код для работы через прокси-сервер:
т.е. сначала отбить прокси, затем на ФТП
Или скажите, где в ЖЖ можно спросить. на форумах злые все какие-то.

А мы вам потом тоже поможем, чем сможем.



(Добавить комментарий)


(Анонимно)
2006-07-28 18:29 (ссылка)
Может чем нибудь помогу :)
Хотя не знаю, не проверял и с прокси не работал.

Есть такой вариант . В этой функции
hINetSession = InternetOpen("FireFTPClient", 1, vbNullString, vbNullString, 0)

второй параметр( единичку ), заменить на INTERNET_OPEN_TYPE_PROXY,
а третий параметр ( vbNullString ) на адрес прокси - сервера.

(Ответить) (Ветвь дискуссии)


[info]nataxxa@lj
2006-07-30 12:04 (ссылка)
Cgfcb,j? неведомый друг, попробуем:)

(Ответить) (Уровень выше) (Ветвь дискуссии)


(Анонимно)
2006-07-31 01:14 (ссылка)
пожалуйста
на всякий случай, INTERNET_OPEN_TYPE_PROXY это 3

(Ответить) (Уровень выше) (Ветвь дискуссии)


[info]nataxxa@lj
2006-07-31 01:58 (ссылка)
Спасибо еще раз!

(Ответить) (Уровень выше)