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

VBScript
VBS 生成不重复随机数代码[0-10]
vbs 百度小助手
字符ANSI代码查询工具vbs版
VBS MD5加密算法代码
用VBS实现一个小键盘动作CTRL+V粘贴操作与思路分析
VBS 偏移量解密工具[算法解密]
自动复制U盘文件的VBS脚本
vbs 自动复制U盘的内容
reg2vbs.vbs 将Reg文件转换为VBS文件保存 脚本之家修正版本

VBScript 中的 vbscript 调用WebService实现代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2010-01-10   浏览: 225 ::
收藏到网摘: 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