软件简单的使用有效期该如何写？

Question

我是这么在网上找到一段代码写的，可秒不管用呀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

Answer 1

定义两个变量，安装时间、过期时间 
取一个唯一性的值（例如CPU ID或者其他），用这个值加密时间变量（注意加密算法），写到一个二进制的文件里
只允许 安装时间至过期时间之间的时间运行。 
每次启动软件判断文件必须存在，如果当前时间小于安装时间或者当前时间大于过期时间，退出，否则更新安装时间为当前时间。还有一个判断防止用户更改系统时间，若当前时间比安装时间更小，则用户更改了机器时间，则提示用户不能使用或弹出你的消息框。其实这些东西都是防君子不防小人的!呵呵