1、注册窗口确定按钮有把注册码写入设置的用法，那么同样的方法把日期写入设置SaveConfigValue("Register日期", e.Form.Controls("TextBox3").Value)
2、在afteropenproject事件同样的方法获取日期进行判断
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim d1 As String = GetConfigValue("Register日期","")
If d1 > "" Then
Dim d As Date
If Date.TryParse(d1 ,d) Then
If d < Date.Today Then
msgbox("已过期")
Syscmd.Project.Exit()
End If
Else
msgbox("日期值无效,所以判定已过期")
Syscmd.Project.Exit()
End If
Else
msgbox("没有保存日期,所以判定已过期")
Syscmd.Project.Exit()
Return
End If
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
Else
……
[此贴子已经被作者于2019/10/13 20:58:23编辑过]
加好友 
发短信
Post By：2019/10/11 21:46:00 [显示全部帖子]
