易语言网络验证UI界面源码

网络验证 www.kekeyz.cn

源码下载地址：易语言网络验证登录界面UI界面.e-其它文档类资源-CSDN下载易语言网络验证登录界面UI界面.e更多下载资源、学习资料请访问CSDN下载频道.[这里是图片001]https://download.csdn.net/download/u010815991/84594475

.版本 2
.支持库 ExuiKrnln

.程序集 窗口程序集_登录界面

.子程序 _登录界面_创建完毕

.如果真 (取反 (是否为调试版 ()))
    ' 置入代码 (#VM开始)
    ' 启动线程 (&检测OD, , )
    登录初始化 ()
    ' 置入代码 (#VM结束)
.如果真结束


.子程序 登录初始化

.如果 (读配置项 (取运行目录 () ＋ “config.conf”, “Config”, “remenber”, ) ＝ “1”)
    选择框_记住密码.选中 ＝ 真
.否则
    选择框_记住密码.选中 ＝ 假
.如果结束
编辑框_登录账号.内容 ＝ 读配置项 (取运行目录 () ＋ “config.conf”, “Config”, “account”, )
编辑框_登录密码.内容 ＝ 读配置项 (取运行目录 () ＋ “config.conf”, “Config”, “password”, )
编辑框_充值账号.内容 ＝ 读配置项 (取运行目录 () ＋ “config.conf”, “Config”, “account”, )
编辑框_修改账号.内容 ＝ 读配置项 (取运行目录 () ＋ “config.conf”, “Config”, “account”, )
编辑框_解绑账号.内容 ＝ 读配置项 (取运行目录 () ＋ “config.conf”, “Config”, “account”, )
编辑框_解绑密码.内容 ＝ 读配置项 (取运行目录 () ＋ “config.conf”, “Config”, “password”, )


.子程序 _超级按钮_关闭_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型

结束 ()


.子程序 _超级按钮_登录_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型

选择夹EX1.现行子夹 ＝ 0


.子程序 _超级按钮_注册_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型

选择夹EX1.现行子夹 ＝ 1


.子程序 _超级按钮_改密_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型

选择夹EX1.现行子夹 ＝ 2


.子程序 _超级按钮_充值_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型

选择夹EX1.现行子夹 ＝ 3


.子程序 _超级按钮_解绑_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型

选择夹EX1.现行子夹 ＝ 4


.子程序 _编辑框_登录账号_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_登录密码.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_登录密码_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_登录账号.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_注册账号_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_注册密码.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_注册密码_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_超级密码.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_超级密码_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_注册账号.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_修改账号_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_修改超级密码.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_修改超级密码_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_修改密码.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_修改密码_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_修改账号.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_充值账号_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_充值卡号.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_充值卡号_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_充值账号.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_解绑账号_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_解绑密码.取窗口句柄 ()))
.如果真结束


.子程序 _编辑框_解绑密码_键盘事件, 整数型
.参数 事件类型, 整数型
.参数 事件窗口, 整数型
.参数 键代码, 整数型
.参数 键状态, 整数型

.如果真 (键代码 ＝ 9)
    组件置焦点组件 (组件取窗口绑定组件 (编辑框_解绑账号.取窗口句柄 ()))
.如果真结束


.子程序 _按钮_登录_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 验证结果, 文本型

账号 ＝ 编辑框_登录账号.内容
密码 ＝ 编辑框_登录密码.内容
.判断开始 (账号 ＝ “” 或 密码 ＝ “”)
    信息框 (“请输入完整的信息”, 0, “提示”, 取窗口句柄 ())
.判断 (1 ＝ 1)
    .如果真 (选择框_记住密码.选中)
        写配置项 (取运行目录 () ＋ “config.conf”, “Config”, “account”, 账号)
        写配置项 (取运行目录 () ＋ “config.conf”, “Config”, “password”, 密码)
        写配置项 (取运行目录 () ＋ “config.conf”, “Config”, “remenber”, “1”)
    .如果真结束
    登录界面.可视 ＝ 假
    ' 载入 (主界面, , 假)
    登录界面.销毁 ()

.默认
    信息框 (验证结果, 0, “提示”, 取窗口句柄 ())
.判断结束





.子程序 _按钮_注册_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 超级密码, 文本型


账号 ＝ 编辑框_注册账号.内容
密码 ＝ 编辑框_注册密码.内容
超级密码 ＝ 编辑框_超级密码.内容
.如果真 (账号 ＝ “” 或 密码 ＝ “”)
    信息框 (“请输入完整的信息”, 0, “提示”, 取窗口句柄 ())
    返回 ()
.如果真结束



.子程序 _按钮_修改密码_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 超级密码, 文本型


账号 ＝ 编辑框_修改账号.内容
密码 ＝ 编辑框_修改密码.内容
超级密码 ＝ 编辑框_修改超级密码.内容
.如果真 (账号 ＝ “” 或 密码 ＝ “” 或 超级密码 ＝ “”)
    信息框 (“请输入完整的信息”, 0, “提示”, 取窗口句柄 ())
    返回 ()
.如果真结束


.子程序 _按钮_充值_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型
.局部变量 账号, 文本型
.局部变量 卡号, 文本型


账号 ＝ 编辑框_充值账号.内容
卡号 ＝ 编辑框_充值卡号.内容
.如果真 (账号 ＝ “” 或 卡号 ＝ “”)
    信息框 (“请输入完整的信息”, 0, “提示”, 取窗口句柄 ())
    返回 ()
.如果真结束


.子程序 _按钮_解绑_鼠标左键单击, 整数型
.参数 坐标x, 整数型
.参数 坐标y, 整数型
.参数 保留参数1, 整数型
.参数 保留参数2, 整数型
.局部变量 账号, 文本型
.局部变量 密码, 文本型


账号 ＝ 编辑框_解绑账号.内容
密码 ＝ 编辑框_解绑密码.内容
.如果真 (账号 ＝ “” 或 密码 ＝ “”)
    信息框 (“请输入完整的信息”, 0, “提示”, 取窗口句柄 ())
    返回 ()
.如果真结束