主题：[求助]软加密：关于远程升级后总要输注册码

方法一：把注册码存储到注册表那里去，不要用saveConfigValue

http://www.foxtable.com/help/topics/2051.htm

方法二：用一个txt文件夹存放注册码信息，不要用saveConfigValue

保存的是激活码。

没有什么安全不安全的。激活码泄露又没有什么用。

Dim str As String = FileSys.ReadAllText(ProjectPath & "config.txt")

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

Dim Code As String = str

Dim sss As String

Try
   
    sss = DecryptText(Code,"abc","abc")
   
Catch ex As Exception
   
End Try

Dim Ok As Boolean

If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
   
    OK = True
   
Else
   
    If n > 0 Then
       
        Forms("注册").Open() '
        'FileSys.WriteAllText(ProjectPath & "config.txt", "123456789注册码", False)
       
        Code = FileSys.ReadAllText(ProjectPath & "config.txt")
       
        Try
           
            sss = DecryptText(Code,"abc","abc")
           
        Catch ex As Exception
           
        End Try
       
       
       
        If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
           
            OK = True
           
        End If
       
    End If
   
    If n > 0 AndAlso Ok = False Then
       
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
       
        Syscmd.Project.Exit()
       
    End If
   
End If

n = n + 1

1、你的项目要有config.txt文件；

2、你要在注册窗口的确定按钮，就往txt文件写入内容，才能继续下面的代码。

Dim zcm As String = Forms("注册").Controls("TextBox2").Value
FileSys.WriteAllText(ProjectPath & "config.txt", zcm, False)

全部要改，改成如

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

Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp", "Register" & ComputerId, Code)