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

ReSQL.ru

2.0.59

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

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

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

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

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

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

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

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

10.12.2013, 19:39

#38496127

Casper2002

Гость

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

Имеется приблизительно такой код 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

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

22.12.2013, 02:44

#38509072

Андрей159

Участник

Сообщения: 1 665
Рейтинг: 0 / 0

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

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

...

Рейтинг:

0 / 0

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

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

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

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

start [/forum/topic.php?fid=60&mobile=1&tid=2156617]:	0ms
get settings:	11ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	48ms
get topic data:	10ms
get forum data:	2ms
get page messages:	36ms
get tp. blocked users:	1ms
others:	251ms

total:	376ms