|
3#
楼主 |
发表于 2007-11-13 21:32:42
|
只看该作者
是这样的,我在自制的小软中的切面板窗体的OPE中,加入了以下"限制软件30天试用"的程序时,写入了"注册表"的注册时间,我现在想删除或更改注册时间,请问可以吗?如果可行的,如何删除或更改?谢谢!
限制软件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
|
|