易語言EXUI支持庫制作紅色簡約網(wǎng)絡(luò)驗(yàn)證UI界面的代碼

.版本 2
.支持庫 exui
.支持庫 spec
.程序集 窗口程序集_啟動(dòng)窗口
.程序集變量 用戶名, 文本型
.程序集變量 狀態(tài)碼, 文本型
.子程序 _頭像_框架_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
_啟動(dòng)窗口.發(fā)送信息 (161, 2, 0)
.子程序 _選擇夾EX1_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
_啟動(dòng)窗口.發(fā)送信息 (161, 2, 0)
.子程序 _登錄_輸入賬號(hào)_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (登錄_輸入賬號(hào).內(nèi)容 ＝ “輸入賬號(hào)”)
  登錄_輸入賬號(hào).內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _登錄_輸入密碼_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (登錄_輸入密碼.內(nèi)容 ＝ “輸入密碼”)
  登錄_輸入密碼.內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _登錄_輸入賬號(hào)_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (登錄_輸入賬號(hào).內(nèi)容 ＝ “”)
    登錄_輸入賬號(hào).內(nèi)容 ＝ “輸入賬號(hào)”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _登錄_輸入密碼_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (登錄_輸入密碼.內(nèi)容 ＝ “”)
    登錄_輸入密碼.內(nèi)容 ＝ “輸入密碼”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _控制_關(guān)閉_左鍵單擊
配置_保存配置 ()
結(jié)束 ()
.子程序 配置_讀取配置
.局部變量 配置_賬號(hào), 文本型
.局部變量 配置_密碼, 文本型
置入代碼 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保護(hù)開始標(biāo)志
配置_賬號(hào) ＝ 讀配置項(xiàng) (“config.ini”, “root”, “name”, )
配置_密碼 ＝ 讀配置項(xiàng) (“config.ini”, “root”, “pwd”, )
狀態(tài)碼 ＝ 讀配置項(xiàng) (“config.ini”, “root”, “StatusCode”, )
登錄_輸入賬號(hào).內(nèi)容 ＝ 配置_賬號(hào)
登錄_輸入密碼.內(nèi)容 ＝ 配置_密碼
置入代碼 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保護(hù)結(jié)束標(biāo)志
.子程序 配置_保存配置
置入代碼 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保護(hù)開始標(biāo)志
寫配置項(xiàng) (“config.ini”, “root”, “name”, 登錄_輸入賬號(hào).內(nèi)容)
寫配置項(xiàng) (“config.ini”, “root”, “pwd”, 登錄_輸入密碼.內(nèi)容)
寫配置項(xiàng) (“config.ini”, “root”, “StatusCode”, 狀態(tài)碼)
置入代碼 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保護(hù)結(jié)束標(biāo)志
.子程序 _分類_登錄_左鍵單擊
選擇夾EX1.現(xiàn)行子夾 ＝ 1
執(zhí)行_小點(diǎn) (分類_登錄)
.子程序 選擇夾漸變, , , 忽略
.參數(shù) 目標(biāo)子夾, 整數(shù)型
.局部變量 i, 整數(shù)型
.局部變量 現(xiàn)在所在子夾, 整數(shù)型
.局部變量 參數(shù)_延遲速度, 整數(shù)型
現(xiàn)在所在子夾 ＝ 選擇夾EX1.現(xiàn)行子夾
參數(shù)_延遲速度 ＝ 10
.如果真 (現(xiàn)在所在子夾 ＝ 1) ' --------------漸變隱藏按鈕
  .計(jì)次循環(huán)首 (17, i)
    登錄_輸入賬號(hào).透明度 ＝ 255 － i × 15
    登錄_輸入密碼.透明度 ＝ 255 － i × 15
    分類_登錄.透明度 ＝ 255 － i × 15
    延遲 (參數(shù)_延遲速度)
    處理事件 ()
  .計(jì)次循環(huán)尾 ()
.如果真結(jié)束
選擇夾EX1.現(xiàn)行子夾 ＝ 目標(biāo)子夾
.如果真 (目標(biāo)子夾 ＝ 1) ' --------------漸變顯示按鈕
  .計(jì)次循環(huán)首 (17, i)
    登錄_輸入賬號(hào).透明度 ＝ i × 15
    登錄_輸入密碼.透明度 ＝ i × 15
    分類_登錄.透明度 ＝ i × 15
    延遲 (參數(shù)_延遲速度)
    處理事件 ()
  .計(jì)次循環(huán)尾 ()
  返回 ()
.如果真結(jié)束
' -----------------------------------------------------------------------------------------------------------------------------
.如果真 (現(xiàn)在所在子夾 ＝ 1) ' --------------漸變隱藏按鈕
  .計(jì)次循環(huán)首 (17, i)
    注冊(cè)_輸入賬號(hào).透明度 ＝ 255 － i × 15
    注冊(cè)_輸入密碼.透明度 ＝ 255 － i × 15
    注冊(cè)_重復(fù)輸入密碼.透明度 ＝ 255 － i × 15
    注冊(cè)_郵箱地址.透明度 ＝ 255 － i × 15
    分類_注冊(cè).透明度 ＝ 255 － i × 15
    延遲 (參數(shù)_延遲速度)
    處理事件 ()
  .計(jì)次循環(huán)尾 ()
