用ACCESS怎么做软件运行次数限制

zhangcj230830

用ACCESS怎么做软件运行次数限制呀,请各位大虾们不吝赐教

ACMAIN_CHM

限制30天试用，比较好搞点，对于一个生成MDE的文件来讲，代码用户是无法更改了，但是如果通过
电脑时间后却同样可以使用，设一个表生成次数，用户也可以更改表的次数来应对，比较好点就是在注册
表里动心思，毕竟注 ...
sbadwaps 发表于 2009-3-10 19:23

常见的破解方法，是用微软官网上的sysinternal工具组(免费的)中的 filemon.exe, regmon.exe来监视文件的操作，注册表的操作记录。
如果不行就再临近磁盘的扇区读写记录（有些软件会在磁盘的最后找个空扇区写上记录，然后标为坏块）



******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

sbadwaps

限制30天试用，比较好搞点，对于一个生成MDE的文件来讲，代码用户是无法更改了，但是如果通过
电脑时间后却同样可以使用，设一个表生成次数，用户也可以更改表的次数来应对，比较好点就是在注册
表里动心思，毕竟注册表不是一般人能随意弄的

wjsfeng

强！！学习了

Henry D. Sy

建一个表来保存次数，access主窗体打开时对表进行更新（每次增加1），并进行判断，如果次数>=规定次数，则做相应的处理。

82077802

限制软件30天试用
Dim ReValue As Date '声明时间变量 Dim name As String '声明字符串变量，软件名称 Dim dd As Variant '声明数值变量，dd为日期差 name = "gggg" '给变量赋值软件名为gggg ReValue = GetSetting(name, "MainKey", "DateValue", Date) '读取注册表软件名gggg的键值，如果没有则为当前日期 Me.Text1 = ReValue dd = DateDiff("d", ReValue, Date) '计算日期差 Me.Text2 = dd If dd = 0 Then '如果是第一天运行 SaveSetting name, "MainKey", "dateValue", Date '写注册表 End If If dd > 30 Then MsgBox "软件已过期" Else MsgBox "软件可以试用" 'DoCmd Quit MsgBox "还剩下" & 30 - dd & "天试用期！" End If