vb6.0实现soap的客户端[2]

stream.
    objSerial.Init objConn.InputStream
   
    ' Build the SOAP message.
    With objSerial
        .startEnvelope              ' <SOAP-ENV:Envelope>
        .startBody                  ' <SOAP-ENV:Body>
        ' Use the Web method's name and schema target namespace URI.
        .startElement "GetNaturalInfo"
        .endElement
        .endBody                    ' </SOAP-ENV:Body>
        .endEnvelope                ' </SOAP-ENV:Envelope>
    End With
   
    ' Send the SOAP message.
    objConn.EndMessage
   
    Set objRead = New MSSOAPLib.SoapReader
   
    ' Initialize the SOAP reader to the connector's output stream.
    objRead.Load objConn.OutputStream
     
    Set objResults = objRead.RPCResult.childNodes
       
    ' Iterate through the returned nodes.
    For Each objNode In objResults
        'Debug.Print objNode.nodeValue
        MsgBox objNode.nodeTypedValue
     Next objNode
   
       
End Sub