试用期限制程序(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:="t