如何将病毒文件改为可读并删除？

feijia 发表于 2012-4-17 18:29:54

本帖最后由 feijia 于 2012-4-17 18:34 编辑

以前用筑原可以杀毒，但如果打开的文件里有病毒，就会再次中毒,所以只有将病毒文件先删除才能避免再次中毒。看到一个帖子说将以下代码添加到 acad.lsp文件中即可实现自动删除acad.fas等病毒。但如果acad.fas是只读的，就不能被删除。据说可以shell 之后 attrib -r fielname。本人不懂lisp，麻烦高手能帮我修改一下代码吗？代码如下

=================================

(defun cleanvirus(/ FLST NUM I)
  (setq FLST '("acad.vlx" "acad.fas" "logo.gif"));此处可以添加你要删除病毒文件的名称列表
  (SETQ NUM (LENGTH FLST) I 0)
  (REPEAT NUM
(vl-file-delete (NTH I FLST))
(SETQ I (1+ I))
)
  )
(cleanvirus)

==============================

feijia 发表于 2012-4-17 20:57:16

本帖最后由 feijia 于 2012-4-17 20:57 编辑

不能用lisp将文件夹里的病毒文件改为可读然后删除吗？每次手动删除比较麻烦。

Andyhon 发表于 2012-4-17 21:23:01

建议直接用 Dos 下的 Batch 执行删除

feijia 发表于 2012-4-18 12:53:50

没有办法使cad启动时自动删除文件夹内的只读病毒（已知病毒文件名）吗？

Andyhon 发表于 2012-4-18 14:28:13

在启动组定义则启动时自动...
前提是调用到的函数有效

用 DosLib 的函数简单些
(dos_attrib "V:\\*.Lsp" 0)

cabinsummer 发表于 2012-4-19 06:54:57

你是在打开病毒文件的情况下用筑原杀毒啊？牛人！佩服！

页: [1]

明经CAD社区's Archiver

如何将病毒文件改为可读并删除？