从www.microsoft.com下载soap toolkit 后引用 Microsoft soap type library 测试可以通过,下面是测试代码Private Sub Command1_Click() Dim soap As SoapClient30 Set soap = New SoapClient30On Error Resume Next 'soap.mssoapinit urlText.Text Call soap.MSSoapInit("http://localhost:80/web-services/HelloWorldBean?WSDL") If Err <> 0 Then MsgBox "初始化SOAP失败: " + Err.Description Else Call soap.setName("testName") Text1.Text = soap.getName() End IfEnd Sub
测试可以通过,下面是测试代码Private Sub Command1_Click()
Dim soap As SoapClient30
Set soap = New SoapClient30On Error Resume Next
'soap.mssoapinit urlText.Text
Call soap.MSSoapInit("http://localhost:80/web-services/HelloWorldBean?WSDL")
If Err <> 0 Then
MsgBox "初始化SOAP失败: " + Err.Description
Else
Call soap.setName("testName")
Text1.Text = soap.getName()
End IfEnd Sub