楼上没看见楼主这句话吗?"<FONT face="Times New Roman" size=3>图档加密有希望!!!!"</FONT>
<FONT face="Times New Roman" size=3>说明大家都还在讨论</FONT>
lzh741206发表于2004-9-24 18:50:00static/image/common/back.gif可以禁止VB利用ActiveX获得图元么？
<BR>如vbaide不能用,又不能加载vba的程序,vb不熟--它用其他方法加载程序or执行程序?
另外用VB做一个程序，应该不能禁止吧，好像没有相应的读取反应器？
本帖最后由 作者 于 2004-9-29 11:15:22 编辑 <br /><br /> meflying发表于2004-9-24 14:15:00static/image/common/back.gif关于加密,龙版可以看看这个帖子,相关文件由于楼主已删除,不方便贴出来,已发到你邮箱里了
<A href=\"dispbbs.asp?BoardID=1&reply...
<BR>破解图
有需要MEFLYING可以再重传加密图部份吗?
可以发在我的邮箱里么，一直没看见，：）
<A href="mailto:lzh741206@126.com" target="_blank" >lzh741206@126.com</A>
<A name=55723><FONT color=#990000><B>lzh741206</B></FONT></A>:已寄出查收
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3>我对<FONT face="Times New Roman">vba&vb&arx</FONT>不熟<FONT face="Times New Roman">,</FONT>但要是规定不能用<FONT face="Times New Roman">vba&vb&arx</FONT>破解<FONT face="Times New Roman">,</FONT>我想应该可以做到加密<FONT face="Times New Roman">(</FONT>防<FONT face="Times New Roman">vba&vb&arx</FONT>解密要另找别人了<FONT face="Times New Roman">!)</FONT></FONT>
奇怪，怎么一直没收到，试试这个邮箱
<A href="mailto:lzh741206@sohu.com" target="_blank" >lzh741206@sohu.com</A>
麻烦龙兄再传一遍，：）
贴上来再研究
先让图中的图元显示出来看看,再加载VLX文件<BR>
打开两个文档，第一个是加密文档，第二个新建文档，激活第一个
Sub TlsTestX1()<BR>Dim doc As AcadDocument<BR>Dim MSpace As AcadBlock<BR>Set doc = ThisDrawing.Application.Documents(1)<BR>Set MSpace = ThisDrawing.ModelSpace<BR>Dim objs() As AcadEntity<BR>ReDim objs(MSpace.Count - 1) As AcadEntity<BR>For i = 0 To MSpace.Count - 1<BR>Set objs(i) = MSpace(i)<BR>Next i<BR>ThisDrawing.CopyObjects objs, doc.ModelSpace<BR>End Sub<BR>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">那是因为他没有限制vba,如只能用lisp,再试一下<SPAN style="mso-spacerun: yes"> 8-)</SPAN>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">顺便想一下VBA & VB禁用方法好吗?