主题：使用软加密

还是不行

 1、把值保存为空白。

 

SaveConfigValue("Register" & ComputerId, "")

 

 2、修改确定窗口的代码

If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
    OK = True
Else
    If n > 2 Then
        Forms("注册").Open()
        Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp", "Register" & ComputerId, "")
        'Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
            OK = True
        Else
            Syscmd.Project.Exit()
        End If
    End If
    If n > 5 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit()
    End If
End If
'n = n + 1
'n = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Count",0)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Count",n + 1)

打开项目，打开命令窗口，执行

 

SaveConfigValue("Register" & ComputerId, "")

这是我的代码，怎么能够实现如果注册码不正确则直接关闭软件，而不是显示“数字不正确”

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

我的意思33楼的代码怎么修改呀，如果注册码错误，在提示错误后直接退出系统，而不是做如下提示.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：项目,AfterOpenProject
详细错误信息：
不正确的数据。

看34楼啊。

33楼的代码中，怎么能够实现，如果注册码错误，则直接关闭软件，而不是提示“不正确数据”

try
    If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
        OK = True
    Else
        If n > 2 Then
            Forms("注册").Open()
            Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp", "Register" & ComputerId, "")
            'Code = GetConfigValue("Register" & ComputerId,"")
            If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
                OK = True
            Else
                Syscmd.Project.Exit()
            End If
        End If
        If n > 5 AndAlso Ok = False Then
            Messagebox.Show("您正在使用的产品已经超出试用次数!")
            Syscmd.Project.Exit()
        End If
    End If
    'n = n + 1
    'n = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Count",0)
    Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Count",n + 1)
catch ex as exception
    Syscmd.Project.Exit()
end try