您好,之前这个软件设置了次数试用限制,这个要怎么解除呢?代码如下:
Dim n As Integer
n =
GetConfigValue("Count",1) '假定保存试用次数的设置名称为Count
If n > 5000
Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
Else
n = n + 1
SaveConfigValue("Count",n)
End If
Dim d1 As Date =
#12/10/2016 12:30#
Dim d2 As Date =
Date.Now
Dim t As TimeSpan
= d1 - d2
'messagebox.Show(t.TotalDays
& "天")
If t.TotalDays
< 2 Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
Else
End If
此主题相关图片如下:微信图片_20181211150630.png