怎样在VB6中访问WEBSERVICE

Question

俺想在VB6中调用WEBSERVICE，可是不知道怎么用，听说有专门给VB6用的SOAP开发包，谁能给个具体的例子？

Answer 1

在VB中调用Webservice实例这个就要相对来说复杂一些 
首先在vb中建立一个”标准EXE”的工程。添加引用：Microsoft  Soap  Type  library。注意：如果没有安装Microsoft  Soap  Toolkit,是没有这个类型库的。 
可以在http://www.ourfly.com中下载。 
添加一个text 
Private  Sub  Form_Load() 
        Text1.Text  =  add() 
End  Sub Public  Function  Add()  As  String 
    Dim  objSoapClient  As  New  SoapClient 
    objSoapClient.ClientProperty("ServerHTTPRequest")  =  True 
    Call  objSoapClient.mssoapinit("http://localhost/webserver/service1.asmx?WSDL",  "Service1",  "Service1Soap") 
这句也可以 
objSoapClient.mssoapinit("http://localhost/webserver/service1.asmx?WSDL")         Add  =  objSoapClient.Show("龙卷风.NET") 
End  Function 调试成功需要注意的： 
运行服务端webservice的程序，出现下面时 
支持下列操作。有关正式定义，请查看服务说明。 
点击服务说明，会得到完整的wsdl文件 
http://localhost/webserver/Service1.asmx?WSDL 
我们就要使用这个文件，其中包含了我们定义的方法等等。 Mssoapinit(bstrWSDLFile  as  string,[bStrServiceName  as  string  ],[bStrport  as  string  ]  ,[bstrWSMLDile  as  string])的用法： 
其中第二个，第三个参数在wsdl文件中可以找到。也可以省略。 

Answer 2

下面是以前网友调试成功的例子
Private Client As SoapClient
Dim soap
Private Sub Connect()
   Set Client = New SoapClient30
   Client.ClientProperty("ServerHTTPRequest") = True
   Call Client.MSSoapInit("http://localhost:7001/client/Client/wsdl.jsp", "ClientRemote", "ClientRemotePort")
End Sub
 
Private Sub getTemperature_Click()
    On Error GoTo ErrorHandler
    
    Connect
    
    Exit Sub
ErrorHandler:
    MsgBox Client.FaultString, vbExclamation
End Sub