在特定的d处停止例程

Michaels · 发表于 2022-7-6 09:48:14

是否可以控制Lisp例程在经过特定日期后甚至不运行后停止工作

如果用户将计算机的日期向后推？

非常感谢

Smirnoff · 发表于 2022-7-6 09:52:02

像这样的。如果时间尚未过期且系统时间未更改，则此函数返回T。但您可以使用比通过“setenv”函数设置环境变量更秘密的方法。例如，将数据写入注册表或某些密文文件。

当然用户可以每天设置相同的日期，但这并不方便。这也是可以设想的。

(defun TimeControl(Days / Pass)
 (if(not(getenv "FirstDate"))
   (setenv "FirstDate"(itoa(fix(getvar "CDATE"))))
   ); end if
 (if(not(getenv "LastDate"))
   (setenv "LastDate"(getenv "FirstDate"))
   ); end if
 (setq lDate(atoi(getenv "LastDate"))
fDate(atoi(getenv "FirstDate"))
cDate(fix(getvar "CDATE")))
 (cond
   ((> cDate lDate)
    (alert "Your system time has been changed.\n Bue, bue bad guy... ")
    ); end condition #1
   ((>(- cDate fDate)Days)
     (alert "Your time has been expired.\n Call me baby. ")
    ); # end condition #2
   (T (setq Pass T)
     (setenv "LastDate"(itoa(fix(getvar "CDATE"))))
     ); end condition #3
    ); end cond
   Pass         
  ); end of TimeControl

Michaels · 发表于 2022-7-6 09:55:35

非常感谢，非常感谢。

我想知道更多关于注册表处理字符串的方式的信息。

那你能给我推荐点什么吗？

当做

迈克尔

Guest kruuger · 发表于 2022-7-6 10:01:22

写入注册表：

copy

(vl-registry-write "HKEY_CURRENT_USER\\Software\\MyApp" "Day left" "30")

从reg读取：

copy

(vl-registry-read "HKEY_CURRENT_USER\\Software\\MyApp" "Day left")

k

Michaels · 发表于 2022-7-6 10:01:45

谢谢克鲁格。

那么注册表的（setenv）和您的之间有什么区别呢。。

（vl注册表写入“HKEY\U CURRENT\U USER\\Software\\MyApp”“Day left”“30”）

还有第二个是从（getenv）和您的。。。

（vl注册表读取“HKEY\U CURRENT\U USER\\Software\\MyApp”“还剩一天”）

非常感谢。