vbscript 调用WebService实现代码
摘要:复制代码代码如下:'获取已初始化Soap对象PublicFunctionGetSoapClient(sURL)DimoSoapSetoSoa...
复制代码 代码如下:
'获取已初始化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
【vbscript 调用WebService实现代码】相关文章:
★ Windows Script Host之用vbs实现[浏览文件夹]功能
★ 用vbscript实现启用 Caps Lock (大写)键
上一篇:
vbs 搜索代理地址实现代码[小偷程序]