谢谢老师。
下面的代码是试用次数完后注册用的。有以下几个问题：
1、弹出的注册框没有自动提取机器码，电脑是笔记本无线上网，有没有影响；
2、发布前要清除已使用次数，请问代码怎么写。
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
Else
If n > 124 Then
Forms("注册窗口").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
End If
End If
If n > 124 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!请联系开发者注册:电话:18984029149,QQ:827679915,微信:ranjc001")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)
加好友 
发短信
Post By：2019/1/16 12:01:00 [显示全部帖子]
