当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbscript 调用WebService实现代码

VBScript
VBS教程：VBscript语句-Execute 语句
VBS教程：VBscript语句-Erase 语句
VBS教程：VBscript语句-Do...Loop 语句
VBS教程：VBscript语句-Dim 语句
VBS教程：VBscript语句-Const 语句
VBS教程：VBscript语句-Class 语句
VBS教程：VBscript语句-Call 语句
VBS教程：VBscript语句-功能介绍
VBS教程：VBscript属性-Value 属性
VBS教程：VBscript属性-Source 属性
VBS教程：VBscript属性-Pattern 属性
VBS教程：VBscript属性-Number 属性
VBS教程：VBscript属性-Length 属性
VBS教程：VBscript属性-IgnoreCase 属性
VBS教程：VBscript属性-HelpFile 属性
VBS教程：VBscript属性-HelpContext 属性
VBS教程：VBscript属性-Global 属性
VBS教程：VBscript属性-FirstIndex 属性
VBS教程：VBscript属性-Description 属性
VBS教程：VBscript属性-功能介绍

No. « 7 8 9 10 »

技术文章搜索

关键字

VBScript 中的 vbscript 调用WebService实现代码

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2010-01-10   浏览: 237 ::
收藏到网摘: n/a

vbscript 调用WebService实现代码，需要的朋友可以参考下。
复制代码 代码如下:

'获取已初始化Soap对象
Public Function GetSoapClient(sURL)
Dim oSoap
Set oSoap = CreateObject("MSSOAP.SoapClient")
oSoap.mssoapinit sURL
Set GetSoapClient = oSoap
End Function
'用户绑定对应序列号
sub BindCodeNumber()
Dim oSoap
Dim sURL
dim str
sURL = ""
'sURL =""
Set oSoap = GetSoapClient(sURL)
'str = oSoap.HelloWorld()
Set oSoap = Nothing
'msgbox str
End sub
BindCodeNumber