首页 > 编程 > 易语言 > 正文

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

2024-07-21 23:02:49
字体:
来源:转载
供稿:网友

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

运行结果:

易语言,ui,界面,网络,验证

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对VeVb武林网的支持。


注:相关教程知识阅读请移步到易语言教程频道。
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表