调动了精易模块,本人新手,只在业余时间学了几周而已,中间有漏洞,还不知道怎么改,高手勿喷, 变量名 | 类 型 | 静态 | 数组 | 备 注 | 配置信息 | 文本型 | | | 到期时间 | 文本型 | | | 当前时间 | 日期时间型 | | | 剩余试用时长 | 文本型 | | | 文件号 | 整数型 | | | 延时时长 | 整数型 | | | 如果 (文件是否存在 (取运行目录 () + “\切勿删除.dat”)) 配置信息 = 文本_解密c (读入文件 (取运行目录 () + “\切勿删除.dat”), “密码”)编辑框2.内容 = 到文本 (配置信息 )到期时间 = 文本_取出中间文本 (配置信息, “[到期时间:”, “]”, , 真)当前时间 = 时间_取北京时间 ()如果真 (到期时间 ≠ “” 且 取时间间隔 (到时间 (到期时间 ), 当前时间, #秒 ) < 0 )时钟1.时钟周期 = 0 信息框 (“对不起,您的试用时间已结束,如果想继续使用本软件,请联系作者QQ:350508236”, 0, “试用结束”, )销毁 ()时钟1.时钟周期 = 0 信息框 (“对不起,您的试用时间已结束,如果想继续使用本软件,请联系作者QQ:350508236”, 0, “试用结束”, )销毁 () 变量名 | 类 型 | 静态 | 数组 | 备 注 | 配置信息 | 文本型 | | | 到期时间 | 文本型 | | | 当前时间 | 日期时间型 | | | 剩余时间 | 文本型 | | | 如果真 (文件是否存在 (取运行目录 () + “\切勿删除.dat”)) 配置信息 = 文本_解密c (读入文件 (取运行目录 () + “\切勿删除.dat”), “密码”)到期时间 = 文本_取出中间文本 (配置信息, “[到期时间:”, “]”, , 真)当前时间 = 时间_取北京时间 ()如果真 (到期时间 = “”) 到期时间 = 时间到文本 (增减时间 (当前时间, #分钟, 1 ), ) 写到文件 (取运行目录 () + “\切勿删除.dat”, 文本_加密c (“[到期时间:” + 到期时间 + “]”, “密码”)) 时钟检测到期时间.时钟周期 = 0 信息框 (“您的试用时间为5分钟,到期时间为” + 到期时间, 0, “提示”, )时钟检测到期时间.时钟周期 = 1000 如果真 (取时间间隔 (到时间 (到期时间 ), 当前时间, #秒 ) > 0 且 取时间间隔 (到时间 (到期时间 ), 当前时间, #秒 ) ≤ 60 )剩余时间 = 到文本 (取时间间隔 (到时间 (到期时间 ), 当前时间, #秒 )) 时钟检测到期时间.时钟周期 = 0 信息框 (“您的试用到期时间为” + 到期时间 + #换行符 + “当前试用剩余时长” + 剩余时间 + “秒”, 0, , )时钟1.时钟周期 = 1000 检测剩余时间 ()软件试用时间 ()到期时间 = 时间到文本 (增减时间 (取现行时间 (), #分钟, 到整数 (编辑框2.内容 )), ) 写到文件 (取运行目录 () + “\切勿删除.dat”, 文本_加密c (“[到期时间:” + 到期时间 + “]”, “密码”)) 。
|