vb6调用webservice

引用控件msxml6.dll

Private Sub doReadDataPost()
    '????soap??? ????????????webservice???ù????á??????????soap12:Body
    Dim strtest, strxml As String
    On Error GoTo Z
    
    strtest = "<?xml version=""1.0"" encoding=""utf-8""?> "
    strtest = strtest + "<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/""> "
    strtest = strtest + "  <soap:Body> "
    strtest = strtest + "    <RunActionDirect xmlns=""http://www.starlims.com/webservices/""> "
    strtest = strtest + "      <actionID>" + Trim$(Text4.Text) + "</actionID>"
    strtest = strtest + "      <parameters> <anyType xsi:type=""xsd:string"">" + Trim$(Text3.Text) + "</anyType> </parameters>"
    strtest = strtest + "      <UserName>" + Trim$(Text7.Text) + "</UserName>"
    strtest = strtest + "      <Password>" + Trim$(Text8.Text) + "</Password>"
    strtest = strtest + "    </RunActionDirect>"
    strtest = strtest + "  </soap:Body> "
    strtest = strtest + "</soap:Envelope> "
    strxml = strtest
    
    '???????http??????????????????post???
    Dim h As MSXML2.ServerXMLHTTP60
    '???????XML?????????????д?????????XML?????????XML????
    Dim X As MSXML2.DOMDocument60
    '?????XML????
    Set X = New MSXML2.DOMDocument60
    '????д??SOAP?????????XML????
    X.loadXML strxml
    '?????http????
    Set h = New MSXML2.ServerXMLHTTP60
    '???????URL????Post??????????webservice??????????????
    h.open "POST", Trim$(Text2.Text), False
    h.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
    h.send (strxml)
    While h.readyState <> 4
    Wend
    '????????XML???
    Text1.Text = h.responseText
    
Z:
'    MsgBox "????????????????????????????"
End Sub