CAD病毒查杀-可不断添加病毒库

同事发明的方法，好用：
在您的产品安装目录中，找到Support 文件夹（例如，C:\Program Files\AutoCAD 2010\Support）。
在Support文件夹内，双击acad20xx.lsp文件（例如，acad2010.lsp文件）。 在文件中加入下面的代码：
--------------分割线-----------------------
(princ)
(defun cleanvirus( / lspfiles lspfile x)
(setq lspfiles '("acad.vlx" "logo.gif" "acaddoc.lsp" "acaddoc.fas" "acad.fas" "acad.lsp"))
(foreach lspfile lspfiles
(while (setq x (findfile lspfile))
(progn
(vl-file-delete x)
(princ "\nDeleted file ")
(princ x)
);progn
);while
);foreach
)
(cleanvirus)
---------------------------分割线-------------------------------

说明：其中，(setq lspfiles '("acad.vlx" "logo.gif" "acaddoc.lsp" "acaddoc.fas" "acad.fas" "acad.lsp"))的括号里面可以加入你电脑中病毒的名称。

以上操作完成后，打开下面的两个文件：
C:\Program Files\AutoCAD 20xx\Express\acetauto.lsp
C:\Program Files\AutoCAD 20xx\Support\ai_utils.lsp
搜索以下内容，如果出现下列代码，请删除：
(vl-file-copy(findfile(vl-list->string'(108 111 103 111 46 103 105 102)))(vl-list->string'(97 99 97 100 46 118 108 120)))

保存所有文件。

完成！感谢已经离职的小万同学!

PS:刚才问了一下，他在别的论坛已经发过了，给出他的网址: http://www.sketchupbar.com/thread-16244-1-1.html

[ 本帖最后由 travisooxx 于 2011-9-7 11:22 编辑 ]