vb6.0如何调用webservice

Question

获取个人编号函数名称：traceQueryTargetA传入参数：字符型year 年仹;字符型areaId 地区编号;字符型name 病人姓名;字符型medicalNo 病人医疗证号;返回数据：字符型 个人编号例程：ls_personId=iws_proxy_obj.tracequerytargeta(ls_year,ls_xqbh,ls_name,ls_ylzhm) 下面是PB实现的，不知道VB如何实现啊
PowerBuilder实例代码 3.1 声明 //发量声明 soapconnection i_conn xfire客户端interfacehttpport iws_proxy_obj //webservie调用 i_conn = create soapconnection string endpoint='http://客户端interface.hnhzyl.com/客户端Interface/services/客户端
Interface?wsdl' //ll_result=i_conn..createinstance(iws_proxy_obj,"xfire客户端
interfacehttpport","http://61.163.77.36:8080/客户端Interface/services/客户端
Interface?wsdl") ll_result = i_conn.createinstance(iws_proxy_obj,"xfire客户端interfacehttpport") 

Answer 1

使用vb6.0调用需下载msSoapToolkit20.exe添加引用：Microsoft Soap Type Library 位置:”C:\Program Files\Common Files\MSSoap\Binaries\ MSSOAP1.dll”    调用方法：    Dim cc As New MSSOAPLib.SoapClient    例程：    新建工程标准EXE添加3个textbox控件，text1,text2,text3添加一个button控件Command1    代码如下：    Option ExplicitDim cc As New MSSOAPLib.SoapClientPrivate Sub Command1_Click()cc.mssoapinit "http://192.168.0.4/yundan/Service1.asmx?WSDL"Me.Text3.Text = cc.test(CInt(Text1.Text), CInt(Text2.Text))End Sub4．9使用vbscript调用需下载msSoapToolkit20.exe引用：MSSOAP.SoapClient

Answer 2

如果wsdl文件不符合wsi呢？mssoapinit初始化出错，能否使用低层api？