[原创]实现注册功能的模版---欢迎测试!!

hhzjxss · 发表于 2007-2-23 15:21

下载了，看看！

abuhuang · 发表于 2007-2-23 17:13

什么都看不到啊

linyangqi · 发表于 2007-2-23 18:36

顶您

非常的作品

可以告诉我具体怎么用吗

opiona · 发表于 2007-3-23 10:15

QUOTE:

以下是引用linyangqi在2007-2-23 18:36:29的发言：

顶您

非常的作品

可以告诉我具体怎么用吗

启动宏，检查分区的id，检查日期，计算有效期，如果通过

就可以看到finish以外的所有表

否则只能看到finish表（finish表是空白的）

禁用宏，则只能看到finish表（finish表是空白的）

一片清凉 · 发表于 2007-3-23 10:58

打开后没什么反应,怎么用?

opiona · 发表于 2007-4-10 08:42

升级代码已经在第一楼

zez · 发表于 2007-4-10 10:25

学习了

opiona · 发表于 2007-4-16 08:37

回复:想念乔丹

下载模版-打开(禁用宏)-将finish表的iv65536,iu65536,iu65535清空

iv65535写入数字(你想要的有效期)--保存到需要的分区的某文件夹

提示:finish表的字体颜色最好设置成无色,别人不会轻易发现.

所有加密都是相对的,没有绝对的秘密.

打开模版--启用宏:你现在可以任意编辑各个表,添加,删除表,编辑各表,插入代码,窗体...

注意:finish表不要放置有用数据(不希望除授权人外看到的数据),因为正常使用时看不到finish表,

原理:

1.启动宏,代码得到分区id对照finish表的iu65536,如果不同,提示:非法(finish以外的表隐藏)

防止非法复制

2.如果今天的日期超过iv65536+有效期,提示:超出有效期

3.今天的日期如果小于iu65535,提示:非法,防止修改系统时间

4.如果全部通过,隐藏finish,显示其他各表,开始正常使用

升级文件:原理是不启动宏,修改finish表的两个个日期,分区id,有效期

            Worksheets("finish").Range("iv65536") = "2007-3-23" '开始日期
                    Worksheets("finish").Range("iu65535") = "2007-3-23" '最后一次修改得日期
                    Worksheets("finish").Range("iu65536") = S   '分区得id
                    Worksheets("finish").Range("iv65535") = 100 '有效期100天
修改你需要的,达到可以继续使用或者另外电脑上使用的目的

如果你还觉得不安全,可以使用超酷VBA工程加锁解锁器[ldhyob简版]

使工程不可查看,别人就不会看到你的代码.

参考:http://club.excelhome.net/viewthread.php?tid=28166&replyID=&skin=0

[此贴子已经被作者于2007-4-16 8:50:23编辑过]

海的本色 · 发表于 2007-4-17 11:42

可不可以做个登陆窗口啊！怎样编辑VBA命令，我想实践登陆的功能，同时具有权限？

opiona · 发表于 2007-4-23 11:30

QUOTE:

以下是引用海的本色在2007-4-17 11:42:43的发言：

可不可以做个登陆窗口啊！怎样编辑VBA命令，我想实践登陆的功能，同时具有权限？

xloZAHA3.rar (9.17 KB, 下载次数: 85)

网上的例子很多

可以使用inpriout（就是输入对话窗）来实现

		自动登录	找回密码
密码			免费注册