网络验证 www.kekeyz.cn
.版本 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, “提示”, 取窗口句柄 ())
返回 ()
.如果真结束