[求助]：会用反应器的高手请进

lazybug

最近初学反应器,遇到了个问题,清高手指点一下,万分感激……
永久性反应器在图档重新打开时可以自行加载。但是，该对象反应器的支持程序却不能自动加载。操作时会出现形如“; 错误:怎么解决？: 函数名”的错误提示。如何才能过让该程序自动加载。
书上说，要做成具有独立变量空间的vlx。但是我做成vlx文件根本不管用，还是要加载lsp文件才能用。我不知道问题出在那里。

mmmm

永久反应器的回调函数是不会被自动加载的。简单的方法是把回调函数并入ACAD.LSP, ACADDOC.LSP or .MNL中，这样伴随着图形打开就能被加载。

LUCAS

最初由 mmmm 发布
[B]永久反应器的回调函数是不会被自动加载的。简单的方法是把回调函数并入ACAD.LSP, ACADDOC.LSP or .MNL中，这样伴随着图形打开就能被加载。 [/B]

永久反应器的回调函数是可以自动加载的。
只是到现在没法阻止自动加载,所以一直没有放出...
但国外论坛已放出自动加载程序,现在只等dwg档案的病毒什么时候出现而已

雨箭风刀

lucas给做一个模拟病毒（良性）的吧：）

lazybug

3楼lucas版主，既然不能公开，可不可以发到我邮箱里：bilt@163.com
另外，我认为即使做成病毒了危害也不会太大
其性质跟常见的acad.lsp病毒差不多，只要把要自动加载的vlx文件全删光了就可以了
程序实体不存在了，即使有自动加载的功能也加载不到了

mmmm

回调函数被加载的前提是存在VLX或FAS文件，但作为图形的数据交换，你不可能明目张胆地把VLX或FAS一起提供而不给与说明。对大多数基本用户来说，只会复制DWG文件，所以还是加载不上的。除非有办法把程序直接附加在DWG文件中并随DWG一起保存。

LUCAS

把要自动载入的vlx档全删光
=>有可能删光吗?你知道那个vlx是自动载入的吗?
=>假如有人先放出一个程序vlx(内含病毒,先提供试用,病毒不会发作)
=>等一段时间再放出一个可自动加载的图档供人下载
=>两者结合病毒才会发作

我认为即使做成病毒了危害也不会太大
=>是吗?我想vlisp在更改、删除档案是很容易的,而且可以在开图档瞬间完成,
   使用者还不会发觉。

lucas给做一个模拟病毒（良性）的吧：）
=>良性病毒?? 雨箭风刀 你不是会吗?

lazybug

答六楼：
我现在做的这个反应器，只是为了自己绘图的时候方便。但是如果放在ACAD.lsp或启动组里边，只是某张图需要加载的东西在cad的每个dwg图档里都要加载一遍，我不知道站系统资源多少，但是总是感觉特别不舒服。

答七楼：
说实话我的确没考虑到
acad.lsp类的病毒名字总是有限的那几个
而作成永久反应器，vlx名字却可以任意取

解决方案也不是没有
首先，不要随便用别人的vlx文件，非人品信得过的不用
再者，永久反应器自动加载时会有提示的，使用者可以注意一下
再有，有用的东西做好备份


说到危害
acad.lsp也可以更改为“可以更改、删除档案是很容易的,而且可以在开图档瞬间完成,”好像也没听说出现过那么严重的结果的。
再者，cad2000i之后，永久反应器就可以自动加载了，已经好几年了。我想除了 LUCAS 的link_text.vlx应该还有不止一个人能做到吧，好像也没听说过有永久反应器病毒问世阿。

再有，即使作出了能够禁止永久反应器自动加载的程序，如果真的有了这类病毒，总不能让每个人的cad在打开时都自动加载一个“禁止反应器自动加载.vlx”吧。那么这个文件的安全性又有谁来评价呢

再说，做cad病毒还有很多道路可走：写在扩展数据、词典里，甚至是直接以mtext写到特定的图层里。但是，我觉得学lisp的人大多是为了使自己的工作更方便更快捷，cad都是自己的工具，想方设法作病毒毁坏自己的工具简直是不可原谅。最多就是向别人显示一下自己的水平比如那个acad.lsp

LUCAS

2. 
   
3. ;;一个良性的测试病毒,我想也没有几个会试!
   
4. ;;打开图档,加载本程序,图档存档再打开,会自动加载本程序
   
5. ;;(当然程序要在搜寻路径中!!)
   
6. ;;程序将列印出autocad搜寻目录下所有档案改为乱码的过程
   
7. ;;图档再存档再打开,程序又不会自动加载了!
   
8. ;;(因程序已被删除,不会留下证据)
   
9. ;;当然程序是良性的,并不真的改档案名称
   
10. ;;就差这句没有用上
    
11. (mapcar
    
12.   '(lambda (X)
    
13.      (vl-catch-all-apply
    
14.        'vl-file-rename
    
15.        (list X
    
16.              (strcat (vl-filename-directory X) "\" (RANDOM_NAME))
    
17.        )
    
18.      )
    
19.    )
    
20.   QQ
    
21. )|;
    
22. ;;要是无法阻档这类自动加载,以后开dwg图档要先扫毒!!
    
23. ;;有自动加载的图档,打开图档会出现"Restoring Ldata->"
    

