最近的项目中要用到web service,通过internet 发现vb就可以实现soap的客户端，要用到MSSOAPLib.SoapClient,MSSOAPLib.SoapSerializer...
这些东东.

实现代码如下(老外的)
VERSION 5.00
Begin 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
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public sClient As New MSSOAPLib.SoapClient
Private Const c_WSDL_URL As String = _
    "http://cst48/espresentation/webservices/systemstatus.asmx?WSDL"

''''You need soap Type library 3.0 and microsoft xml v2.6to run this example
Private Sub Command1_Click()

''''sClient.mssoapinit c_WSL_URL
Debug.Print Time

    TranslateBabel

Debug.Print Time
   
MsgBox "finish    "
End Sub

Public Sub TranslateBabel()

    '''' Purpose: Translates text from one language to another.
    '''' WSDL: http://services.xmltoday.com/vx_engine/wsdl_publish.vep/translate.wsdl
    '''' More info: http://www.xmethods.net/detail.html?id=94  http://www.56city.net
    
    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 WSDL''''s
    '''' <soap:address> tag''''s location attribute.
    objConn.Property("EndPointURL") = "http://cst48/espresentation/webservices/systemstatus.asmx"
    '''' Define the SOAP action. You can find it in the WSDL''''s
    '''' <soap:operation> tag''''s soapAction attribute for the matching
    '''' <operation> tag.
   
    ''''GetNaturalInfo is the name of the service
    objConn.Property("SoapAction") = "http://tempuri.org/GetNaturalInfo"
    ''''objConn.Property("SoapAction") = "GetNaturalInfo"
   
    '''' Begin the SOAP message.
    objConn.BeginMessage
   
    Set objSerial = New MSSOAPLib.SoapSerializer
    '''' Initialize the serializer to the connector''''s input 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