Lotus Domino XmlHttp方式请求 WebService

 

以下是请求QQ号码是否在线功能的示例：

请求地址：http://www.webxml.com.cn/webservices/qqOnlineWebService.asmx

请求参数：QQ号码

Sub Initialize

    On Error Goto errormsg



    Dim FromDateTime As New NotesDateTime("")

    '请求体

    Dim XmlBody As String

    '请求结果

    dim ResultXml As String

    'web服务地址

    Dim SrvUrl As String

    SrvUrl=|http://www.webxml.com.cn/webservices/qqOnlineWebService.asmx|

    XmlBody=|<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">

          <soap:Body>

            <qqCheckOnline xmlns="http://WebXml.com.cn/">

              <qqCode>997717740</qqCode>

            </qqCheckOnline>

          </soap:Body>

        </soap:Envelope>|

    '声明XmlHttp请求对象

    Dim xmlhttp As Variant

    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")

    Call xmlhttp.Open("Post",SrvUrl, False,"","")

    Call xmlhttp.SetRequestHeader ("Content-Type","text/xml; charset=utf-8")

    Call xmlhttp.SetRequestHeader ("SOAPAction","http://WebXml.com.cn/qqCheckOnline")

    Call xmlhttp.SetTimeOuts(1000000,1000000,1000000,1000000)

    Call xmlhttp.send(XmlBody)
　　'打印请求结果到浏览器

    print xmlhttp.responseText



    Exit Sub

errormsg:

    Msgbox "Rule Error:" & Str(Erl) & "  " & Error

End Sub

返回结果：

<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<soap:Body>
　　<qqCheckOnlineResponse xmlns="http://WebXml.com.cn/">
　　　　<qqCheckOnlineResult>Y</qqCheckOnlineResult>
　　</qqCheckOnlineResponse>
</soap:Body>
</soap:Envelope>