请问在VB中如何用Soap Tool kit访问其他工具开发的Web service，比如Delphi,java,.net等

Question

http://download.microsoft.com/download/xml/Install/3.0.1124.0/W98NT42KMeXP/EN-US/SoapToolkit30B1Samples.EXE
这是个演示，你看看吧

Answer 1

'定义Client为可以发送SOAP请求到服务器并能处理服务'
'器返回的应答的soapClient Object
Private Client As SoapClient
Set Client = New SoapClient
'使用WSDL文件作为输入文件初始化SoapClient
Client.mssoapinit "http://localhost:8080/HelloWorldWeb/wsdl/HelloWorld-service.wsdl"
'调用sayHello方法
txtEquals.Text = CStr(Client.sayHello(txtA.Text)

Answer 2

首先在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