如何从VB6使用Web服务？

Question

我需要从我的VB6程序中使用外部Web服务.如果可能的话,我希望能够在没有SOAP工具包的情况下部署我的程序,但这不是必需的.我没有Web服务源,也没有创建它.它是供应商提供的服务.

那么在SOAP工具包之外,从VB6使用Web服务的最佳方法是什么？

Answer 1

我使用此函数从Web服务获取数据.

Private Function HttpGetRequest(url As String) As DOMDocument
    Dim req As XMLHTTP60
    Set req = New XMLHTTP60
    req.Open "GET", url, False
    req.send ""

    Dim resp As DOMDocument
    If req.responseText <> vbNullString Then
        Set resp = New DOMDocument60
        resp.loadXML req.responseText
    Else
        Set resp = req.responseXML
    End If
    Set HttpGetRequest = resp
End Function