怎么编写VBA，以达到小软件使用时间的限制？

llzj　发表于：2009-06-28 19:24:06 　

附件是一个财务管理系统，我参照了网上的VBA，写了一段时间限制的代码，但过了限用时间，软件仍能打开，并且限用时间没有改变。其中的限用时间VBA代码如下：

Private Sub Form_Load()
Dim a As Long
a = GetSetting("MyApp", "set", "day", 0)
If a = 10 Then
MsgBox "试用期已过，请联系555!"
DoCmd.Quit
Else
MsgBox "现在剩下：" & 10 - a & "试用天数，好好珍惜！"
If Day(Now) - a > 0 Then
a = RemainDay + 1
SaveSetting "MyApp", "set", "times", a
End If
End If
End Sub

以上不知道什么原因，请高手帮忙改改，感谢了！

点击下载此附件

找不到解答？

请查看 10 个与本帖内容相关的技术文章或帖子列表，确认对您的问题的解答是否会是列表中的其中一个解答。

Top

82077802 发表于：2009-06-28 20:33:51

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

Top

llzj 发表于：2009-06-28 20:53:17

请你帮我改一下附件吧，上面这段代码还是不行呀。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

怎么编写VBA，以达到小软件使用时间的限制？

找不到解答？