古装美女跳舞惊鸿一面:做成一个时间限制的测试版

来源：百度文库 编辑：偶看新闻 时间：2024/04/20 02:49:52

做成一个时间限制的测试版

发布时间：2008-04-03 10:36:26  来源：编程爱好者网站  作者：编程爱好者网站  点击：222

可用注册表简单地保存已用的天数或次数

’次数限制（如３０次）如下：
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "times", 0)
If RemainDay = 30 Then
MsgBox "试用次数已满，请……"
Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用次数，好好珍惜！"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub

’时间限制的（如３０天）
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "day", 0)
If RemainDay = 30 Then
MsgBox "试用期已过，请……"
Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用天数，好好珍惜！"
if day(now)-remainday>0 then RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub
NOKIA7610的一个时间问题 问一个时间介词的问题 开业期的限期是多久一个时间 怎么用系统还原到以前的一个时间? VB中一个时间控件的函数问题 关于限制区的修改方法（本人以测试） 如何把系统还原到以前用过的一个时间 一个时间问题.. 一个时间问题 问一个时间 为什么有的软件有的测试版会限制使用次数，能解决吗？ 可以查QQ的上线的最后一个时间吗，我是说对方的，而不是自己的 我的电脑用的好好的，突然启动，每次都是一个时间． 烟花是什么做成的？ 球网是什么做成的？ 腊烛是怎样做成的？ 蛋挞是怎样做成的？ 西米是用什么做成的？ 海苔是什么做成的？ 海绵怎么做成的？ 蛋抄饭是怎样做成的 放大镜做成的望远镜 灯泡是增么做成的~ 云是用什么做成的？