易語言
易語言代碼示例
.版本 2
.支持庫 iconv
.支持庫 EXMLParser
.程序集 窗口程序集_啟動(dòng)窗口
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.子程序 賬戶信息判斷, 邏輯型, 公開
.如果真 (接口名.內(nèi)容 ＝ "")
信息框 ("請輸入用戶名", 0, )
返回 (假)
.如果真結(jié)束
.如果真 (接口密.內(nèi)容 ＝ "")
信息框 ("請輸入密碼", 0, )
返回 (假)
.如果真結(jié)束
返回 (真)
.子程序 發(fā)送數(shù)據(jù)判斷, 邏輯型, 公開
.如果真 (手機(jī)號(hào).內(nèi)容 ＝ "")
信息框 ("請輸入手機(jī)號(hào)碼", 0, )
返回 (假)
.如果真結(jié)束
.如果真 (短信內(nèi)容.內(nèi)容 ＝ "")
信息框 ("請輸入要發(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é)集長度 (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é)集長度 (UTF8文本), n)
URL碼 ＝ URL碼 ＋ "%" ＋ 取十六進(jìn)制文本 (UTF8文本 [n])
.計(jì)次循環(huán)尾 ()
返回 (URL碼)
.子程序 _分組框4_鼠標(biāo)左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
