下你所需,载你所想!
汇集开发技术源码资料

给软件增加试用时间的功能

:1.883KB :1 :2020-02-29 19:47:19

部分简介

.如果真 (文件是否存在 (取运行目录 () + “\切勿删除.dat”))
配置信息 = 文本_解密c (读入文件 (取运行目录 () + “\切勿删除.dat”), “密码”)
到期时间 = 文本_取出中间文本 (配置信息, “[到期时间:”, “]”, , 真)
当前时间 = 时间_取北京时间 ()
.如果真 (到期时间 = “”) ' 判断到期时间
到期时间 = 时间到文本 (增减时间 (当前时间, #分钟, 1), ) ' 1可以改为任意数,即试用时长,单位为分钟
写到文件 (取运行目录 () + “\切勿删除.dat”, 文本_加密c (“[到期时间:” + 到期时间 + “]”, “密码”))
时钟检测到期时间.时钟周期 = 0
信息框 (“您的试用时间为5分钟,到期时间为” + 到期时间, 0, “提示”, )
时钟检测到期时间.时钟周期 = 1000
.如果真结束
.如果真 (取时间间隔 (到时间 (到期时间), 当前时间, #秒) > 0 且 取时间间隔 (到时间 (到期时间), 当前时间, #秒) ≤ 60)
剩余时间 = 到文本 (取时间间隔 (到时间 (到期时间), 当前时间, #秒))
时钟检测到期时间.时钟周期 = 0
信息框 (“您的试用到期时间为” + 到期时间 + #换行符 + “当前试用剩余时长” + 剩余时间 + “秒”, 0, , )

给软件增加试用时间的功能

热门推荐

相关文章