一个VB调用WebService的问题

Question

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

Answer 1

to holydiablo(鱼头) :能给个例子么？ 谢谢！！！

Answer 2

手头的例子没有
不过这个站点还算不错，你看看http://www.ywdragon.net/f.asp?o=1118

Answer 3

to  holydiablo(鱼头):谢谢！！！那个网站里的内容还没有解决我的问题，我现在换一个思路，用VB写xml文件，然后调用WebService传到服务器上来，在服务器上反序列化，有两个问题需要解决：
1. 如何用VB序列化Byte数组，然后写到XML文件中的相关位置上?
2.我的WebService中的Web方法应该用什么样的数据类型做参数才能接收到XML流，在VB6里调用时应该把创建好的XML文件转化为何种格式通过何种方式传递给Webservice?