vbscript 调用WebService实现代码
程序员文章站
2022-07-04 20:27:55
复制代码 代码如下:'获取已初始化soap对象 public function getsoapclient(surl) dim osoap set osoap = crea...
复制代码 代码如下:
'获取已初始化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