Windows XP 上的 Vb6 http post 请求

Question

我在使用 VB6 发送 POST 请求时遇到问题。下面的代码在 Windows7 上工作正常，但在 Windows XP 上运行时没有任何运行时错误，它发送数据包但看起来它没有在数据包中附加发布数据。我的代码是这样的:

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

其中参数包含字符串“bar=foo&foo=bar”

我已经尝试添加对 Microsoft XML v4.0 的引用。

Answer 1

我找到了一个解决方案。我以这种方式更改了代码:

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

添加对“Microsoft WinHTTP 服务，版本 5.1”的引用

现在可以了。