易语言EXUI支持库制作红色简约网络验证UI界面的代码

.版本 2
.支持库 exui
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 用户名, 文本型
.程序集变量 状态码, 文本型
.子程序 _头像_框架_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
_启动窗口.发送信息 (161, 2, 0)
.子程序 _选择夹EX1_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
_启动窗口.发送信息 (161, 2, 0)
.子程序 _登录_输入账号_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (登录_输入账号.内容 ＝ “输入账号”)
  登录_输入账号.内容 ＝ “”
.如果真结束
.子程序 _登录_输入密码_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (登录_输入密码.内容 ＝ “输入密码”)
  登录_输入密码.内容 ＝ “”
.如果真结束
.子程序 _登录_输入账号_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (登录_输入账号.内容 ＝ “”)
    登录_输入账号.内容 ＝ “输入账号”
  .如果真结束
.如果真结束
.子程序 _登录_输入密码_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (登录_输入密码.内容 ＝ “”)
    登录_输入密码.内容 ＝ “输入密码”
  .如果真结束
.如果真结束
.子程序 _控制_关闭_左键单击
配置_保存配置 ()
结束 ()
.子程序 配置_读取配置
.局部变量 配置_账号, 文本型
.局部变量 配置_密码, 文本型
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
配置_账号 ＝ 读配置项 (“config.ini”, “root”, “name”, )
配置_密码 ＝ 读配置项 (“config.ini”, “root”, “pwd”, )
状态码 ＝ 读配置项 (“config.ini”, “root”, “StatusCode”, )
登录_输入账号.内容 ＝ 配置_账号
登录_输入密码.内容 ＝ 配置_密码
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志
.子程序 配置_保存配置
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
写配置项 (“config.ini”, “root”, “name”, 登录_输入账号.内容)
写配置项 (“config.ini”, “root”, “pwd”, 登录_输入密码.内容)
写配置项 (“config.ini”, “root”, “StatusCode”, 状态码)
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志
.子程序 _分类_登录_左键单击
选择夹EX1.现行子夹 ＝ 1
执行_小点 (分类_登录)
.子程序 选择夹渐变, , , 忽略
.参数 目标子夹, 整数型
.局部变量 i, 整数型
.局部变量 现在所在子夹, 整数型
.局部变量 参数_延迟速度, 整数型
现在所在子夹 ＝ 选择夹EX1.现行子夹
参数_延迟速度 ＝ 10
.如果真 (现在所在子夹 ＝ 1) ' --------------渐变隐藏按钮
  .计次循环首 (17, i)
    登录_输入账号.透明度 ＝ 255 － i × 15
    登录_输入密码.透明度 ＝ 255 － i × 15
    分类_登录.透明度 ＝ 255 － i × 15
    延迟 (参数_延迟速度)
    处理事件 ()
  .计次循环尾 ()
.如果真结束
选择夹EX1.现行子夹 ＝ 目标子夹
.如果真 (目标子夹 ＝ 1) ' --------------渐变显示按钮
  .计次循环首 (17, i)
    登录_输入账号.透明度 ＝ i × 15
    登录_输入密码.透明度 ＝ i × 15
    分类_登录.透明度 ＝ i × 15
    延迟 (参数_延迟速度)
    处理事件 ()
  .计次循环尾 ()
  返回 ()
.如果真结束
' -----------------------------------------------------------------------------------------------------------------------------
.如果真 (现在所在子夹 ＝ 1) ' --------------渐变隐藏按钮
  .计次循环首 (17, i)
    注册_输入账号.透明度 ＝ 255 － i × 15
    注册_输入密码.透明度 ＝ 255 － i × 15
    注册_重复输入密码.透明度 ＝ 255 － i × 15
    注册_邮箱地址.透明度 ＝ 255 － i × 15
    分类_注册.透明度 ＝ 255 － i × 15
    延迟 (参数_延迟速度)
    处理事件 ()
  .计次循环尾 ()
.如果真结束
选择夹EX1.现行子夹 ＝ 目标子夹
.如果真 (目标子夹 ＝ 2) ' --------------渐变显示按钮
  .计次循环首 (17, i)
    注册_输入账号.透明度 ＝ i × 15
    注册_输入密码.透明度 ＝ i × 15
    注册_重复输入密码.透明度 ＝ i × 15
    注册_邮箱地址.透明度 ＝ i × 15
    分类_注册.透明度 ＝ i × 15
    延迟 (参数_延迟速度)
    处理事件 ()
  .计次循环尾 ()
  返回 ()
.如果真结束
' -----------------------------------------------------------------------------------------------------------------------------
.子程序 执行_小点
.参数 按钮EX, 按钮EX
.局部变量 按钮居中位置, 整数型
.局部变量 小点居中位置, 整数型
.局部变量 历史_小点位置, 整数型
.局部变量 小点_移动步数, 文本型
.局部变量 向左或向右移动, 逻辑型, , , 假 = 向右  真 = 向左
.局部变量 i
历史_小点位置 ＝ 图片_小点.左边
按钮居中位置 ＝ 按钮EX.左边 ＋ 按钮EX.宽度 ÷ 2
小点居中位置 ＝ 按钮居中位置 － 图片_小点.宽度 ÷ 2
小点_移动步数 ＝ 到文本 (到整数 (小点居中位置 － 历史_小点位置))
.如果 (寻找文本 (小点_移动步数, “-”, , 假) ≠ -1)
  向左或向右移动 ＝ 真
.否则
  向左或向右移动 ＝ 假
