VB6应用程序调用Rest服务

Question

我必须从VB6调用REST服务。我跟着这篇文章 Get/post to RESTful web service但无法取得多大成就。

到目前为止，我所做的是：

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