主题：软件加密

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