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

Question

网上搜索了1-2天，只是知道通过Microsoft SOAP Toolkit调用，但没有找到例子，不知道在VB6.0中如何编写代码，下面是业务部门提供的WebService接口参数，哪位高手能不能在VB中写好后，发给到我邮箱[email protected]，非常感谢。
EAI提供给3G流量经营的是同步接口，接口模式为WebService服务。测试地址：
http://136.125.66.114:8080/ESB-ws/services/CSBWebServiceWebService的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办理业务成功，其他的为失败。webservicevb

Answer 1

你可以参考 Windows 2003 中 IIS 自带的 WEB 站点管理代码，是 ASP 写的，使用 ADSI 和 WMI 进行相关控制和处理的，站点相关可以用 ADSI，目录以及权限可以用 WMI 进行处理。你可以搜索一下 ADSI 和 WMI 具体相关内容，也可以具体看一下 IIS 自带的站点管理代码。

Answer 2

我找不开你给的地址，
我才做完一个此类项目。
Microsoft SOAP Toolkit是可以调用的。你可以参考安装目录下的示例代码。
QQ：5507350

Answer 3

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

Answer 4

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

Answer 5

'Microsoft SOAP Toolkit调用，但没有找到例子
自带一个chm帮助，里面有例子。