vbscript 調(diào)用WebService實(shí)現(xiàn)代碼，需要的朋友可以參考下。
代碼如下:
'獲取已初始化Soap對(duì)象
Public Function GetSoapClient(sURL)
Dim oSoap
Set oSoap = CreateObject("MSSOAP.SoapClient")
oSoap.mssoapinit sURL
Set GetSoapClient = oSoap
End Function
'用戶綁定對(duì)應(yīng)序列號(hào)
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
公眾號(hào)
事業(yè)單位
當(dāng)前位置：
公考類
招聘類
各類考試