设置程序试用时间功能

.如果真 (寻找文件 (“C:\Program Files\WinRAR\加密文件.ini”, ) ≠ “加密文件.ini”) ' 最好写隐蔽一点的位置
.如果 (取时间部分 (取北京时间 (), #秒) ≥ 51)
文本 ＝ 到文本 (增减时间 (增减时间 (取北京时间 (), #秒, 60 － 取时间部分 (取北京时间 (), #秒)), #分钟, 1))
调试输出 (文本)
.否则
文本 ＝ 到文本 (增减时间 (取北京时间 (), #秒, 10)) ' 10秒关闭
调试输出 (文本)
.如果结束
写到文件 (取运行目录 () ＋ “\加密文件.ini”, 加密数据 (到字节集 (文本), “我要加密”, 2))
.如果真结束
启动线程 (&取时间, , )