Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 安全加解密 › 查看内容

限制软件30天试用

1970-1-1 08:00| 发布者: 共享| 查看: 3042| 评论: 0

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

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

限制软件30天试用

最新评论

相关分类