Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: 6439
Последний выпуск: 19.06.2015

post запрос в vbs

49K
09 июля 2009 года
Riim
2 / / 09.07.2009
Здравствуйте.
Мне нужно отправить самый обычный post-запрос из vbs(access) и получить ответ. Пробовал сделать через Msxml2.XMLHTTP , но что-то пока не очень получается:
Код:
Option Compare Database

Private Sub Form_Open(Cancel As Integer)

Set XHR = CreateObject("Msxml2.XMLHTTP.3.0")

XHR.onreadystatechange = HandleStateChange

XHR.Open "POST", "http://mysite.ru/", True
XHR.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XHR.send ("")

End Sub

Private Function HandleStateChange()
MsgBox ("1")
End Function


Если закомментировать строку "XHR.onreadystatechange = HandleStateChange" , то файервол говорит, что access просится в интернет, но как же теперь узнать ответ сервера без обработчика onreadystatechange. Если запустить как есть, то MsgBox ("1") срабатывает, но файервол молчит, а значит, и запроса не было.

зы: мне не нужно именно через Msxml2.XMLHTTP, если есть способ получше, предлагайте.
99K
15 апреля
Potential Hacker
1 / / 15.04.2018
Как я понял, вам просто нужно получить значение с сервера? Что тогда на счет GET запроса?
Вот эта штука сохраняет в текстовый файл значение с example.com:
 
Код:
Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
o.open "GET", "http://example.com", False
o.send
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("response.txt", True)
tf.WriteLine o.responseText

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог