使用软加密 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

色板，我这注册代码对吗，感觉有问题：

项目打开后的代码

'软件注册代码开始

Dim n As Integer = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Count",0)

Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & ComputerId,"")

Dim Ok As Boolean

If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确

OK = True

Else

If n > 10 Then

Forms("软件注册窗口").Open()

Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & ComputerId,"")

If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确

OK = True

End If

If n > 20 AndAlso Ok = False Then

Messagebox.Show("您正在使用的产品已经超出试用次数!")

Syscmd.Project.Exit()

End If

Registry.SetValue("HKEY_CURRENT_USER\Software\MyAPP","Count",n + 1)

'软件注册代码结束

注册窗口“确定”代码

Registry.SetValue("HKEY_CURRENT_USER\Software\MyAPP","Register" & ComputerId, e.Form.Controls("TextBox2").Value & "")

e.Form.Close()

具体什么问题？

如果注册正确则打开软件，如果错误则打开注册窗口，输入注册码，如果输入错误超过3次则直接关闭软件，上述代码该怎么修改？

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170124171230.png

删除了注册表中的注册码信息，但是软件还是不用注册，直接可以打开。

明白了，应该代码没有问题，需要修改一下：n > 10 把这个数字调整小一点，比如n＞1，即第二次打开就提示注册。

以下是引用kaituozhe在2017/1/24 17:12:00的发言：
如果注册正确则打开软件，如果错误则打开注册窗口，输入注册码，如果输入错误超过3次则直接关闭软件，上述代码该怎么修改？

Static idx as Integer = 0

try
    If DecryptText(e.Form.Controls("TextBox2").Value,"abc","abc") = ComputerId Then
        SaveConfigValue("Register" & ComputerId, e.Form.Controls("TextBox2").Value)
        e.Form.Close()
    Else
        If idx >= 3 ThenSyscmd.Project.Exit()
    End If
catch ex As exception
    if idx >= 3 Then Syscmd.Project.Exit()
End try

idx += 1

回复44楼

1、允许的次数是10次；

2、只要注册成功过一次，就能正常打开项目了。你要把注册码弄错，才能出现注册窗口。

主题：使用软加密