最简单的vb6访问Web服务(WSDL)的组件

(声明：魏滔序原创，转贴请注明出处。)
闲暇之余写了这个SOAP组件，下载试用的请回复一下。
请把你试用中遇到的问题告诉我，我完善后开源。
下载地址：http://www.chenoe.com/developer/library/soap.dll

示例代码：

 

Option Explicit
Private WithEvents SOAP As SOAPClient
Private Sub Command1_Click()
    Dim url As String
    Dim a As String, b As String, c As Integer

    url = "http://www.chenoe.com/WebService/WS.asmx"       '只为测试，本地址无效。
    SOAP.Timeout = 10000
    If SOAP.Initialize(url, , , 0) Then
        MsgBox SOAP.CallWebService("GetProtocol", a, b, c)
    End If
End Sub

Private Sub Form_Load()
    Set SOAP = New SOAPClient
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set SOAP = Nothing
End Sub

Private Sub SOAP_Error(ByVal Code As Long, ByVal Description As String, ByVal ServerResult As String)
    MsgBox Description & vbCrLf & ServerResult             '错误信息
End Sub

Private Sub SOAP_Progress(ByVal Value As Long)
    Me.ProgressBar1.Value = Value                          '显示进度
End Sub