vb6.0实现soap的客户端.doc

最近的项目中要用到web service,通过internet 发现vb就可以实现soap的客户端，要用到MSSOAPLib.SoapClient,MSSOAPLib.SoapSerializer.这些东东.实现代码如下(老外的)VERSION 5.00Begin VB.Form Form1 Caption = Form1 ClientHeight = 2475 ClientLeft = 60 ClientTop = 345 ClientWidth = 4575 LinkTopic = Form1 ScaleHeight = 2475 ScaleWidth = 4575 StartUpPosition = 3 Windows Default Begin VB.CommandButton Command1 Caption = Command1 Height = 615 Left = 960 TabIndex = 0 Top = 720 Width = 2295 EndEndAttribute VB_Name = Form1Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePublic sClient As New MSSOAPLib.SoapClientPrivate Const c_WSDL_URL As String = _ http:/cst48/espresentation/webservices/systemstatus.asmx?WSDLYou need soap Type library 3.0 and microsoft xml v2.6to run this examplePrivate Sub Command1_Click()sClient.mssoapinit c_WSL_URLDebug.Print Time TranslateBabelDebug.Print Time MsgBox finish End SubPublic Sub TranslateBabel() Purpose: Translates text from one language to another. WSDL: /vx_engine/wsdl_publish.vep/translate.wsdl More info: /detail.html?id=94 Dim objClient As MSSOAPLib.SoapClient To package SOAP request. Dim objSerial As MSSOAPLib.SoapSerializer To read SOAP response. Dim objRead As MSSOAPLib.SoapReader To connect to Web service using SOAP. Dim objConn As MSSOAPLib.SoapConnector To parse the SOAP response. Dim objResults As MSXML2.IXMLDOMNodeList Dim objNode As MSXML2.IXMLDOMNode Set up the SOAP connector. Set objConn = New MSSOAPLib.HttpConnector Define the endpoint URL. This is the actual running code, not the WSDL file path! You can find it in the WSDLs tags location attribute. objConn.Property(EndPointURL) = http:/cst48/espresentation/webservices/systemstatus.asmx Define the SOAP action. You can find it in the WSDLs tags soapAction attribute for the matching tag. GetNaturalInfo is the name of the service objConn.Property(SoapAction) = /GetNaturalInfo objConn.Property(SoapAction) = GetNaturalInfo Begin the SOAP message. objConn.BeginMessage Set objSerial = New MSSOAPLib.SoapSerializer Initialize the serializer to the connectors input stream. objSerial.Init objConn.InputStream Build the SOAP message. With objSerial .startEnvelope .startBody Use the Web methods name and schema target namespace URI. .startElement GetNaturalInfo .endElement .endBody .endEnvelope End With Send the SOAP message. objConn.EndMessage Set objRead = New MSSOAPLib.SoapReader Initialize the SOAP reader to the connectors output stream. objRead.Load objConn.OutputStream Set objResults = objRead.RPCResult.childNodes Iterate