Question

我需要从VB6对RESTful Web服务进行一些GET和POST。最好和最简单的方法是什么？

Answer 1

您需要添加对MSXML库的引用：

Dim sUrl As String
Dim response As String
Dim xmlhttp

Set sUrl = "http://my.domain.com/service/operation/param"

Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "POST", sURL, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send()

Dim response As String = xmlhttp.responseText

Set xmlhttp = Nothing

Answer 2

我最近在一个旧的遗留应用程序中需要这个GET请求，并且由于接受的答案没有编译，我想我会发布一些工作代码。我相信它将来会帮助一些使用VB6的可怜鞋底;）这是一个很好的清洁功能。

Public Function WebRequest(url As String) As String
    Dim http As MSXML2.XMLHTTP
    Set http = CreateObject("MSXML2.ServerXMLHTTP")

    http.Open "GET", url, False
    http.Send

    WebRequest = http.responseText
    Set http = Nothing
End Function

以下是示例用法：

Dim result As String
Dim url As String

url = "http://my.domain.com/service/operation/param"
result = WebRequest(url)

快乐的VB6ing！：）

Answer 3

如果您需要从REST Web服务进行GET / POST，您只需将HTTP请求写入Web服务的URL：

http://www.webservicehost.com/webserviceop?<any parameters>

如果需要传递复杂对象，则需要对它们进行序列化，然后将它们作为参数传递

然后，您可以以Web服务决定返回的任何格式获取HTTP响应（JSON，XML等）

获取/发布到RESTful Web服务

3 个答案: