用VB调用WebService的朋友们注意咯!!本模块支持同步/异步调用.
性能优越!如有任何意见或建议请发送邮件到:ray530@21cn.com 谢谢!!!
模块下载地址:
https://files.cnblogs.com/raylynn/SoapPro.rar
'*************************************************************************
'**模 块 名：Form1
'**说    明：SoapPro 使用示例。本模块包含同步与异步。
'**创 建 人：Ray
'**日    期：2007-03-05 10:02:11
'**修 改 人：
'**日    期：10:03 2007-3-5
'**描    述：
'**版    本：V1.0.0
'*************************************************************************

Private WithEvents SoapExecuter As SoapPro.SoapClientPro

Private Sub Command1_Click()
    '同步调用
    MsgBox SoapExecuter.ExecuteMethod("HelloWorld") & " _ 同步调用"
    
    '异步调用,注意异步调用返回值将是 RequesterID。
    Call SoapExecuter.ExecuteAsyncMethod("HelloWorld")
End Sub

Private Sub Form_Load()
    Set SoapExecuter = New SoapClientPro
    SoapExecuter.Initialize "http://www.ffrcw.com/service.asmx", Version11
End Sub

Private Sub SoapExecuter_ExecuteCompleted(Datas As String, RequesterID As String)
    '异步调用执行回调。
    MsgBox Datas & " _ 异步调用 RequesterID:" & RequesterID
End Sub