|
10精币
.版本 2
.子程序 _注册_被单击
.局部变量 硬盘ID, 文本型
.局部变量 时间, 文本型
.局部变量 送时间, 文本型
注册.禁止 = 真
.判断开始 (编辑框_注册账号.内容 = “”)
标签_提示.标题 = “用户名不能为空!”
.判断 (编辑框_注册密码.内容 = “”)
标签_提示.标题 = “密码不能为空!”
.判断 (编辑框_注册确认密码.内容 = “”)
标签_提示.标题 = “确认密码不能为空!”
.判断 (编辑框_注册QQ.内容 = “”)
标签_提示.标题 = “QQ不能为空!”
.判断 (编辑框_注册密码.内容 ≠ 编辑框_注册确认密码.内容)
标签_提示.标题 = “两次输入的密码不同,请确认后输入!”
.判断 (飘零是否存在 (“admin”, “use='” + 编辑框_注册账号.内容 + “'”) = 真)
标签_提示.标题 = “该用户已存在,请重新输入!”
.默认
硬盘ID = 飘零取机器码 ()
送时间 = 飘零_查询 (“sys”, “zhuangtai”, “gongneng='songsj'”, )
时间 = 取标准格式时间文本 (增减时间 (到时间 (飘零取时间 ()), #分钟, 到整数 (送时间)))
.判断开始 (飘零添加 (“admin”, “use,pass,dengji,zaixian,qq,ypid,daoqi,tjr,jubing,klxx,ip”, “'” + 编辑框_注册账号.内容 + “'” + “,” + “'” + 编辑框_注册密码.内容 + “'” + “,” + “'” + “3” + “'” + “,” + “'” + “2” + “'” + “,” + “'” + 编辑框_注册QQ.内容 + “'” + “,” + “'” + 硬盘ID + “'” + “,” + “'” + 时间 + “'” + “,' '” + “,'0'” + “,'0|0'” + “,” + “'” + 飘零取IP () + “'”) = 真)
标签_提示.标题 = “恭喜你,注册成功!” + “系统赠送你” + 送时间 + “分钟”
.默认
标签_提示.标题 = “注册失败!”
.判断结束
.判断结束
注册.禁止 = 假
怎么才能实现一台电脑只能注册一次,第二次注册就提示注册失败
|
|