[讨论]禁用vlide & (vlr-remove-all) 程序測試

meflying · 发表于 2004-9-24 19:08:00

楼上没看见楼主这句话吗?"图档加密有希望!!!!" 说明大家都还在讨论

龙龙仔 · 发表于 2004-9-29 07:56:00

lzh741206发表于2004-9-24 18:50:00可以禁止VB利用ActiveX获得图元么？

如vbaide不能用,又不能加载vba的程序,vb不熟--它用其他方法加载程序or执行程序?

雪山飞狐_lzh · 发表于 2004-9-29 09:32:00

另外用VB做一个程序，应该不能禁止吧，好像没有相应的读取反应器？

龙龙仔 · 发表于 2004-9-29 10:23:00

本帖最后由作者于 2004-9-29 11:15:22 编辑

meflying发表于2004-9-24 14:15:00关于加密,龙版可以看看这个帖子,相关文件由于楼主已删除,不方便贴出来,已发到你邮箱里了 <A href=\"dispbbs.asp?BoardID=1&reply...

破解图有需要MEFLYING可以再重传加密图部份吗?

雪山飞狐_lzh · 发表于 2004-9-29 10:46:00

可以发在我的邮箱里么，一直没看见，：） lzh741206@126.com

龙龙仔 · 发表于 2004-9-29 11:16:00

lzh741206:已寄出查收

我对vba&vb&arx不熟,但要是规定不能用vba&vb&arx破解,我想应该可以做到加密(防vba&vb&arx解密要另找别人了!)

雪山飞狐_lzh · 发表于 2004-9-29 11:45:00

奇怪，怎么一直没收到，试试这个邮箱 lzh741206@sohu.com 麻烦龙兄再传一遍，：）

龙龙仔 · 发表于 2004-9-29 12:24:00

贴上来再研究先让图中的图元显示出来看看,再加载VLX文件

雪山飞狐_lzh · 发表于 2004-9-29 13:09:00

打开两个文档，第一个是加密文档，第二个新建文档，激活第一个 [Power=2] Sub TlsTestX1()
Dim doc As AcadDocument
Dim MSpace As AcadBlock
Set doc = ThisDrawing.Application.Documents(1)
Set MSpace = ThisDrawing.ModelSpace
Dim objs() As AcadEntity
ReDim objs(MSpace.Count - 1) As AcadEntity
For i = 0 To MSpace.Count - 1
Set objs(i) = MSpace(i)
Next i
ThisDrawing.CopyObjects objs, doc.ModelSpace
End Sub
[/Power]

龙龙仔 · 发表于 2004-9-29 16:37:00

那是因为他没有限制vba,如只能用lisp,再试一下 8-)

顺便想一下VBA & VB禁用方法好吗?

账号		自动登录	找回密码
密码			注册

[讨论]禁用vlide & (vlr-remove-all) 程序測試

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源