短信驗證碼/通知 - 代碼示例

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