大漠插件注册 卡注问题

hjinpwhe1

给写个源码吧 很简单

  

子程序名	返回值类型	公开	备 注
注册	文本型		一天注册一次

变量名	类 型	静态	数组	备 注
zj	大漠类库
版本号	文本型
VIP	整数型
结果	文本型

如果真 (文件是否存在 (“C:\jbcj”) ＝ 假)
创建目录 (“C:\jbcj”)
如果真 (文件是否存在 (“C:\jbcj\dm.dll”) ＝ 假)
写到文件 (“C:\jbcj\dm.dll”, #d )
如果真 (文件是否存在 (“C:\jbcj\DmReg.dll”) ＝ 假)
写到文件 (“C:\jbcj\DmReg.dll”, #dd )

判断 (读配置项 (“C:\jbcj\zcsj.ini”, “注册时间”, “时间”, ) ＝ 年月日 ())
SetDllPathA (“C:\jbcj\dm.dll”, 0)
返回 (“注册成功”)
SetDllPathA (“C:\jbcj\dm.dll”, 0)
zj.创建 ()
版本号 ＝ “版本号 ” ＋ zj.Ver ()
VIP ＝ zj.RegEx (“你自己注册码”, “你自己附加码”, “121.204.252.143|123.129.231.44|121.204.253.161|123.129.231.45|125.77.165.62|123.129.231.85|125.77.165.131|123.129.231.86”)
zj.释放 ()
如果真 (VIP判断 (VIP) ＝ “VIP注册成功”)
写配置项 (“C:\jbcj\zcsj.ini”, “注册时间”, “时间”, 年月日 ())
返回 (版本号 ＋ “  ” ＋ VIP判断 (VIP))

.版本 2<br /> <br /> .子程序 注册, 文本型, 公开, 一天注册一次<br /> .局部变量 zj, 大漠类库<br /> .局部变量 版本号, 文本型<br /> .局部变量 VIP, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> .如果真 (文件是否存在 (“C:\jbcj”) ＝ 假)<br />     创建目录 (“C:\jbcj”)<br /> .如果真结束<br /> .如果真 (文件是否存在 (“C:\jbcj\dm.dll”) ＝ 假)<br />     写到文件 (“C:\jbcj\dm.dll”, #d)<br /> .如果真结束<br /> .如果真 (文件是否存在 (“C:\jbcj\DmReg.dll”) ＝ 假)<br />     写到文件 (“C:\jbcj\DmReg.dll”, #dd)<br /> .如果真结束<br /> <br /> .判断开始 (读配置项 (“C:\jbcj\zcsj.ini”, “注册时间”, “时间”, ) ＝ 年月日 ())<br />     SetDllPathA (“C:\jbcj\dm.dll”, 0)<br />     返回 (“注册成功”)<br /> .默认<br />     SetDllPathA (“C:\jbcj\dm.dll”, 0)<br />     zj.创建 ()<br />     版本号 ＝ “版本号 ” ＋ zj.Ver ()<br />     VIP ＝ zj.RegEx (“你自己注册码”, “你自己附加码”, “121.204.252.143|123.129.231.44|121.204.253.161|123.129.231.45|125.77.165.62|123.129.231.85|125.77.165.131|123.129.231.86”)<br />     zj.释放 ()<br />     .如果真 (VIP判断 (VIP) ＝ “VIP注册成功”)<br />         写配置项 (“C:\jbcj\zcsj.ini”, “注册时间”, “时间”, 年月日 ())<br />     .如果真结束<br />     返回 (版本号 ＋ “  ” ＋ VIP判断 (VIP))<br /> .判断结束

  

子程序名	返回值类型	公开	备 注
VIP判断	文本型		判断VIP注册返回值
参数名	类 型	参考	可空	数组	备 注
注册VIP返回值	整数型

判断 (注册VIP返回值 ＝ 1)
返回 (“VIP注册成功”)
判断 (注册VIP返回值 ＝ -1)
返回 (“无法连接网络”)
判断 (注册VIP返回值 ＝ -2)
返回 (“进程没有以管理员方式运行”)
判断 (注册VIP返回值 ＝ 0)
返回 (“失败”)
判断 (注册VIP返回值 ＝ 2)
返回 (“余额不足”)
判断 (注册VIP返回值 ＝ 3)
返回 (“绑定了本机器，但是账户余额不足50元”)
判断 (注册VIP返回值 ＝ 4)
返回 (“注册码错误”)
判断 (注册VIP返回值 ＝ 5)
返回 (“你的机器或者IP在黑名单列表中或者不在白名单列表中”)
判断 (注册VIP返回值 ＝ 6)
返回 (“非法使用插件”)
判断 (注册VIP返回值 ＝ 7)
返回 (“你的帐号因为非法使用被封禁”)
判断 (注册VIP返回值 ＝ 8)
返回 (“附加码不在你设置的附加白名单中”)
判断 (注册VIP返回值 ＝ 77)
返回 (“机器码或者IP因为非法使用，而被封禁”)
判断 (注册VIP返回值 ＝ 777)
返回 (“同一个机器码注册次数超过了服务器限制,被暂时封禁. 请登录后台，插件今日详细消费记录里，相应的机器码是否有次数异常，并立刻优化解决”)
判断 (注册VIP返回值 ＝ -8)
返回 (“版本附加信息长度超过了20”)
判断 (注册VIP返回值 ＝ -9)
返回 (“版本附加信息里包含了非法字母”)
判断 (注册VIP返回值 ＝ -10)
返回 (“非法的参数ip”)


返回 (“”)

.版本 2<br /> <br /> .子程序 VIP判断, 文本型, , 判断VIP注册返回值<br /> .参数 注册VIP返回值, 整数型<br /> <br /> .判断开始 (注册VIP返回值 ＝ 1)<br />     返回 (“VIP注册成功”)<br /> .判断 (注册VIP返回值 ＝ -1)<br />     返回 (“无法连接网络”)<br /> .判断 (注册VIP返回值 ＝ -2)<br />     返回 (“进程没有以管理员方式运行”)<br /> .判断 (注册VIP返回值 ＝ 0)<br />     返回 (“失败”)<br /> .判断 (注册VIP返回值 ＝ 2)<br />     返回 (“余额不足”)<br /> .判断 (注册VIP返回值 ＝ 3)<br />     返回 (“绑定了本机器，但是账户余额不足50元”)<br /> .判断 (注册VIP返回值 ＝ 4)<br />     返回 (“注册码错误”)<br /> .判断 (注册VIP返回值 ＝ 5)<br />     返回 (“你的机器或者IP在黑名单列表中或者不在白名单列表中”)<br /> .判断 (注册VIP返回值 ＝ 6)<br />     返回 (“非法使用插件”)<br /> .判断 (注册VIP返回值 ＝ 7)<br />     返回 (“你的帐号因为非法使用被封禁”)<br /> .判断 (注册VIP返回值 ＝ 8)<br />     返回 (“附加码不在你设置的附加白名单中”)<br /> .判断 (注册VIP返回值 ＝ 77)<br />     返回 (“机器码或者IP因为非法使用，而被封禁”)<br /> .判断 (注册VIP返回值 ＝ 777)<br />     返回 (“同一个机器码注册次数超过了服务器限制,被暂时封禁. 请登录后台，插件今日详细消费记录里，相应的机器码是否有次数异常，并立刻优化解决”)<br /> .判断 (注册VIP返回值 ＝ -8)<br />     返回 (“版本附加信息长度超过了20”)<br /> .判断 (注册VIP返回值 ＝ -9)<br />     返回 (“版本附加信息里包含了非法字母”)<br /> .判断 (注册VIP返回值 ＝ -10)<br />     返回 (“非法的参数ip”)<br /> .默认<br /> <br /> .判断结束<br /> 返回 (“”)

  

子程序名	返回值类型	公开	备 注
年月日	文本型		取 年 月 日 时间

变量名	类 型	静态	数组	备 注
注册时间	日期时间型

注册时间 ＝ 取现行时间 ()
返回 (到文本 (取年份 (注册时间)) ＋ “-” ＋ 到文本 (取月份 (注册时间)) ＋ “-” ＋ 到文本 (取日 (注册时间)))

.版本 2<br /> <br /> .子程序 年月日, 文本型, , 取 年 月 日 时间<br /> .局部变量 注册时间, 日期时间型<br /> <br /> 注册时间 ＝ 取现行时间 ()<br /> 返回 (到文本 (取年份 (注册时间)) ＋ “-” ＋ 到文本 (取月份 (注册时间)) ＋ “-” ＋ 到文本 (取日 (注册时间)))

类模块

.版本 2

.程序集 大漠类库
.程序集变量 obj, 对象

.子程序 创建, , 公开

释放 ()
obj.创建 (“dm.dmsoft”, )
SetParam64ToPointer ()

.子程序 释放, , 公开

obj.清除 ()

.子程序 Ver, 文本型, 公开

返回 (obj.文本方法 (“Ver”, ))

.子程序 RegEx, 整数型, 公开
.参数 code, 文本型
.参数 Ver, 文本型
.参数 ip, 文本型

返回 (obj.数值方法 (“RegEx”, code, Ver, ip))

.子程序 SetParam64ToPointer, 整数型, 公开

返回 (obj.数值方法 (“SetParam64ToPointer”, ))