易語(yǔ)言短信接口開發(fā)示例代碼

.版本2.支持庫(kù)iconv.支持庫(kù)EXMLParser.程序集窗口程序集_啟動(dòng)窗口.子程序__啟動(dòng)窗口_創(chuàng)建完畢.子程序賬戶信息判斷,邏輯型,公開.如果真(接口名.內(nèi)容＝"")信息框("請(qǐng)輸入用戶名",0,)返回(假).如果真結(jié)束.如果真(接口密.內(nèi)容＝"")信息框("請(qǐng)輸入密碼",0,)返回(假).如果真結(jié)束返回(真).子程序發(fā)送數(shù)據(jù)判斷,邏輯型,公開.如果真(手機(jī)號(hào).內(nèi)容＝"")信息框("請(qǐng)輸入手機(jī)號(hào)碼",0,)返回(假).如果真結(jié)束.如果真(短信內(nèi)容.內(nèi)容＝"")信息框("請(qǐng)輸入要發(fā)送的內(nèi)容",0,)返回(假).如果真結(jié)束返回(真).子程序_按鈕1_被單擊.局部變量節(jié)點(diǎn)名數(shù)組,文本型,,"0".局部變量子節(jié)點(diǎn)數(shù),整數(shù)型.局部變量i,整數(shù)型.如果真(取反(賬戶信息判斷()))返回().如果真結(jié)束.如果真(取反(發(fā)送數(shù)據(jù)判斷()))返回().如果真結(jié)束狀態(tài)標(biāo)簽.標(biāo)題＝短信發(fā)送(接口名.內(nèi)容,接口密.內(nèi)容,手機(jī)號(hào).內(nèi)容,短信內(nèi)容.內(nèi)容)xml文件名＝取當(dāng)前目錄()＋"\data\submit.xml"狀態(tài)標(biāo)簽.標(biāo)題＝到文本(編碼轉(zhuǎn)換(到字節(jié)集(狀態(tài)標(biāo)簽.標(biāo)題),#編碼_UTF_8,#編碼_GBK,))寫到文件(xml文件名,到字節(jié)集(狀態(tài)標(biāo)簽.標(biāo)題))xml.導(dǎo)入(xml文件名)xml.取根節(jié)點(diǎn)名(根節(jié)點(diǎn))xml.取子節(jié)點(diǎn)數(shù)(根節(jié)點(diǎn),子節(jié)點(diǎn)數(shù)).如果真(子節(jié)點(diǎn)數(shù)＞0)xml.取子節(jié)點(diǎn)名(根節(jié)點(diǎn),節(jié)點(diǎn)名數(shù)組)輸出調(diào)試文本(節(jié)點(diǎn)名數(shù)組[1])輸出調(diào)試文本(節(jié)點(diǎn)名數(shù)組[2])輸出調(diào)試文本(節(jié)點(diǎn)名數(shù)組[3])輸出調(diào)試文本(xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/code",))輸出調(diào)試文本(xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/msg",))輸出調(diào)試文本(xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/smsid",))狀態(tài)標(biāo)簽.標(biāo)題＝"狀態(tài)碼："＋xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/code",)＋#換行符＋"描述："＋xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/msg",)＋#換行符＋"流水號(hào)："＋xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/smsid",).如果真結(jié)束xml.釋放()返回()返回().子程序_按鈕2_被單擊.局部變量節(jié)點(diǎn)名數(shù)組,文本型,,"0".局部變量子節(jié)點(diǎn)數(shù),整數(shù)型.局部變量i,整數(shù)型.如果真(取反(賬戶信息判斷()))返回().如果真結(jié)束狀態(tài)標(biāo)簽.標(biāo)題＝剩余條數(shù)(接口名.內(nèi)容,接口密.內(nèi)容)xml文件名＝取當(dāng)前目錄()＋"\data\getnum.xml"狀態(tài)標(biāo)簽.標(biāo)題＝到文本(編碼轉(zhuǎn)換(到字節(jié)集(狀態(tài)標(biāo)簽.標(biāo)題),#編碼_UTF_8,#編碼_GBK,))寫到文件(xml文件名,到字節(jié)集(狀態(tài)標(biāo)簽.標(biāo)題))xml.導(dǎo)入(xml文件名)xml.取根節(jié)點(diǎn)名(根節(jié)點(diǎn))xml.取子節(jié)點(diǎn)數(shù)(根節(jié)點(diǎn),子節(jié)點(diǎn)數(shù)).如果真(子節(jié)點(diǎn)數(shù)＞0)xml.取子節(jié)點(diǎn)名(根節(jié)點(diǎn),節(jié)點(diǎn)名數(shù)組)輸出調(diào)試文本(節(jié)點(diǎn)名數(shù)組[1])輸出調(diào)試文本(節(jié)點(diǎn)名數(shù)組[2])輸出調(diào)試文本(節(jié)點(diǎn)名數(shù)組[3])輸出調(diào)試文本(xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/code",))輸出調(diào)試文本(xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/msg",))輸出調(diào)試文本(xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/num",))狀態(tài)標(biāo)簽.標(biāo)題＝"狀態(tài)碼："＋xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/code",)＋#換行符＋"描述："＋xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/msg",)＋#換行符＋"條數(shù)："＋xml.取節(jié)點(diǎn)值文本(根節(jié)點(diǎn)＋"/num",).如果真結(jié)束xml.釋放()返回().子程序GBK編碼轉(zhuǎn)換,文本型,公開,將一個(gè)GBK編碼的文本轉(zhuǎn)換為URL編碼，返回一個(gè)URL編碼.參數(shù)文本,文本型,,需要轉(zhuǎn)換為URL編碼的GBK編碼的文本.局部變量GBK文本,字節(jié)集.局部變量URL碼,文本型.局部變量n,整數(shù)型GBK文本＝到字節(jié)集(文本).計(jì)次循環(huán)首(取字節(jié)集長(zhǎng)度(GBK文本),n)URL碼＝URL碼＋"%"＋取十六進(jìn)制文本(GBK文本[n]).計(jì)次循環(huán)尾()返回(URL碼).子程序UTF8編碼轉(zhuǎn)換,文本型,公開,將一個(gè)UTF8編碼的文本轉(zhuǎn)換為URL編碼，返回一個(gè)URL編碼.參數(shù)文本,文本型,,需要轉(zhuǎn)換為URL編碼的UTF8編碼的文本.局部變量URL碼,文本型.局部變量n,整數(shù)型.局部變量UTF8文本,字節(jié)集UTF8文本＝編碼轉(zhuǎn)換(到字節(jié)集(文本),#編碼_GBK,#編碼_UTF_8,).計(jì)次循環(huán)首(取字節(jié)集長(zhǎng)度(UTF8文本),n)URL碼