注册码保存在什么地方更安全。下面的代码，注册码是保存在注册表里。简单的修改一下注册表，即可继续使用软件。有没有其它办法双重保护，让其修改注册表也没用呢

\'软件注册代码开始
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" & HardDiskID,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"acb","abc") = HardDiskID Then \'如果注册码正确
    OK = True
Else
        If n < 50 Or n=50 Then
           Forms("注册").Open()
           Code = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyAPP","Register" & HardDiskID,"")
              If Code > "" AndAlso DecryptText(Code,"abc","abc") = HardDiskID Then \'如果注册码正确
              OK = True
              End If
        ElseIf n > 100 AndAlso Ok = False Then
           Dim Result As DialogResult
           Result = MessageBox.Show("您使用的软件已经超过使用次数,需要注册才能使用,是否注册?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
             If Result = DialogResult.Yes Then
             Forms("注册").Open()
             Code = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyAPP","Register" & HardDiskID,"")
                If Code > "" AndAlso DecryptText(Code,"abc","abc") = HardDiskID Then \'如果注册码正确
                OK = True
                End If
             Else
            Syscmd.Project.Exit()
            End If 
       End If 
End If
Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyAPP","Count",n + 1)
\'软件注册代码结束

 只有试用次数这个漏洞吧？注册码是加密存放的，没问题。

 如果是修改次数的问题，可以这样避免：你可以把使用的次数存放在项目里面，如果项目里面的次数也达到，就限制。你也可以把初始时间存放在项目里面，如果时间超过半年，就不能再使用。

使用次数 怎么存放在项目，是这样吗？

Dim n As Integer = GetConfigValue("Count",1)

其它代码

n = n + 1
SaveConfigValue("Count",n)