|
我的这个登录代码,就算是不注册账号随便输入一个都可以登录是怎么回事。我也是按照教程一步一步的来的。
从早上八点一直看到下半夜三点半,一直没有搞明白。求帮忙啊。
----------------------------------------------------------------------------------------------------------------
.版本 2
.支持库 spec
.支持库 iext
.程序集 窗口程序集_启动窗口
.子程序 _按钮2_被单击
.局部变量 信息框, 文本型
信息框 (“服务器未开启试用功能”, 0, , )
.子程序 _选择夹1_被单击
.子程序 _标签11_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 返回值, 文本型
项目名称 = LOL扫号
返回值 = V4_初始化 (“gfhfghretert1fbd2735c7”, )
.如果 (返回值 = “”)
调试输出 (“初始化成功”)
.否则
调试输出 (返回值)
.如果结束
.子程序 _按钮1登录_被单击
.局部变量 用户名, 文本型
.局部变量 密码, 文本型
.局部变量 登录状态, 文本型
用户名 = 编辑框1登录.内容
密码 = 编辑框2密码.内容
.如果 (用户名 = “” 或 密码 = “”)
返回 ()
.否则
.如果结束
登录状态 = V4_登录 (项目名称, 用户名, 密码, , 到期时间, 附加信息, , , 用户参数)
.如果 (登录状态 = “”)
状态条1.加入栏目 (“登陆成功,到期时间;,” + 到期时间, -1, , , )
销毁 ()
.否则
状态条1.加入栏目 (“登陆成功”, -1, , , )
.如果结束
载入 (登录窗口, , 真)
.子程序 _账号注册_被单击
.参数 用户名, 文本型
.参数 密码, 文本型
.参数 重复密码, 文本型
用户名 = 编辑框注册用户名.内容
密码 = 编辑框注册密码.内容
重复密码 = 编辑框注册重复密码.内容
.判断开始 (取文本长度 (用户名) < 6)
状态条1.置文本 (“用户名不得小于六位”, )
返回 ()
.默认
.判断结束
.判断开始 (取文本长度 (密码) < 6)
状态条1.置文本 (“密码不得小于六位”, )
返回 ()
.默认
.判断结束
.判断开始 (用户名 ≠ 重复密码)
状态条1.置文本 (“两次密码输入不同”, )
返回 ()
.默认
.判断结束
|
|