web-services - VB6 应用程序调用 Rest Service

Question

我必须从 VB6 调用 REST 服务。我按照这篇文章 获取/发布到 RESTful Web 服务，但没有取得太多成就。

到目前为止我所做的是：

Dim sUrl As String
Dim response As String
Dim xmlhttp

sUrl = "myserviceurl"
xmlhttp = CreateObject("MSXML2.xmlhttp")
xmlhttp.open "GET", sUrl, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

Set xmlhttp = Nothing

已将MSXML6添加到我的项目参考中。

我收到此错误：

  Object doesnt support this Method..

Answer 1

试试下面的代码

Dim xmlhttp As MSXML2.XMLHTTP 
Set xmlhttp = New MSXML2.XMLHTTP