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

项目的AfterOpenProject事件加入软加密注册的代码，如帮助里的代码一样，正确没问题，可是现在提的问题主要是，每次远程更新升级时，再打开项目就存在，有些客户端打开项目时要再次输入注册码才能进去，有些客户端则不用输注册就可以进去了，是什么原因。有什么方法解决。想解决，项目只要注册一次就可以了，不管重卸还是升级更新，不需要每次在远程更新升级后，再打开客户端还在输入注册码才能进去。

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

 

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

 

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

 

ReadAllText	读取文本文件的内容
WriteAllText	向文本文件中写入内容

但安全性是不是不如saveConfigValue了

 

保存的是激活码。

 

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

我按你的那种方式改了好几天，但改不对，大红袍能帮我一下吗，应该怎么样才能更改第二种方法那里，以下是我的没改的原码

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

Dim Code As String = GetConfigValue("Register" & ComputerId,"")

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()

        Code = GetConfigValue("Register" & ComputerId,"")

        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

SaveConfigValue("Count",n)

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

SaveConfigValue("Count",n)

 

  If n > 0 Then
        
        Forms("注册").Open() '     

 

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

 

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

 

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

我觉得真的还不如用回写入注册表的方法，可是写在注册表的代码，为什么有些电脑再更新后不用再输入注册码，有时还是需要输入，以下是我的代码