HTTP GET в VBS
Ответы 4
Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "http://www.example.com", False
o.send
' o.responseText now holds the response as a string.
У меня проблемы с использованием этого метода в Windows 2012, я думаю, это связано с множеством разных версий, выпущенных Microsoft. Я думаю об использовании другого метода для создания HTTP Get из vbs, любые идеи?
Простой пример для простого вопроса. На это у меня ушло 2 часа, и это все, что мне было нужно. Браво!
На момент написания вы не описали, что вы собираетесь делать с ответом или каков его тип содержимого. Ответ уже содержит очень простое использование MSXML2.XMLHTTP (я рекомендую более явный идентификатор MSXML2.XMLHTTP.3.0 progID), однако вам может потребоваться выполнить другие действия с ответом, это может быть не текст.
XMLHTTP также имеет свойство responseBody, которое является версией байтового массива ответа, и есть responseStream, который является оболочкой IStream для ответа.
Обратите внимание, что в случае требований на стороне сервера (например, VBScript, размещенного в ASP), вы должны использовать MSXML.ServerXMLHTTP.3.0 или WinHttp.WinHttpRequest.5.1 (который имеет почти идентичный интерфейс).
Вот пример использования XmlHttp для получения файла PDF и его сохранения: -
Dim oXMLHTTP
Dim oStream
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
oXMLHTTP.Open "GET", "http://someserver/folder/file.pdf", False
oXMLHTTP.Send
If oXMLHTTP.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write oXMLHTTP.responseBody
oStream.SaveToFile "c:\somefolder\file.pdf"
oStream.Close
End If
эй, Энтони! Как бы мы могли указать ключи аутентификации или аргументы запроса извне? или мы можем просто оставить эту часть URL-адреса.
@SushantKhurana: Это будет зависеть от того, что ожидает сервер. Вы можете включить дополнительные заголовки в запрос с помощью метода addHeader, поэтому, если вы контролируете оба конца, вы создаете собственный заголовок «x-myheader». Или вы можете использовать «POST», добавить заголовок Content-Type, например, «application / x-www-form-urlencoded», и передать параметр продолжения строки urlencoded методу send. Или, как вы говорите, включите значения в строку запроса. Это действительно зависит от того, что у вас есть на сервере.
да. Мне нужно сделать это только с помощью заголовка базовой HTTP-авторизации. Пример авторизации: базовая QWxhZGRpbjpvcGVuIHNlc2FtZQ ==
@ SushantKhurana @ Для базовой авторизации просто укажите имя пользователя и пароль в качестве 4-го и 5-го параметров при вызове метода XMLHttp open.
Если вы используете запрос GET для отправки данных ...
контрольный: http://techhelplist.com/index.php/tech-tutorials/37-windows-troubles/60-vbscript-sending-get-request
Проблема с MSXML2.XMLHTTP заключается в том, что существует несколько его версий с разными именами в зависимости от версии ОС Windows и исправлений.
это объясняет: http://support.microsoft.com/kb/269238
Мне повезло больше, используя vbscript для звонков
set ID = CreateObject("InternetExplorer.Application")
IE.visible = 0
IE.navigate "http://example.com/parser.php?key = " & value & "key2 = " & value2
do while IE.Busy....
.... и многое другое, но просто для того, чтобы выполнить запрос.
Это просто уродливо и неэффективно, зачем вам это делать? Каждый раз, когда вы вызываете этот код, вы создаете экземпляр iexplore.exe в фоновом режиме, который затем вызывает winsock.dll для обработки HTTP-запроса, тогда как объекты HTTP-запроса сервера делают это напрямую с гораздо меньшими накладными расходами.
strRequest = "<soap:Envelope xmlns:soap = ""http://www.w3.org/2003/05/soap-envelope"" " &_
"xmlns:tem = ""http://tempuri.org/"">" &_
"<soap:Header/>" &_
"<soap:Body>" &_
"<tem:Authorization>" &_
"<tem:strCC>"&1234123412341234&"</tem:strCC>" &_
"<tem:strEXPMNTH>"&11&"</tem:strEXPMNTH>" &_
"<tem:CVV2>"&123&"</tem:CVV2>" &_
"<tem:strYR>"&23&"</tem:strYR>" &_
"<tem:dblAmount>"&1235&"</tem:dblAmount>" &_
"</tem:Authorization>" &_
"</soap:Body>" &_
"</soap:Envelope>"
EndPointLink = "http://www.trainingrite.net/trainingrite_epaysystem" &_
"/trainingrite_epaysystem/tr_epaysys.asmx"
dim http
set http=createObject("Microsoft.XMLHTTP")
http.open "POST",EndPointLink,false
http.setRequestHeader "Content-Type","text/xml"
msgbox "REQUEST : " & strRequest
http.send strRequest
If http.Status = 200 Then
'msgbox "RESPONSE : " & http.responseXML.xml
msgbox "RESPONSE : " & http.responseText
responseText=http.responseText
else
msgbox "ERRCODE : " & http.status
End If
Call ParseTag(responseText,"AuthorizationResult")
Call CreateXMLEvidence(responseText,strRequest)
'Function to fetch the required message from a TAG
Function ParseTag(ResponseXML,SearchTag)
ResponseMessage=split(split(split(ResponseXML,SearchTag)(1),"</")(0),">")(1)
Msgbox ResponseMessage
End Function
'Function to create XML test evidence files
Function CreateXMLEvidence(ResponseXML,strRequest)
Set fso=createobject("Scripting.FileSystemObject")
Set qfile=fso.CreateTextFile("C:\Users\RajkumarJoshua\Desktop\DCIM\SampleResponse.xml",2)
Set qfile1=fso.CreateTextFile("C:\Users\RajkumarJoshua\Desktop\DCIM\SampleReuest.xml",2)
qfile.write ResponseXML
qfile.close
qfile1.write strRequest
qfile1.close
End Function
Вам нужны комментарии, чтобы дополнить ваш код.
Просто добавьте третий параметр bool, который указывает, должен ли вызов выполняться асинхронно или синхронно. Значение false означает, что это будет синхронный вызов. Также открытый API имеет еще два параметра для аутентификации, чтобы передать идентификатор пользователя и пароль, если это требуется вызываемым веб-сайтом.