主题：[求助]请问怎样设置超过试用次数以后再也无法打开产品

假定提供给客户的是一个试用版本,希望最多使用30次,可以在项目事件AfterOpenProject中加入如下代码:

Dim n As Integer
n = GetConfigValue("Count",1) '假定保存试用次数的设置名称为Count
If n > 30 Then
   Messagebox.Show("您正在使用的产品已经超出试用次数!")
   Syscmd.Project.Exit()
Else
   n = n + 1
    SaveConfigValue("Count",n)
End If

请问怎样设置以后再也无法打开产品