我的Lisp程序'；t工作台

Ahmeds · 发表于 2022-7-6 06:18:42

(defun testing()
(setq one (vl-registry-delete "HKEY_CURRENT_USER\\Software\\Clans\\.ard" ""))
(setq two  (vl-registry-delete "HKEY_CURRENT_USER\\Software\\\\Shared\\ID" "" ))
(setq erase (one two))
(setq dated (fix (getvar (strcat "c" "d" "a" "t" "e"))))
(if (> (itoa 20140101) dated) T nil erase)
 (princ)
);end defun

我想运行这个LISP，就像当我到达给定日期（itoa 20140101）时，注册表项将被删除。。

MSasu · 发表于 2022-7-6 06:42:08

首先，请注意我们将整数与字符串进行比较。

此外，您将注册表项删除的结果分配给一个和两个变量，而不是指定的操作；可能希望改用嵌套的DEFUN。

第三，你有三个动作进入IF，而不是两个as的极限：

copy

(if (> 20140101 dated)
T
(progn
 (one)
 (two)
)
)

MSasu · 发表于 2022-7-6 07:05:37

出于好奇，你的意图是什么？你想定时轰炸AutoLISP应用程序吗？请问为什么？
在这种情况下，您认为公开发布您打算用于在注册表中隐藏信息的路径是一个好主意吗？

Ahmeds · 发表于 2022-7-6 07:27:08

我正在试验我的LISP，试图学习如何在LISP上运行定时炸弹取决于注册表项，实际上这不是我注册表上的确切路径这只是我的一个示例，谢谢。。

[编程交流] 我的Lisp程序'；t工作台

发表回复

精选推荐