冲值系统程序/辅助网络验证整套

读用户句柄 ＝ 外部数据库1.查询 (“select * from 表 where CPU序列号='” ＋ 数组 [3] ＋ “'”)
用户 ＝ 外部数据库1.读 (读用户句柄, “CPU序列号”)
类型 ＝ “天数” ' 可以修改成“次数”,建议不修改，一旦修改，试用未完的用户全部到期
使用天数 ＝ 15
使用次数 ＝ 30
.如果真 (用户 ≠ 数组 [3]) ' 证明该用户是第一次使用软件
.如果 (类型 ＝ “天数”)
写入数据语句 ＝ “INSERT INTO 表 ([CPU序列号],[类型],[使用天数],[随机数]) VALUES ('” ＋ 数组 [3] ＋ “','天数','” ＋ 到文本 (计算时间 (到文本 (取日期 (取现行时间 ()))) ＋ 使用天数) ＋ “','” ＋ 数组 [4] ＋ “')”
.否则
写入数据语句 ＝ “INSERT INTO 表 ([CPU序列号],[类型],[使用次数],[随机数]) VALUES ('” ＋ 数组 [3] ＋ “','次数','” ＋ 到文本 (使用次数) ＋ “','” ＋ 数组 [4] ＋ “')”
.如果结束
外部数据库1.执行 (写入数据语句, )
服务器1.发送数据 (数组 [1], “diyicia”, 2)
外部数据库1.关闭记录集 (读用户句柄)
返回 ()
.如果真结束
.如果真 (用户 ≠ 数组 [3]) ' 此中情况少见的，但是遇到破解高手还是要加这句
服务器1.发送数据 (数组 [1], “guoqile”, 2)
外部数据库1.关闭记录集 (读用户句柄)
返回 ()
.如果真结束
.如果 (外部数据库1.读 (读用户句柄, “类型”) ＝ “天数”)
.如果 (到数值 (外部数据库1.读 (读用户句柄, “使用天数”)) － 计算时间 (到文本 (取日期 (取现行时间 ()))) ＜ 0)
服务器1.发送数据 (数组 [1], “guoqile”, 2)
外部数据库1.关闭记录集 (读用户句柄)
返回 ()
.否则
服务器1.发送数据 (数组 [1], “shiyongok” ＋ #换行符 ＋ 到文本 (到数值 (外部数据库1.读 (读用户句柄, “使用天数”)) － 计算时间 (到文本 (取日期 (取现行时间 ())))), 2)
写记录 ＝ “update 表 set 随机数='” ＋ 数组 [4] ＋ “' where CPU序列号='” ＋ 数组 [3] ＋ “'”
外部数据库1.执行 (写记录, )
外部数据库1.关闭记录集 (读用户句柄)
编辑框1.加入文本 (取时间文本 (取现行时间 ()) ＋ “ 用户[” ＋ 数组 [1] ＋ “]试用成功！” ＋ #换行符)
返回 ()
.如果结束

.否则
次数 ＝ 到数值 (外部数据库1.读 (读用户句柄, “使用次数”))
.如果 (次数 ≤ -1)
服务器1.发送数据 (数组 [1], “guoqile”, 2)
外部数据库1.关闭记录集 (读用户句柄)
返回 ()
.否则
服务器1.发送数据 (数组 [1], “shiyongno” ＋ #换行符 ＋ 到文本 (次数 － 1), 2)
写记录 ＝ “update 表 set 随机数='” ＋ 数组 [4] ＋ “','使用次数='” ＋ 到文本 (次数 － 1) ＋ “' where CPU序列号='” ＋ 数组 [3] ＋ “'”
外部数据库1.关闭记录集 (读用户句柄)
编辑框1.加入文本 (取时间文本 (取现行时间 ()) ＋ “ 用户[” ＋ 数组 [1] ＋ “]试用成功！” ＋ #换行符)
返回 ()