可以试用50次注册窗的列子

hk

该列子是用用宏做的注册窗列子，注册码是123123，请不要急于注册，先看宏的设置，都有详细说明，希望认识不用VB也能够用好ACCESS的朋友。Qq:121737458

游客，如果您要查看本帖隐藏内容请回复

zhoulin0718

下来看看，也长长见识。谢谢。

dxlz

好东西呀。谢谢共享.

sweetduck

程序设计上没什么可说的
只是实际应用中这样完全不能达到限制的目的
只要将你的表数据改了就可以无限使用

[此贴子已经被作者于2004-4-29 13:31:48编辑过]

hamletl

注册50次是什么意思？
如果不在INTERNET上注册到软件注册服务器。
一台电脑有必要注册50次吗？
不同的电脑注册50000000也行呀！

hi-wzj

复杂一点的
限制数据库的试用天数 :http://www.accessoft.com/Article_Show.asp?ArticleID=43
数据库安全例子 :http://www.accessoft.com/Article_Show.asp?ArticleID=37
给自己留后门的方法：http://www.accessoft.com/Article_Show.asp?ArticleID=26

secowu

限制数据库的试用天数





［ 作者：王志坚    转贴自：本站原创    点击数：1501    更新时间：2003-12-24    文章录入：hi-wzj ］






































作    者:王志坚


发布日期:2003-12-24


摘    要:通过读取文件的各日期，防止修改系统时间来避开试用期的程序。同时也能一定限度的防止通过备份文件的方式来避开试用期。
未做严格测试.


正    文:












Private Sub FORM_Load()
Dim dd As String
dd = CurrentProject.Path
If Right(dd, 1) <> "\" Then dd = dd & "\"
ShowFileAccessInfo dd & CurrentProject.Name
End Sub
Sub ShowFileAccessInfo(filespec)
　　Dim fs, f, s, aa, bb, cc
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set f = fs.GetFile(filespec)
　　aa = f.DateCreated　　 '建立日期
　　bb = f.DateLastAccessed　　'最后访问日期
　　cc = f.DateLastModified　　'最后更新日期
　　If aa > bb Then GoTo ww:
　　If aa > cc Then GoTo ww:
　　If bb > cc Then GoTo ww:
　　If cc > Date Then GoTo ww:
　　Exit Sub
ww:
MsgBox "请不要修改系统日期！": Quit
End Sub

secowu

摘    要:将密码或注册码或使用次数限制等等关键数字保存于表中或注册表中或外部文件中都容易被监测出来。本例通过自定义属性的方式，将注册状态及试用次数保存在自定义属性中。以加大破解难度。

secowu

给自己留后门的方法，很简单的





［ 作者：hi-wzj    转贴自：本站原创    点击数：2108    更新时间：2003-12-16    文章录入：hi-wzj ］



































发布日期：2003-12-26


作    者:王志坚


正    文：


经常遇见大家再问设置了屏蔽shift键的程序如何恢复。或某些我有权限别人没有的权限如何控制，介绍一个给自己留后门的方式。很简单的.........带上启动参数！
如：快捷方式启动：
D:\PROGRA~1\MICROS~2\OFFICE\MSACCESS.EXE E:\wzj\acc\test.mdb/cmd "wzj"

窗体启动中
Private Sub FORM_Load()
mshift (False) '屏蔽shift键的函数
If Command = "wzj" Then mshift (True)　'取消屏蔽shift键的函数
End Sub

王维a780

注册文件有问题：不注册的话，可以继续使用，使用次数可以变为负数（-1～-？），如果注册后怎么自动打开所制定的窗体，

[此贴子已经被作者于2006-4-30 14:27:28编辑过]