3 分别在两个按钮cmdAdd和cmdMinus中写上如下代码

Private Sub cmdAdd_Click()     '测试add方法     On Error Resume Next     Dim SoapClient As Object         Set SoapClient = CreateObject("MSSOAP.SoapClient30")     Call SoapClient.MSSoapInit2(Text1.Text, "", "", "CalcService", "")     If Err.Number <> 0 Then         MsgBox SoapClient.FaultString, vbExclamation         Exit Sub     End If     ' Now the client can call an operation listed in the portType element     ' specified when calling mssoapinit().     Text4.Text = CStr(SoapClient.Add(Val(Text2.Text), Val(Text3.Text)))         If Err.Number <> 0 Then         MsgBox SoapClient.FaultString, vbExclamation         Exit Sub     End If End Sub   Private Sub cmdMinus_Click()     '测试substract方法     On Error Resume Next     Dim SoapClient As Object         Set SoapClient = CreateObject("MSSOAP.SoapClient30")     Call SoapClient.MSSoapInit2(Text1.Text, "", "", "CalcService", "")     If Err.Number <> 0 Then         MsgBox SoapClient.FaultString, vbExclamation         Exit Sub     End If     ' Now the client can call an operation listed in the portType element     ' specified when calling mssoapinit().     Text7.Text = CStr(SoapClient.subtract(Val(Text5.Text), Val(Text6.Text)))         If Err.Number <> 0 Then         MsgBox SoapClient.FaultString, vbExclamation         Exit Sub     End If End Sub

其中需要注意的是，MSSoapInit2方法简单地说明如下：

HRESULT MSSoapInit2(           [in] VARIANT par_WSDLFile,           [in] VARIANT par_WSMLFile,           [in] BSTR par_ServiceName,           [in] BSTR par_Port,           [in] BSTR par_Namespace);   par_WSDLFile                  WSDL文件的位置，本例中为 http://localhost:8080/axis/CalcService.jws?wsdl par_WSMLFile                  本例中为空 par_ServiceName              本例中为空 par_Port                     服务端口号，可以从wsdl文件中找到。 par_Namespace                本例中为空

关于Microsoft SOAP TOOLKIT 3.0的详细说明，我会以后，专门写文章介绍。

4 运行，并且测试。

总结，应用Web Service技术，我们已经看到了，用VB编写的程序一样可以享用JAVA技术，当然也可以享用.NET技术，当然java编写的应用一样可以享用VB6或.NET开发的WebService。这项技术的应用必将给信息系统的结构模式带来全新的改变。