vbscript 調(diào)用WebService實現(xiàn)代碼,需要的朋友可以參考下。
代碼如下:
'獲取已初始化Soap對象
Public Function GetSoapClient(sURL)
Dim oSoap
Set oSoap = CreateObject("MSSOAP.SoapClient")
oSoap.mssoapinit sURL
Set GetSoapClient = oSoap
End Function
'用戶綁定對應(yīng)序列號
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