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

红色简约网络验证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保护结束标志