<br /> ;;一个良性的测试病毒,我想也没有几个会试!<br /> ;;打开图档,加载本程序,图档存档再打开,会自动加载本程序<br /> ;;(当然程序要在搜寻路径中!!)<br /> ;;程序将列印出autocad搜寻目录下所有档案改为乱码的过程<br /> ;;图档再存档再打开,程序又不会自动加载了!<br /> ;;(因程序已被删除,不会留下证据)<br /> ;;当然程序是良性的,并不真的改档案名称<br /> ;;就差这句没有用上<br /> (mapcar<br />   '(lambda (X)<br />      (vl-catch-all-apply<br />        'vl-file-rename<br />        (list X<br />              (strcat (vl-filename-directory X) "\" (RANDOM_NAME))<br />        )<br />      )<br />    )<br />   QQ<br /> )|;<br /> ;;要是无法阻档这类自动加载,以后开dwg图档要先扫毒!!<br /> ;;有自动加载的图档,打开图档会出现"Restoring Ldata->"<br />

雨箭风刀

惨啦
要是把核心语句改成格式化硬盘什么的，就可以验证5楼的话“我认为即使做成病毒了危害也不会太大”了。
阿弥陀佛。。。。。

LUCAS

好像也没听说过有永久反应器病毒问世
=>Autocad在VBA载入时会问是否要加载,想也就是怕病毒
=>是因为VBA会嵌入在图档中
=>而vlisp的自动加载必需图档及程序同时在搜寻目录中,这容易使人忽略vlx的危险性。
=>幸运的是自动加载知道的人不多

link_text.vlx应该还有不止一个人能做到吧!
=>做到的人应很多,但多是隐性的,像你做到后可能就不会再谈论了！

lazybug

看看你的病毒（良性）执行所需的条件
;;打开图档,加载本程序,图档存档再打开,会自动加载本程序
;;(当然程序要在搜寻路径中!!)

那我就是"把核心语句改成格式化硬盘什么的"，然后做成vlx文件
然后“打开图档,加载本程序,”之后马上就格式化你的硬盘
而不是做成永久反应器，这样也是可以地吧

关键是，我为什么要“打开图档，加载本程序”阿。
或者，像 LUCAS  说得那样
=>假如有人先放出一个程序vlx(内含病毒,先提供试用,病毒不会发作)
=>等一段时间再放出一个可自动加载的图档供人下载

对于这种情况，我只能说，这个人太阴险了太不是东西了

另外，我想问一下，假如我的文件1.dwg就是那个“可自动加载的图档”，现在我已经把它打开了，它也自动加载那个含病毒程序了，同时我还开了文件2、3、4、5、……那么，这个永久反应器可不可以在不通知用户的情况下让文件2、3、4、5、……加载它？
如果答案肯定的话，那么，我说，对不起 LUCAS  ，你不是像我想像得那样只不过为了丑显才不把方法公开！我也不会再在论坛上问这个问题了

PS；我下载了你那个qrename.vlx了，但是我没有加载，看了看之后又删掉了。因为我说过“首先，不要随便用别人的vlx文件，非人品信得过的不用”。我没有别的意思，只是想说明：病毒是很可怕，但是只要时刻警惕那么病毒钻空子的机会就会很小很小！！！


>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'发完帖子才看到11楼
而vlisp的自动加载必需图档及程序同时在搜寻目录中,这容易使人忽略vlx的危险性
=>不用吧,改改注册表然后随便放哪都是可以加载上的吧
这种方法比你的link_text.vlx就差在,留意的话就能禁止它
如你所说,"自动加载知道的人不多",那就是说能"留意禁止它"的人也不多!
伤脑筋阿,很可能会被做成能"格式化硬盘"的病毒的


做到的人应很多,但多是隐性的,像你做到后可能就不会再谈论了！
=>我也是这么认为的,
但是既然已经有很多人知道了,病毒呢?怎么还没出现?
另外,我现在就已经不想谈论这个问题了,虽然我还没作出来
谈论了半天,真正带技术含量的文字太少了,废话太多
或者不是废话,大家只是想告诉我:不要在这个地方说这种事

前生

最初由 LUCAS 发布
[B]好像也没听说过有永久反应器病毒问世
=>Autocad在VBA载入时会问是否要加载,想也就是怕病毒
=>是因为VBA会嵌入在图档中
=>而vlisp的自动加载必需图档及程序同时在搜寻目录中,这容易使人忽略vlx的危险性。
=>幸运?.. [/B]

少谈论这些为好。
呵呵。为了大家的安全.开开玩笑。

LUCAS

对于这种情况，我只能说，这个人太阴险了太不是东西了
=>所有木马程序皆如此,等待机会发作

另外，我想问一下，假如我的档1.dwg就是那个“可自动载入的图档”，现在我已经把它打开了，它也自动载入那个含病毒程式了，同时我还开了档2、3、4、5、……那么，这个永久反应器可不可以在不通知用户的情况下让档2、3、4、5、……载入它？

原厂说明:AutoLISP 对在不在作用中的文件内执行反应装置回覆函数方面，提供有限的支援。依预设，反应装置回覆函数的执行条件是：当该函数在其中定义的文件是作用中文件而发生通知事件时。您可以使用 vlr-set-notification 函数来改变此行为。
;;答案是肯定的,下列程序加载后,只要加载程序的图档(不是新图)不关闭,
;;你每次打开旧档(不是打开新档),ALERT都会出现!
(vl-load-com)
(if MYREACT
  (vlr-remove MYREACT)
)
(setq MYREACT
       (vlr-dwg-reactor NIL '((:vlr-enddwgopen . MYFUNCTION)))
)
(vlr-set-notification MYREACT 'ALL-DOCUMENTS)
(defun MYFUNCTION (ARG-OBJECT ARG-LIST)
  (alert "Reactor works")
)

lazybug

好的，以后不在公共场合讨论怎样自动加载永久反应器的支持程序了

感谢指点！！
我明白是怎么回事了。

再问两个问题::
1.可不可以在不打开dwg图档的情况下实现（vlr-reactors）的功能？
2.假如一个图档里有多个永久反应器,它们自动加载的顺序是怎样的?可控么?