|
//初始化调用注册码验证,测试了很多次,如果在初始化里关闭辅助会出现异常错误。
//只能先启动了辅助然后用时钟来关闭辅助,这样就不会报错了
功能 布尔型 初始化()
布尔型 是否成功=注册码验证.验证注册码()
如果(是否成功==假)
timer.register("timer0",500)
否则
定时器.销毁("timer0")
如果结束
返回 真
功能结束
//下面是验证注册码函数,因为现在的软件版本还没有记录辅助上次信息的功能所以用户每
//次开启辅助都要输入一次注册码,很麻烦,所以我们得用辅助把注册码记录下来,这样
//用户下次开启辅助就不用输入注册码,而是直接提示注册码的使用剩余时间。
功能 布尔型 验证注册码()
字符型 验证码注册返回值
字符型 xzcm
//下面这个是先获取辅助存放的注册码,如果没有辅助会提示用户输入注册码。
字符型 zcm=辅助.读配置("注册信息","注册码","d:\\注册信息.ini")
如果(zcm!="")
//下面是如果能获取到辅助上次保存的注册码的操作
vip.checkregcode("自己的个人中心注册码帐号",zcm,"项目类型",验证码注册返回值)
如果(字符串.是否整型(验证码注册返回值,0))
//下面是计算辅助的使用剩余时间,我的这个是提示到辅助的使用剩余天数和小时数。
整型 shi=转换.字符型转整型(验证码注册返回值,0)%24
整型 tian=(转换.字符型转整型(验证码注册返回值,0)-(转换.字符型转整型(验证码注册返回值,0)%24))/24
辅助.确认对话框("您的使用时间为:"+转换.整型转字符型(tian)+"天"+转换.整型转字符型(shi)+"小时","辅助提示",0,真)
否则
辅助.确认对话框(验证码注册返回值,"辅助提示",0,真)
文件.删除("d:\\注册信息.ini")
返回 假
如果结束
否则
//下面是如果用户第一次用辅助,会出一个输入对话框,供用户输入注册码。
整型 ret=help.inputbox("辅助提示","请输入注册码",xzcm)
如果(ret==1)
vip.checkregcode("自己的个人中心注册码帐号",xzcm,"项目类型",验证码注册返回值)
如果(字符串.是否整型(验证码注册返回值,0))
整型 shi=转换.字符型转整型(验证码注册返回值,0)%24
整型 tian=(转换.字符型转整型(验证码注册返回值,0)-(转换.字符型转整型(验证码注册返回值,0)%24))/24
辅助.确认对话框("您的使用时间为:"+转换.整型转字符型(tian)+"天"+转换.整型转字符型(shi)+"小时","辅助提示",0,真)
//下面是如果用户输入的注册码正确,那么就会把用户的注册码写入配置文件,这样下次就不需要再写了。
辅助.写配置("注册信息","注册码",xzcm,"d:\\注册信息.ini")
否则
辅助.确认对话框(验证码注册返回值,"辅助提示",0,真)
返回 假
如果结束
否则
如果(ret==0)
返回 假
如果结束
如果结束
如果结束
返回 真
功能结束
//下面就是时钟停止辅助了,这样的话就不会出现那个资源错误提示了
功能 布尔型 timer0_时钟()
辅助.退出()
返回 真
功能结束
//我这测试限制方法比较简单和传统,采用的是时间限制和次数限制
//时间是用时钟来控制的。测试时间你可以自己设置
//次数是用写配置方法达到的,是偷偷写到某个盘下的某个文件夹内的,呵呵!
//当然也可以把这个次数限制配置文件给隐藏了
功能 整型 测试限制()
//下面是先看用户是否用过测试版,如果用过就会自动退出。
字符型 测试次数=辅助.读配置("测试信息","次数","c:\\windows\\testn.ini")
如果(测试次数=="")
//下面是如果用户未用过,那么就会先写入配置文件用户用过测试。然后开启测试辅助
辅助.写配置("测试信息","次数","1","c:\\windows\\testn.ini")
//下面是当用户测试时间达到你设置的测试时间就会响应时钟!
timer.register("timer0",30*60*1000)
否则
//下面是当用户用过测试版,那么直接响应时钟!
timer.register("timer0",3*1000)
如果结束
返回 0
功能结束
//这个函数就是时钟关闭辅助了!
功能 布尔型 timer0_时钟()
辅助.确认对话框("试用时间或者次数已到,请购买正式版","辅助",0,真)
辅助.退出()
返回 真
功能结束 |

|