[求助]如何不让文件被拷贝?
我用VBA编写了一个专业软件,内嵌在某一图形文件中.我只想拷贝给我的同事使用,而不想让他们外传.也就是说只有我有权利给别人拷贝,而别人无法进行拷贝,只能使用.请高手指教. 在程序开始的部分加一段,检查使用者是否在合法用户名单里面AutoCAD有一个只读的系统变量LOGINNAME,其值为用户名。<BR>在AutoCAD命令栏直接输LOGINNAME就可以看出当前值是多少
比如你只准备让USER1、USER2、USER3三个人用你的程序
Dim strLoginName As String<BR>Dim varLegalUsers As Variant<BR>Dim i As Integer<BR>Dim n As Integer
varLegalUsers = Array("USER1", "USER2", "USER3") '合法用户名单<BR>n = UBound(varLegalUsers)<BR>strLoginName = ActiveDocument.GetVariable("LOGINNAME")<BR>For i = 0 To n<BR> If UCase$(strLoginName) = varLegalUsers(i) Then Exit For<BR>Next<BR>If i > n Then End '如属非法用户停止运行 LOGINNAME 这个用户名是不是每台机器都不一样.如何确认别人的LOGINNAME是唯一的?有没有更好的办法 有没有办法根据硬盘序列号来限制? 我觉得通过LOGINNAME来控制不是太好,我有一个LISP程序也是这么做的。结果给人家安装前得去看看他的电脑,太麻烦了。我现在通过使用期限来实现的,并且每次打开或者关闭图形弹出一个令他们讨厌的对话框。:) 用硬盘序列号生成的机器码通过一定的计算来生成验证码可能也不错。 如果是专业开发,是应该设置保护的,但如果只是业余的,有必要设置保护吗?这样给同事用的话,他们会这样想呢?呵呵! mccad发表于2005-4-7 21:42:00static/image/common/back.gif用硬盘序列号生成的机器码通过一定的计算来生成验证码可能也不错。
<BR>请教如何实现呢!
能不能给个示例,我找了很长时间,就是没找到相应的帖子! :(
先谢谢了!
页:
[1]