.如果结束
.计次循环首 (到整数 (子文本替换 (小点_移动步数, “-”, , , , 真)), i)
  .如果真 (向左或向右移动 ＝ 真)
    图片_小点.移动 (图片_小点.左边 － 1, , , )
  .如果真结束
  .如果真 (向左或向右移动 ＝ 假)
    图片_小点.移动 (图片_小点.左边 ＋ 1, , , )
  .如果真结束
  延迟 (1)
  处理事件 ()
.计次循环尾 ()
.子程序 _分类_注册_左键单击
选择夹EX1.现行子夹 ＝ 2
执行_小点 (分类_注册)
.子程序 _分类_充值_左键单击
选择夹EX1.现行子夹 ＝ 3
执行_小点 (分类_充值)
.子程序 _分类_设置_左键单击
选择夹EX1.现行子夹 ＝ 4
执行_小点 (分类_设置)
.子程序 _注册_输入账号_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (注册_输入账号.内容 ＝ “输入账号”)
  注册_输入账号.内容 ＝ “”
.如果真结束
.子程序 _注册_输入密码_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (注册_输入密码.内容 ＝ “输入密码”)
  注册_输入密码.内容 ＝ “”
.如果真结束
.子程序 _注册_重复输入密码_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (注册_重复输入密码.内容 ＝ “重复输入密码”)
  注册_重复输入密码.内容 ＝ “”
.如果真结束
.子程序 _注册_邮箱地址_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (注册_邮箱地址.内容 ＝ “邮箱地址”)
  注册_邮箱地址.内容 ＝ “”
.如果真结束
.子程序 _注册_输入账号_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (注册_输入账号.内容 ＝ “”)
    注册_输入账号.内容 ＝ “输入账号”
  .如果真结束
.如果真结束
.子程序 _注册_输入密码_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (注册_输入密码.内容 ＝ “”)
    注册_输入密码.内容 ＝ “输入密码”
  .如果真结束
.如果真结束
.子程序 _注册_重复输入密码_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (注册_重复输入密码.内容 ＝ “”)
    注册_重复输入密码.内容 ＝ “重复输入密码”
  .如果真结束
.如果真结束
.子程序 _注册_邮箱地址_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (注册_邮箱地址.内容 ＝ “”)
    注册_邮箱地址.内容 ＝ “邮箱地址”
  .如果真结束
.如果真结束
.子程序 _充值_充值账号_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (充值_充值账号.内容 ＝ “充值账号”)
  充值_充值账号.内容 ＝ “”
.如果真结束
.子程序 _充值_充值卡密_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (充值_充值卡密.内容 ＝ “充值卡密”)
  充值_充值卡密.内容 ＝ “”
.如果真结束
.子程序 _充值_推荐人_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (充值_推荐人.内容 ＝ “推荐人 *可空”)
  充值_推荐人.内容 ＝ “”
.如果真结束
.子程序 _充值_充值账号_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (充值_充值账号.内容 ＝ “”)
    充值_充值账号.内容 ＝ “充值账号”
  .如果真结束
.如果真结束
.子程序 _充值_充值卡密_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (充值_充值卡密.内容 ＝ “”)
    充值_充值卡密.内容 ＝ “充值卡密”
  .如果真结束
.如果真结束
.子程序 _充值_推荐人_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (充值_推荐人.内容 ＝ “”)
    充值_推荐人.内容 ＝ “推荐人 *可空”
  .如果真结束
.如果真结束
.子程序 _修改_用户账号_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (修改_用户账号.内容 ＝ “用户账号 *必填”)
  修改_用户账号.内容 ＝ “”
.如果真结束
.子程序 _修改_用户账号_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (修改_用户账号.内容 ＝ “”)
    修改_用户账号.内容 ＝ “用户账号 *必填”
  .如果真结束
.如果真结束
.子程序 _修改_现在密码_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (修改_现在密码.内容 ＝ “现在密码”)
  修改_现在密码.内容 ＝ “”
.如果真结束
.子程序 _修改_现在密码_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (修改_现在密码.内容 ＝ “”)
    修改_现在密码.内容 ＝ “现在密码”
  .如果真结束
.如果真结束
.子程序 _修改_新的密码_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (修改_新的密码.内容 ＝ “新的密码”)
  修改_新的密码.内容 ＝ “”
.如果真结束
.子程序 _修改_新的密码_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (修改_新的密码.内容 ＝ “”)
    修改_新的密码.内容 ＝ “新的密码”
  .如果真结束
.如果真结束
.子程序 _修改_邮箱地址_鼠标左键按下
.参数 xy坐标, 整数型
.参数 wp, 整数型
.如果真 (修改_邮箱地址.内容 ＝ “邮箱地址”)
  修改_邮箱地址.内容 ＝ “”
.如果真结束
.子程序 _修改_邮箱地址_焦点信息
.参数 焦点类型, 整数型
.参数 保留参数2, 整数型
.如果真 (焦点类型 ＝ 0)
  .如果真 (修改_邮箱地址.内容 ＝ “”)
    修改_邮箱地址.内容 ＝ “邮箱地址”
  .如果真结束
.如果真结束
.子程序 _按钮_登录_左键单击
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
xx (“红色简约网络验证UI”)
' 自己写自己的网络验证登录命令
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志
.子程序 xx
.参数 txt, 文本型
' Taohin_信息框 (2, txt, _启动窗口)
信息框EX (, “告警 :”, , txt, , , , , , , , , )
.子程序 _按钮_注册_左键单击
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
' 自己写自己的网络验证注册命令
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志
.子程序 _按钮_充值_左键单击
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志
.子程序 _按钮_修改_左键单击
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志
.子程序 _按钮_找回_左键单击
.局部变量 返回值, 文本型
置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 }) ' VMP保护开始标志
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 }) ' VMP保护结束标志