试用期限制程序(VB6.0源代码编写)试用期限制程序，运行程序后，试用30天后，程序就不能启动

试用期限制程序(VB6.0源代码编写)试用期限制程序，运行程序后，试用30天后，程序就不能启动 。Dim ss As Date Dim dd As Integer If GetSetting(appname:="this", section:="user", Key:="time") = "" Then MsgBox "尊敬的用户：你好！你还没有注册软件，从现在开始，你的试用为30天！" SaveSetting appname:="this", section:="user", Key:="time", setting:=Date Else ss = GetSetting(appname:="this", section:="user", Key:="time") dd = Date - ss If dd > 30 Then MsgBox "对不起，你的试用期已到！ " Unload Me Else MsgBox "您现在还没有注册本软件，试用期还有" & 30 - dd & "天！" End If End If