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
post запрос в vbs
Здравствуйте.
Мне нужно отправить самый обычный post-запрос из vbs(access) и получить ответ. Пробовал сделать через Msxml2.XMLHTTP , но что-то пока не очень получается:
Если закомментировать строку "XHR.onreadystatechange = HandleStateChange" , то файервол говорит, что access просится в интернет, но как же теперь узнать ответ сервера без обработчика onreadystatechange. Если запустить как есть, то MsgBox ("1") срабатывает, но файервол молчит, а значит, и запроса не было.
зы: мне не нужно именно через Msxml2.XMLHTTP, если есть способ получше, предлагайте.
Мне нужно отправить самый обычный post-запрос из vbs(access) и получить ответ. Пробовал сделать через Msxml2.XMLHTTP , но что-то пока не очень получается:
Код:
Если закомментировать строку "XHR.onreadystatechange = HandleStateChange" , то файервол говорит, что access просится в интернет, но как же теперь узнать ответ сервера без обработчика onreadystatechange. Если запустить как есть, то MsgBox ("1") срабатывает, но файервол молчит, а значит, и запроса не было.
зы: мне не нужно именно через Msxml2.XMLHTTP, если есть способ получше, предлагайте.
Как я понял, вам просто нужно получить значение с сервера? Что тогда на счет GET запроса?
Вот эта штука сохраняет в текстовый файл значение с example.com:
Вот эта штука сохраняет в текстовый файл значение с 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
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