.如果真結(jié)束
選擇夾EX1.現(xiàn)行子夾 ＝ 目標(biāo)子夾
.如果真 (目標(biāo)子夾 ＝ 2) ' --------------漸變顯示按鈕
  .計(jì)次循環(huán)首 (17, i)
    注冊(cè)_輸入賬號(hào).透明度 ＝ i × 15
    注冊(cè)_輸入密碼.透明度 ＝ i × 15
    注冊(cè)_重復(fù)輸入密碼.透明度 ＝ i × 15
    注冊(cè)_郵箱地址.透明度 ＝ i × 15
    分類_注冊(cè).透明度 ＝ i × 15
    延遲 (參數(shù)_延遲速度)
    處理事件 ()
  .計(jì)次循環(huán)尾 ()
  返回 ()
.如果真結(jié)束
' -----------------------------------------------------------------------------------------------------------------------------
.子程序 執(zhí)行_小點(diǎn)
.參數(shù) 按鈕EX, 按鈕EX
.局部變量 按鈕居中位置, 整數(shù)型
.局部變量 小點(diǎn)居中位置, 整數(shù)型
.局部變量 歷史_小點(diǎn)位置, 整數(shù)型
.局部變量 小點(diǎn)_移動(dòng)步數(shù), 文本型
.局部變量 向左或向右移動(dòng), 邏輯型, , , 假 = 向右  真 = 向左
.局部變量 i
歷史_小點(diǎn)位置 ＝ 圖片_小點(diǎn).左邊
按鈕居中位置 ＝ 按鈕EX.左邊 ＋ 按鈕EX.寬度 ÷ 2
小點(diǎn)居中位置 ＝ 按鈕居中位置 － 圖片_小點(diǎn).寬度 ÷ 2
小點(diǎn)_移動(dòng)步數(shù) ＝ 到文本 (到整數(shù) (小點(diǎn)居中位置 － 歷史_小點(diǎn)位置))
.如果 (尋找文本 (小點(diǎn)_移動(dòng)步數(shù), “-”, , 假) ≠ -1)
  向左或向右移動(dòng) ＝ 真
.否則
  向左或向右移動(dòng) ＝ 假
.如果結(jié)束
.計(jì)次循環(huán)首 (到整數(shù) (子文本替換 (小點(diǎn)_移動(dòng)步數(shù), “-”, , , , 真)), i)
  .如果真 (向左或向右移動(dòng) ＝ 真)
    圖片_小點(diǎn).移動(dòng) (圖片_小點(diǎn).左邊 － 1, , , )
  .如果真結(jié)束
  .如果真 (向左或向右移動(dòng) ＝ 假)
    圖片_小點(diǎn).移動(dòng) (圖片_小點(diǎn).左邊 ＋ 1, , , )
  .如果真結(jié)束
  延遲 (1)
  處理事件 ()
