打印本文   关闭窗口

Access技巧限制软件30天试用

作者：佚名  文章来源：不详  点击数  更新时间：2008/11/1 20:43:13  文章录入：杜斌  责任编辑：杜斌

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 & "天试用期！"

打印本文   关闭窗口