2303cehui 发表于 2010-6-23 09:52:00

acad.vlx自动杀毒精简版

<p>将以下代码添加到 acad????.lsp文件中即可实现自动删除acad.vlx</p>
<p>=================================</p>
<p><font face="Verdana">(defun cleanvirus(/ FLST NUM I)<br/>&nbsp; (setq FLST '("acad.vlx"&nbsp;"acad.fas" "logo.gif"));此处可以添加你要删除病毒文件的名称列表<br/>&nbsp; (SETQ NUM (LENGTH FLST) I 0)<br/>&nbsp; (REPEAT NUM<br/>&nbsp;&nbsp;&nbsp; (vl-file-delete (NTH I FLST))<br/>&nbsp;&nbsp;&nbsp; (SETQ I (1+ I))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>(cleanvirus)</font></p>
<p>==============================</p>

dwg001 发表于 2010-6-24 22:29:00

对已知特定的病毒名，不失为一种简便的方法。
页: [1]
查看完整版本: acad.vlx自动杀毒精简版