单码网络验证

易语言 2020-11-20 15:48:51

单码网络验证

数据库时间 = 到时间 (读配置项 (“C:\sqlsql.txt”, 卡号, “到期时间”, ))
调试输出 (数据库时间)
.如果真 (读配置项 (“C:\sqlsql.txt”, 卡号, “激活状态”, ) = “正常”)
.如果 (数据库时间 < 时间_取北京时间 ())
服务器1.发送数据 (ip, 编码_BASE64编码 (到字节集 (“对不起!您已到期!”)), )
编辑框3.加入文本 (#换行符 + “[+]用户到期 卡号” + 卡号)
服务器1.断开客户 (ip)
返回 ()
.否则
服务器1.发送数据 (ip, 编码_BASE64编码 (到字节集 (“登录成功”)), )
编辑框3.加入文本 (#换行符 + “[+]用户登录成功 卡号” + 卡号)
返回 ()