顶级云网络验证系统完美版

易语言 2020-08-02 19:42:05

顶级云网络验证系统完美版

.如果真 (在线IP ≠ “”)
.如果真 (到长整数 (在线IP) ≠ 客户句柄)
服务端1.发送文本 (到整数 (在线IP), “重复登陆踢出前者”) ' 服务端1.断开连接(到整数(在线IP))
.如果真结束

.如果真结束
帐号语句 = “Update 用户信息 Set 在线IP='” + 到文本 (客户句柄) + “' where 用户名称='” + 文本分割 [2] + “'”
局部_对象 = 数据库连接.执行SQL (帐号语句, 记录集结果)
.如果真 (局部_对象.是否为空 () = 假)
返回 (“帐号验证返回&” + #换行符 + “验证成功!” + #换行符 + #换行符 + “到期时间:” + 到文本 (转换_长整数到时间 (到整数 (剩余天数))))
.如果真结束
返回 (“帐号验证返回&” + #换行符 + “验证错误!”)