Posting XML To HTTPS

Question

0 个投票

Good afternoon,

I am looking to query a private web server by uploading an XML request and reading the XML response. In VBA I use code similar to this:

         Dim oWinhttp As WinHttpRequest
         Set oWinhttp = New WinHttpRequest
         Dim result As Variant
    With oWinhttp
         Call .SetTimeouts(300000, 300000, 300000, 300000)
         Call .Open("POST", "https://xml.service.com/comm/xml/submit")
         Call .SetCredentials("username", "password", 0)
         Call .SetRequestHeader("POST", "/comm/xml/submit HTTP/1.1")
         Call .SetRequestHeader("HOST", "xmltrn.xml.com")
         Call .SetRequestHeader("Content-Type", "text/xml")
         Call .SetRequestHeader("Content-Length", Len(sXML))
         Call .SetRequestHeader("SOAPAction", "/comm/xml/submit")
         Call .Send(sXML)
         'Wait for the response asynchronously.
         Call .WaitForResponse
         result = .ResponseText