:1.883KB : :1 :2020-02-29 19:47:19
.如果真 (文件是否存在 (取运行目录 () + “\切勿删除.dat”))
配置信息 = 文本_解密c (读入文件 (取运行目录 () + “\切勿删除.dat”), “密码”)
到期时间 = 文本_取出中间文本 (配置信息, “[到期时间:”, “]”, , 真)
当前时间 = 时间_取北京时间 ()
.如果真 (到期时间 = “”) ' 判断到期时间
到期时间 = 时间到文本 (增减时间 (当前时间, #分钟, 1), ) ' 1可以改为任意数,即试用时长,单位为分钟
写到文件 (取运行目录 () + “\切勿删除.dat”, 文本_加密c (“[到期时间:” + 到期时间 + “]”, “密码”))
时钟检测到期时间.时钟周期 = 0
信息框 (“您的试用时间为5分钟,到期时间为” + 到期时间, 0, “提示”, )
时钟检测到期时间.时钟周期 = 1000
.如果真结束
.如果真 (取时间间隔 (到时间 (到期时间), 当前时间, #秒) > 0 且 取时间间隔 (到时间 (到期时间), 当前时间, #秒) ≤ 60)
剩余时间 = 到文本 (取时间间隔 (到时间 (到期时间), 当前时间, #秒))
时钟检测到期时间.时钟周期 = 0
信息框 (“您的试用到期时间为” + 到期时间 + #换行符 + “当前试用剩余时长” + 剩余时间 + “秒”, 0, , )
02-17宝宝起名,起名软件
02-17Steam的SSFN授权软件
02-16音乐定时播放软件,自动播放指定的内容
02-16鹦鹉记账软件,SQLite数据库版
02-16轮播识拼音汉字软件
02-16程序开发者软件管理服务端,验证系统
02-16简陋的自动录入软件
08-28Office软件打开et格式文件方法
11-16office办公软件显示修订文档的状态
11-16电脑没有Word软件打开Word文档
11-15WPS Office软件有哪些配置技巧
11-14使用办公软件打印费用通知单