如何处理用户修改日期的问题?
以天数为限
编写一个30天的试用版,如果用户修改日期怎么处理呀?
如首先运行日期为1月1日,到了1月2日的时候他们把1月2日改成1月1日怎么办呀?
问题点数：20、回复次数：6Top
1 楼lxcc（）回复于 2004-12-01 18:10:49 得分 8
'用次数限制
'次数限制（如３０次）如下：
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
Top
2 楼acev（睡眠不足(域名 .com ￥55，.cn ￥30 QQ:230567)）回复于 2004-12-01 18:11:24 得分 1
你在本版块搜索一下，有挺多贴子讨论这类问题的。Top
3 楼happy_sea（开心海(数据读取中，请稍候......)）回复于 2004-12-01 18:22:27 得分 1
用天数来进行限制确实不是一个好办法，还是用运行次数比较好。Top
4 楼SKY1006（飞星灯）回复于 2004-12-01 18:28:29 得分 0
次数我会呀,不知道怎么加密?Top
5 楼aohan（aohan）回复于 2004-12-01 18:38:55 得分 5
只要你写在一个隐蔽的地方，比如把放在一个文件中，把文件名改成DLL反缀，并放在SYSTEM目录中，还有几个人会去删除？Top
6 楼fishzone（阿愚@脸上有疤）回复于 2004-12-01 19:40:16 得分 5
把它加密后放在注册表或者特殊文件中，就像楼上几位兄弟说的。
记下第一次运行的时间。用来计算天数。
然后在每次退出的时候记录下当前的时间，标示为“上一次运行”。
软件开始时如果发现当前时间比“上一次运行”时间还早。就表示用户修改了系统时间。则拒绝服务。Top
