Сохронение файла запросом методом HTTP POST / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сохронение файла запросом методом HTTP POST

2 сообщений из 2, страница 1 из 1

Сохронение файла запросом методом HTTP POST

#38496127

Casper2002

Гость

Имеется приблизительно такой код HTML:

Код: html

1.
2.
3.
4.
5.
6.
7.
8.
9.

<html>

<form name='forma' action='https://website/?mode=msgstate&groupid=2551492' method='post'>

<a href='' onClick='forma.csv.value=1; forma.submit(); forma.csv.value=0; return false;'><img src='/images/disk.png' title='save list' border=0></a>

<input type='hidden' name='csv' value=0><input type='hidden' name='bulk' value=0></form>

</html>

Нажатие на картинку disk.png инициирует процесс сохранения файла с сервера на локальный диск. Как можно тоже самое сделать на VBA?

Пытаюсь это сделать как-то так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

s_login = "xxxxx"
s_password = "xxxxxxx"

s_url = "https://website/"

Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "POST", s_url, False, s_login, s_password
 
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objHTTP.send "csv=0 mode=msgstate groupid=2551492"
 

  Text1.Value = objHTTP.responseText

Set objHTTP = Nothing

но что-то не выходит :(

...

Рейтинг:

0 / 0

10.12.2013, 19:39

| Ответить | Цитировать | Написать

Сохронение файла запросом методом HTTP POST

#38509072

Андрей159

Участник

Сообщения: 1 665

Рейтинг: 0 / 0

Возможно переадресация используется или скрипт (таймер). Исследуйте Fiddler2-ром.

...

Рейтинг:

0 / 0

22.12.2013, 02:44

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сохронение файла запросом методом HTTP POST

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&gotonew=1&tid=2156617]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	60ms
get topic data:	9ms
get first new msg:	7ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	1ms
others:	12ms

total:	166ms