易语言EXUI支持库制作红色简约网络验证UI界面的代码
红色简约网络验证UI界面
创新互联公司拥有一支富有激情的企业网站制作团队,在互联网网站建设行业深耕10年,专业且经验丰富。10年网站优化营销经验,我们已为超过千家中小企业提供了网站建设、成都做网站解决方案,按需开发,设计满意,售后服务无忧。所有客户皆提供一年免费网站维护!
.版本 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保护结束标志
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对创新互联的支持。如果你想了解更多相关内容请查看下面相关链接
本文题目:易语言EXUI支持库制作红色简约网络验证UI界面的代码
转载源于:http://myzitong.com/article/iejosh.html