试试Dim s As String = GetConfigValue("Count","")
Dim d As Date = Date.Today
If s > "" Then
If Date.TryParse(s,d) = False Then
Messagebox.Show("试用日期设置无效!")
Syscmd.Project.Exit()
End If
Else
SaveConfigValue("Count",Format(d,"yyyy-MM-dd"))
End If
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
Else
Dim tp As TimeSpan = Date.Today - d
If tp.TotalDays > 50 Then
Messagebox.Show("您已经试用" & n & "次!总试用次数为88次!为了不影响您正常使用,请尽完成注册!")
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
End If
End If
If tp.TotalDays > 88 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
加好友 
发短信
Post By：2020/4/1 17:33:00 [显示全部帖子]
