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

论坛 期权论坛 脚本     
niminba   2021-5-23 04:41   2847   0

红色简约网络验证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
.局部变量 按钮居中位置, 整数型
.局部变量 
分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:1060120
帖子:212021
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP