cad病毒終極解決方案

馬上注冊(cè)，結(jié)交更多好友，享用更多功能，讓你輕松玩轉(zhuǎn)社區(qū)。

您需要登錄才可以下載或查看，沒有帳號(hào)？立即加入SketchUp吧！

x

經(jīng)過多年研究，在這個(gè)病毒四溢的年代，cad也出現(xiàn)了病毒，再被它們折磨到崩潰的時(shí)候（死機(jī)，存圖顯示輸入路徑，各種鍵盤失靈，詭異退出，黨不會(huì)虧待你等等爛七八糟的病毒），我咬牙寫下了這段代碼。
希望給辛苦加班的cad同志們以幫助。減輕你們的痛苦（重裝，格機(jī)，丟圖)
此段代碼源自官方對(duì)acad.vlx病毒的解釋，及處理方法。我稍加改動(dòng)將常見的病毒都列入查殺范圍"acad.vlx""acaddoc.lsp" "acaddoc.fas" "acad.fas" "acad.lsp" 。
功能：
1打開文件時(shí)自動(dòng)刪除文件夾下的所有病毒。
2CAD啟動(dòng)時(shí)命令行提示“錯(cuò)誤: 參數(shù)類型錯(cuò)誤: stringp nil"永遠(yuǎn)消失。（只顯示加載項(xiàng)及是由哪個(gè)版本的cad，創(chuàng)建的有效的文件等等）

注意事項(xiàng)
經(jīng)過一年多的實(shí)踐，我的機(jī)器已有效的控制了病毒的蔓延。在聯(lián)機(jī)的局域網(wǎng)內(nèi)使用須將每臺(tái)機(jī)器都做處理，不然會(huì)有只讀文件影響刪除造成假死狀態(tài)，光盤如有毒請(qǐng)將DWG文件拷出再打開。適用版本cad2006~2011.

感謝POWERMEDIA對(duì)我的技術(shù)支持。感謝所有在繪圖行業(yè)辛苦工作，戰(zhàn)斗的同志們。感謝論壇。WZF

進(jìn)入正題（建議：最好是在剛裝好cad保證正常運(yùn)行時(shí)作如下操作。）
在您的產(chǎn)品安裝目錄中，找到Support 文件夾（例如，C:\Program Files\AutoCAD 2010\Support）。
在Support文件夾內(nèi)，雙擊acad20xx.lsp文件（例如，acad2010.lsp文件）。在文件中加入下面的代碼。 AutoCAD將發(fā)現(xiàn)并刪除所有病毒。
拷貝以下內(nèi)容到此文件acad2010.lsp的末尾：
(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)

打開下面的所有文件：
C:\Program Files\AutoCAD 20xx\Express\acetauto.lsp
C:\Program Files\AutoCAD 20xx\Support\ai_utils.lsp
查找到以下代碼，請(qǐng)刪除：
(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)))
保存所有文件。
cad選項(xiàng)設(shè)置結(jié)束后，將這兩個(gè)文件夾設(shè)為只讀，一勞永逸。（方法：在文件夾上單擊右鍵，屬性————常規(guī)————勾選只讀。）
X:\Program Files\AutoCAD 2010\Support
C:\Documents and Settings\(用戶名)\Application Data\Autodesk\AutoCAD 20XX（此文件夾為隱藏文件夾。可將路徑修改好用戶名及版本，考貝到開始--運(yùn)行，進(jìn)行查找。）

                                                                                                                     作者：WZF
                                                                                                                     2010.08.11

轉(zhuǎn)帖請(qǐng)注明出處：謝謝

CAD病毒查殺.rar (60.53 KB, 下載次數(shù): 32)

本貼附件下載

CAD病毒查殺.rar

60.53 KB , 吧幣: 200 , 請(qǐng)登陸后再進(jìn)行下載！