如何处理用户修改日期的问题?

Question

以天数为限
编写一个30天的试用版,如果用户修改日期怎么处理呀?
如首先运行日期为1月1日,到了1月2日的时候他们把1月2日改成1月1日怎么办呀?

Answer 1

'用次数限制
'次数限制（如３０次）如下：
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

Answer 2

只要你写在一个隐蔽的地方，比如把放在一个文件中，把文件名改成DLL反缀，并放在SYSTEM目录中，还有几个人会去删除？