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

时间:2021-05-19

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

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章