langke52 发表于 2017-12-19 16:34:59

(WHILE (OR (SETQ a (FINDFILE "acaddoc.lsp"))
         (SETQ a (FINDFILE "acaddoc.fas"))
       ) ;_ 结束or
(OR (WCMATCH A "*Tangent*") (VL-FILE-DELETE a))
) ;_ 结束while
含有Tangent文字的路径不删除。病毒会跟文件一起加载，这个FINDFILE不一定找得到

血司 发表于 2017-12-19 17:08:11

前生 发表于 2017-12-19 00:10
1：良好的绘图习惯
2：别人发过来的图，特别是压缩文件，先解压，看看有没有*.lsp,fas,vlx 文件，有就彻底 ...

正解，就是一句，良好的使用习惯

caokancc 发表于 2017-12-20 14:15:14

所有的dwg文件，不要双击dwg打开，而是从cad软件里面选择打开。。。

xman00 发表于 2017-12-20 14:18:30

cabinsummer 发表于 2017-12-19 15:18
论坛里虾的杀毒是最好的，懂CAD的人才能写出最好的CAD杀毒软件。网上那些CAD杀毒都是垃圾。

具体是哪位大家哇，能否上传你提到的它的杀毒作品

ftmm 发表于 2017-12-28 09:33:33

顶一下......

mj0000 发表于 2017-12-28 13:46:57

找个病毒文件，里面有改文件属性的函数

ftmm 发表于 2017-12-28 14:52:50

找了3-4个，都没发现有。

mj0000 发表于 2018-1-1 14:00:56

;;; 设置文件属性
;;; 用这个函数把要删的文件属性设置为0
;;; (setq virus-file (findfile "acad.fas")) ;文件路径
;;; (YX:File-Att_Set virus-file 0) ;设置文件属为0才能删除
;;; (if (vl-file-delete virus-file) (princ (strcat "*** 文件《 " virus-file " 》已经删除 ***\n")));先删除acad.fas
(defun Att_Set (fp code / fp1)
(if (and fp (/= "" fp) code)
    (progn (vl-load-com)
         (vlax-put-property (setq fp1 (vlax-invoke-method (vlax-create-object "Scripting.FileSystemObject") 'GetFile fp))
                              'Attributes
                              code
         )
         (vlax-release-object fp1)
    )
)
)

前生 发表于 2018-1-1 20:23:54

实际上。acad以及acaddoc是自定义函数加载的常用模式，你说的这种或这些方法，没用。
页: 1 [2]
查看完整版本: 12.28日更新-cad病毒免疫的一种有效方法