Как я могу опубликовать запрос и получить ответ (анализ ответа) в Visual Basic - PullRequest
Новая
       11

Как я могу опубликовать запрос и получить ответ (анализ ответа) в Visual Basic

0 голосов
/ 16 февраля 2019

Я пытался сделать запрос с помощью Visual Basic, но код не работает.Может быть, есть кто-то, кто нашел ошибку? 

    Dim strURL As String
    Dim objHTTP
    Dim myxml As String
    Dim xmlhttpResponse As New Xml.XmlDocument

    myxml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & _
            "<findItemsByKeywordsRequest xmlns=""http://www.ebay.com/marketplace/search/v1/services"">" & _
            "<keywords>potter</keywords>" & _
     "</findItemsByKeywordsRequest>"

    strURL = "https://svcs.ebay.com/services/search/FindingService/v1"

    objHTTP = CreateObject("Microsoft.xmlhttp")

    objHTTP.Open("POST", strURL, False)
    objHTTP.setRequestHeader("X-EBAY-SOA-SECURITY-APPNAME", "xxxxxxxxxxxxxxxxxxxxxxxx")
    objHTTP.setRequestHeader("X-EBAY-SOA-OPERATION-NAME", "findItemsByKeywords")
    objHTTP.send(myxml)

    xmlhttpResponse = objHTTP.responseXML
    xmlhttpRoot = xmlhttpResponse.DocumentElement
    XMLResponse = objHTTP.responseText
    MsgBox(XMLResponse)
    xmlhttpResponse = objHTTP.responseXML
End Sub
...