以下内容为程序代码:

1 Dim n As Integer = GetConfigValue("Count",1)
2 Dim Code As String = GetConfigValue("Register" & ComputerId,"")
3 Dim Ok As Boolean
4 If Code ＞ "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
5 OK = True
6 Else
7 If n ＞ 3 Then
8 Forms("激活").Open()
9 Code = GetConfigValue("Register" & ComputerId,"")
10 If Code ＞ "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
11 OK = True
12 End If
13 End If
14 Forms("激活").Close
15 Forms("用户登录").Open()
16 If _UserAccount = "" Then
17 Syscmd.Project.Exit()
18 Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
19 End If
20 \'后续初始化代码
21
22 \'对于不返回任何键列信息的 SelectCommand,不支持 UpdateCommand 的动态 SQL 生成.
23
24 If n ＞ 5 AndAlso Ok = False Then
25 Messagebox.Show("您正在使用的产品已经超出试用次数!")
26 Syscmd.Project.Exit()
27 End If
28 End If
29 n = n + 1
30 SaveConfigValue("Count",n)