Office中国论坛/Access中国论坛

标题: 分享抄来的"试用版限制时间与日期的方法" [打印本页]

作者: haemon 时间: 2008-1-29 22:35
标题: 分享抄来的"试用版限制时间与日期的方法"
抄来的试用版限制时间与日期的方法, 看看对朋友们有没有帮助的.

可用注册表简单地保存已用的天数或次数 '
次数限制（如30次）：
Private Sub Form_Load()
Dim a As Long
Dim b As Long
b = GetSetting("MyApp", "set", "times", 51345)
a = b Xor 51345
If a < 30 Then
MsgBox "现在剩下：" & 30 - a & "试用次数，好好珍惜！"
a = a + 1
b = b Xor 51345
SaveSetting "MyApp", "set", "times", b

Else
MsgBox "试用次数已满，请联系gfuuyygy!"
End If
End Sub

'时间限制的（如10天）
Private Sub Form_Load()
Dim a As Long
a = GetSetting("MyApp", "set", "day", 0)
If a = 10 Then
MsgBox "试用期已过，请联系gfuuyygy!"
Else
MsgBox "现在剩下：" & 10 - a & "试用天数，好好珍惜！"

if day(now)-a>0 then
a = RemainDay + 1
SaveSetting "MyApp", "set", "times", a
End if
End if
End Sub

作者: fswxs 时间: 2008-1-29 22:49
没抄全吧

就这些？

作者: goto2008 时间: 2008-1-30 08:16
来个全库吧。

作者: BJZTWYQ 时间: 2008-1-30 08:46
上个例子吧...........

作者: haemon 时间: 2008-1-30 08:48
很抱歉,抄来的时候就没有全库.
不过我觉得可以在起动窗体的LOAD事件中加入这些代码就可以了.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)