.計(jì)次循環(huán)尾 ()
.子程序 _分類_注冊(cè)_左鍵單擊
選擇夾EX1.現(xiàn)行子夾 ＝ 2
執(zhí)行_小點(diǎn) (分類_注冊(cè))
.子程序 _分類_充值_左鍵單擊
選擇夾EX1.現(xiàn)行子夾 ＝ 3
執(zhí)行_小點(diǎn) (分類_充值)
.子程序 _分類_設(shè)置_左鍵單擊
選擇夾EX1.現(xiàn)行子夾 ＝ 4
執(zhí)行_小點(diǎn) (分類_設(shè)置)
.子程序 _注冊(cè)_輸入賬號(hào)_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (注冊(cè)_輸入賬號(hào).內(nèi)容 ＝ “輸入賬號(hào)”)
  注冊(cè)_輸入賬號(hào).內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _注冊(cè)_輸入密碼_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (注冊(cè)_輸入密碼.內(nèi)容 ＝ “輸入密碼”)
  注冊(cè)_輸入密碼.內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _注冊(cè)_重復(fù)輸入密碼_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (注冊(cè)_重復(fù)輸入密碼.內(nèi)容 ＝ “重復(fù)輸入密碼”)
  注冊(cè)_重復(fù)輸入密碼.內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _注冊(cè)_郵箱地址_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (注冊(cè)_郵箱地址.內(nèi)容 ＝ “郵箱地址”)
  注冊(cè)_郵箱地址.內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _注冊(cè)_輸入賬號(hào)_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (注冊(cè)_輸入賬號(hào).內(nèi)容 ＝ “”)
    注冊(cè)_輸入賬號(hào).內(nèi)容 ＝ “輸入賬號(hào)”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _注冊(cè)_輸入密碼_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (注冊(cè)_輸入密碼.內(nèi)容 ＝ “”)
    注冊(cè)_輸入密碼.內(nèi)容 ＝ “輸入密碼”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _注冊(cè)_重復(fù)輸入密碼_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (注冊(cè)_重復(fù)輸入密碼.內(nèi)容 ＝ “”)
    注冊(cè)_重復(fù)輸入密碼.內(nèi)容 ＝ “重復(fù)輸入密碼”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _注冊(cè)_郵箱地址_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (注冊(cè)_郵箱地址.內(nèi)容 ＝ “”)
    注冊(cè)_郵箱地址.內(nèi)容 ＝ “郵箱地址”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _充值_充值賬號(hào)_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (充值_充值賬號(hào).內(nèi)容 ＝ “充值賬號(hào)”)
  充值_充值賬號(hào).內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _充值_充值卡密_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (充值_充值卡密.內(nèi)容 ＝ “充值卡密”)
  充值_充值卡密.內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _充值_推薦人_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (充值_推薦人.內(nèi)容 ＝ “推薦人 *可空”)
  充值_推薦人.內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _充值_充值賬號(hào)_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (充值_充值賬號(hào).內(nèi)容 ＝ “”)
    充值_充值賬號(hào).內(nèi)容 ＝ “充值賬號(hào)”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _充值_充值卡密_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (充值_充值卡密.內(nèi)容 ＝ “”)
    充值_充值卡密.內(nèi)容 ＝ “充值卡密”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _充值_推薦人_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (充值_推薦人.內(nèi)容 ＝ “”)
    充值_推薦人.內(nèi)容 ＝ “推薦人 *可空”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _修改_用戶賬號(hào)_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (修改_用戶賬號(hào).內(nèi)容 ＝ “用戶賬號(hào) *必填”)
  修改_用戶賬號(hào).內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _修改_用戶賬號(hào)_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (修改_用戶賬號(hào).內(nèi)容 ＝ “”)
    修改_用戶賬號(hào).內(nèi)容 ＝ “用戶賬號(hào) *必填”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _修改_現(xiàn)在密碼_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (修改_現(xiàn)在密碼.內(nèi)容 ＝ “現(xiàn)在密碼”)
  修改_現(xiàn)在密碼.內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _修改_現(xiàn)在密碼_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (修改_現(xiàn)在密碼.內(nèi)容 ＝ “”)
    修改_現(xiàn)在密碼.內(nèi)容 ＝ “現(xiàn)在密碼”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _修改_新的密碼_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (修改_新的密碼.內(nèi)容 ＝ “新的密碼”)
  修改_新的密碼.內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _修改_新的密碼_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (修改_新的密碼.內(nèi)容 ＝ “”)
    修改_新的密碼.內(nèi)容 ＝ “新的密碼”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _修改_郵箱地址_鼠標(biāo)左鍵按下
.參數(shù) xy坐標(biāo), 整數(shù)型
.參數(shù) wp, 整數(shù)型
.如果真 (修改_郵箱地址.內(nèi)容 ＝ “郵箱地址”)
  修改_郵箱地址.內(nèi)容 ＝ “”
.如果真結(jié)束
.子程序 _修改_郵箱地址_焦點(diǎn)信息
.參數(shù) 焦點(diǎn)類型, 整數(shù)型
.參數(shù) 保留參數(shù)2, 整數(shù)型
.如果真 (焦點(diǎn)類型 ＝ 0)
  .如果真 (修改_郵箱地址.內(nèi)容 ＝ “”)
    修改_郵箱地址.內(nèi)容 ＝ “郵箱地址”
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _按鈕_登錄_左鍵單擊
置入代碼 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保護(hù)開始標(biāo)志
xx (“紅色簡約網(wǎng)絡(luò)驗(yàn)證UI”)
' 自己寫自己的網(wǎng)絡(luò)驗(yàn)證登錄命令
置入代碼 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保護(hù)結(jié)束標(biāo)志
.子程序 xx
.參數(shù) txt, 文本型
' Taohin_信息框 (2, txt, _啟動(dòng)窗口)
信息框EX (, “告警 :”, , txt, , , , , , , , , )
.子程序 _按鈕_注冊(cè)_左鍵單擊
置入代碼 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保護(hù)開始標(biāo)志
' 自己寫自己的網(wǎng)絡(luò)驗(yàn)證注冊(cè)命令
置入代碼 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保護(hù)結(jié)束標(biāo)志
.子程序 _按鈕_充值_左鍵單擊
置入代碼 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保護(hù)開始標(biāo)志
置入代碼 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保護(hù)結(jié)束標(biāo)志
.子程序 _按鈕_修改_左鍵單擊
置入代碼 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保護(hù)開始標(biāo)志
置入代碼 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保護(hù)結(jié)束標(biāo)志
.子程序 _按鈕_找回_左鍵單擊
.局部變量 返回值, 文本型
置入代碼 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保護(hù)開始標(biāo)志
置入代碼 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保護(hù)結(jié)束標(biāo)志