vbscript 调用WebService实现代码

(编辑：jimmy 日期: 2025/7/5 浏览：2)

复制代码代码如下:
'获取已初始化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

上一篇：math.vbs 自然数n的n次方的的和或积的级数

下一篇：清除垃圾的VBS文件自动查找多个盘