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

首頁 > 開發 > 綜合 > 正文

webservice系列教學(9)-如何調用webservice(vb6.0,vbscript)

2024-07-21 02:21:46
字體:
來源:轉載
供稿:網友
4.8使用vb6.0調用
需下載mssoaptoolkit20.exe
添加引用:microsoft soap type library
位置:”c:/program files/common files/mssoap/binaries/ mssoap1.dll”
    調用方法:
    dim cc as new mssoaplib.soapclient
    例程:
    新建工程標準exe添加3個textbox控件,text1,text2,text3添加一個button控件command1
    代碼如下:
    option explicit
dim cc as new mssoaplib.soapclient
private sub command1_click()
cc.mssoapinit "http://192.168.0.4/yundan/service1.asmx?wsdl"
me.text3.text = cc.test(cint(text1.text), cint(text2.text))
end sub
4.9使用vbscript調用
需下載mssoaptoolkit20.exe
引用:mssoap.soapclient
    例程:
option explicit
const wsdl_url = "http://192.168.0.4/yundan/service1.wsdl"
wscript.echo "connecting: " & wsdl_url
dim calc
set calc = createobject("mssoap.soapclient")
calc.mssoapinit wsdl_url
dim answer
answer = calc.test(14,28)
wscript.echo "14+28=" & answer
將其存成domo.vbs文件,直接雙擊運行。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 左贡县| 松原市| 江孜县| 察雅县| 西畴县| 永春县| 天水市| 察哈| 镇坪县| 吉首市| 安新县| 万宁市| 牡丹江市| 新晃| 抚宁县| 洮南市| 镇坪县| 虎林市| 丰台区| 西畴县| 巴里| 黄浦区| 五莲县| 名山县| 巴彦淖尔市| 潢川县| 柘城县| 潮安县| 桦甸市| 大关县| 理塘县| 重庆市| 府谷县| 大竹县| 明水县| 仲巴县| 衡水市| 东兴市| 德庆县| 三明市| 阳原县|