急，如何使用VB6.0调用webservice服务

网上搜索了1-2天，只是知道通过Microsoft SOAP Toolkit调用，但没有找到例子，不知道在VB6.0中如何编写代码，下面是业务部门提供的WebService接口参数，哪位高手能不能在VB中写好后，发给到我邮箱18907585822@189.cn，非常感谢。


EAI提供给3G流量经营的是同步接口，接口模式为WebService服务。

测试地址：
http://136.125.66.114:8080/ESB-ws/services/CSBWebService

WebService的operation name="CSBCall2”
两个输入参数，一个返回参数
第一个输入参数：xml字符串
<?xml version="1.0" encoding="GB2312"?>
<GenericEvent>
<!-- FunCode 写死 -->
<FunCode>3GLLJY_CRMOrderAccept</FunCode>
<!-- SerialNo 流水 建议使用YYYYMMDDhh24miss+6为数字 -->
<SerialNo>20130222101010000001</SerialNo>
<!-- SysId 写死 -->
<SysId>3GLLJY</SysId>
</GenericEvent>


第二个输入参数：为一个xml字符传，为具体的业务参数
<?xml version="1.0" encoding="GBK"?>
<Request>
<channelId>299988</channelId>
<staff>299988</staff>
<teamId>6</teamId>
<accTime>2013-02-21 01:37:59.722</accTime>
<mdse>
<mdseId>193734305</mdseId>
<serviceCode/>
<mdseType>101</mdseType>
<procType>008</procType>
<priceplan>
<id>1453437</id>
<operate>insert</operate>
<params>
<paramId>10205781</paramId>
<newVal>7244610010100001</newVal>
<opType>insert</opType>
</params>
</priceplan>
</mdse>
</Request>



返回参数为一个xml字符串：
<?xml version="1.0" encoding="GBK"?>
<Response>
<ReturnResult>1</ReturnResult>
<ReturnInfo>销售订单创建失败!销售品ID不能同时为空!</ReturnInfo>
</Response>


注意：ReturnResult为0表示到crm办理业务成功，其他的为失败。

webservice vb --------------------编程问答-------------------- 主要是如何送这两个参数到服务器 --------------------编程问答-------------------- 你可以参考 Windows 2003 中 IIS 自带的 WEB 站点管理代码，是 ASP 写的，使用 ADSI 和 WMI 进行相关控制和处理的，站点相关可以用 ADSI，目录以及权限可以用 WMI 进行处理。你可以搜索一下 ADSI 和 WMI 具体相关内容，也可以具体看一下 IIS 自带的站点管理代码。 --------------------编程问答-------------------- 我找不开你给的地址，
我才做完一个此类项目。
Microsoft SOAP Toolkit是可以调用的。

你可以参考安装目录下的示例代码。
QQ：5507350 --------------------编程问答-------------------- xmlHttp 应该就可以实现吧 --------------------编程问答--------------------

OpenURL 方法示例

该示例使用 OpenURL 属性来检索 FTP 服务器的目录。要运行该示例，在窗体中放置一个 Internet Transfer 控件和一个 RichTextBox 控件。然后，把这段代码粘贴到声明部分。按 F5 键运行此例，并双击此窗体。



Private Sub Form_DblClick()

   Inet1.AccessType = icUseDefault

   RichTextBox1.Text = Inet1.OpenURL _

   (InputBox("URL", , "ftp://ftp.microsoft.com"))

End Sub



该示例假定数据是二进制文件。用字节数组，并使用 Open、Put 和 Close 方法，就可以检索该文件并把它写到磁盘上。要运行此例，在窗体中放置一个 Internet Transfer 控件，并把这段代码粘贴到声明部分。再按 F5 键，并双击此窗体。



Private Sub Form_DblClick()

   Inet1.AccessType = icUseDefault

   Dim b() As Byte

   Dim strURL As String



   '假定这仍然是一个有效的 URL。

   strURL = "ftp://ftp.microsoft.com/" & _

   "developr/drg/Win32/Autorun.zip"



   '把该文件作为字节数组来检索。

   b() = Inet1.OpenURL(strURL, icByteArray)

   

   Open "C:\Temp\Autorun.zip" For Binary Access _

   Write As #1

   Put #1, , b()

   Close #1

   MsgBox "Done"

End Sub

--------------------编程问答-------------------- Microsoft SOAP 控件 微软官方下载。 还有一种方法 自己 拼 xml 然后 自己提交 然后分析返回值 --------------------编程问答--------------------

'Microsoft SOAP Toolkit调用，但没有找到例子

自带一个chm帮助，里面有例子。

补充：VB ,  网络编程