给软件增加免费试用时间的工具

' 文件号 ＝ 打开文件 (取运行目录 () ＋ “\切勿删除.dat”, #重写, ) 该段代码用以检测“切勿删除”如果不存在的话，新建一个文档，并将到期时间赋值，漏洞是，如果每次到期后，将该文档删除，将再次获得试用时间。。。。
' 当前时间 ＝ 时间_取北京时间 ()
' 到期时间 ＝ 时间到文本 (增减时间 (当前时间, #分钟, 1), )
' 写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “peiqi”))
' 关闭文件 (文件号)