软件注册时，注册码填写的错误位数后弹出如下框，关键时点击关闭报错框不显示注册窗口。希望关闭报错框后弹出注册窗口如何修改代码
此主题相关图片如下：微信截图_20180815084900.png
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"yzz","yzz") = ComputerId Then '如果注册码正确
OK = True
Else
If n > 30 Then
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"yzz","yzz") = ComputerId Then '如果注册码正确
OK = True
End If
End If
If n > 60 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n) '用户注册试用次数限制
加好友 
发短信
Post By：2018/8/15 8:51:00 [显示全部帖子]
