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