源码地址: https://gitee.com/zhang_jianli

vb6 调用c# 服务

1:安装vb6 和 Microsoft SOAP Toolkit 3.0
2:建vb6 exe文件,添假引用  Microsoft Soap Type library
3:准备好建好的c# web服务
4;调用:
 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")     //show 是你在webservice中定义的方法,返回字符串
  End     Function     
   
  注意:若不行升级到vb6 sp 6 试试

posted on 2007-11-05 14:05  天涯  阅读(578)  评论(0编辑  收藏  举报

导航

源码地址: https://gitee.com/zhang_jianli