vb6 访问WEB SERVICES 源码

Private Sub Command1_Click()
        Text1.Text = ddd(" * from set_car  ")
        '去掉以下三行注释后就转化为文本格式
        'Set x = New MSXML2.DOMDocument40
        'x.loadXML Text1.Text
        'Text1.Text = x.childNodes(1).Text
End Sub

Function ddd(aa As String) As String
    Dim QuerStr As String
    QuerStr = aa 'aa  为查询语句 不带SELECT 
    Dim strxml As String
    strxml = "<?xml version='1.0' encoding='utf-8'?>"
    strxml = strxml & "<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/'>"
    strxml = strxml & "<soap:Body>"  
    strxml = strxml & "<QueryRtn xmlns='http://tempuri.org/'>"    
    strxml = strxml & "<sQuerString>" & QuerStr & "</sQuerString>"
    strxml = strxml & "</QueryRtn>"
    strxml = strxml & "</soap:Body>"
    strxml = strxml & "</soap:Envelope>"
   
    Dim h As MSXML2.ServerXMLHTTP40
    Dim x As MSXML2.DOMDocument40
    Set x = New MSXML2.DOMDocument40
    x.loadXML strxml
    Set h = New MSXML2.ServerXMLHTTP40
   
    h.open "POST", "http://www.fenjin.com/CZGPSService/FJCZGPS.asmx", HTTP / 1.1
    h.setRequestHeader "Content-Type", "text/xml"
    h.setRequestHeader "Host", "www.fenjin.com"
    h.setRequestHeader "SOAPAction", "http://tempuri.org/QueryRtn"
    h.send (strxml)
    ddd = h.responseText
    '格式化XML格式
    ddd = Replace(ddd, "><", ">" & vbCrLf & "<")
End Function