Vb6 http post request on windows XP

vb6 msxml
aberti picture aberti · Mar 30, 2012 · Viewed 8.4k times · Source

I have a problem sending POST request with VB6. The code below works properly on Windows7 but on Windows XP it run without any runtime error and it sends the packet but looks like it doesn't append the post data in the packet. My code is like this:

Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "POST", url, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "Content-Length", Len(parameters)
xmlhttp.Send parameters

where paramaters contains the string "bar=foo&foo=bar"

I already tried to add the references to Microsoft XML, v4.0.

Answer

aberti picture aberti · Apr 3, 2012

I found a solution. I changed the code in this way:

Dim xmlhttp As WinHttp.WinHttpRequest 
...

Set xmlhttp = New WinHttp.WinHttpRequest

xmlhttp.open "POST", url, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "Content-Length", Len(parameters)
xmlhttp.Send parameters

Adding the reference to "Microsoft WinHTTP Services, version 5.1"

And now it works.

Related questions

Forcing MSXML to format XML output with indents and newlines

I am using MSXML 3.0 with Visual Basic 6 to store and retrieve configuration of my application. When saving the resulting DOMDocument to a XML file the root object gets rendered as a single very long line of text: <?xml version="1.0"?&…

Read More
How can I pretty-print XML source using VB6 and MSXML?

I've been looking after this for months now and I mostly found sites asking the same question. The answers I did found were always for .NET or C++ or involved XSLT.

Read More
Access Denied using MSXML

I have a VB6 backend for a classic ASP site. That VB then calls a web service on the same server using MSXML2.XMLHTTP. This works all of our servers but one. If I set the web service site to …

Read More