在项目窗体打开后 含有如下代码:
经查询相关论坛例子及帮助 貌似写入注册表时候升级后可以不用重新注册???求解 下面的代码如何更改 让之实现升级后不用再次注册即可使用
If GetConfigValue("试用起始日",#1/1/2000#) = #1/1/2000# Then
SaveConfigValue("试用起始日",Date.Today)
End If
Dim usetoday As Date = GetConfigValue("试用日期",Date.today)
Dim Regok As Boolean = getconfigvalue("注册状态" & ComputerId,False)
Dim startday As Date = GetConfigValue("试用起始日",#1/1/2000#)
If regok = False Then
If Date.Today < usetoday Then
msgbox("系统时间被非法修改,不能进入系统!")
syscmd.project.Exit()
Return
End If
If Date.Today > startday.AddDays(2) Then
Forms("我要注册").open
Return
End If
End If