国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbscript 調用WebService實現代碼

2019-10-26 18:02:58
字體：大 中 小
來源：轉載
供稿：網友
復制代碼 代碼如下:

'獲取已初始化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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 临泽县| 秦皇岛市| 克拉玛依市| 普格县| 山东省| 永吉县| 安岳县| 武山县| 广安市| 威宁| 杭锦旗| 沂源县| 平陆县| 肃宁县| 浮山县| 邵东县| 乐安县| 临潭县| 永州市| 盘山县| 勐海县| 大安市| 两当县| 布尔津县| 社旗县| 仁化县| 吉安市| 西林县| 甘德县| 班戈县| 绿春县| 信丰县| 新竹县| 阜平县| 吴川市| 沙湾县| 齐河县| 灵台县| 紫云| 嘉峪关市| 紫阳县|