主题：请教有关注册系统？

在项目

AfterOpenProject

代码如下：

Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
If Code > ""  AndAlso DecryptText(Code,"1111","2222") = ComputerId Then '如果注册码正确
       n = n + 1
       SaveConfigValue("Count",n)
       Vars("出车时间") = ""
       Vars("版本号") = "V10.12.06.01"
       Forms("登陆").Open()
Else
    If n > 50 And n <= 90 Then
        Forms("注册窗口").Open()
    Else If n > 90 Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Vars("IP") = ""
        Syscmd.Project.Exit(False)
    End If
End If

 

注册窗口:

AfterLoad代码如下：

e.Form.Controls("TextBox1").Value = ComputerId
e.Form.Controls("TextBox2").Value = GetConfigValue("Register" & ComputerId, "")

 

确认按钮代码如下：

Dim Code As String = e.Form.Controls("TextBox2").Value
Dim n As Integer
If Code > "" AndAlso DecryptText(Code,"1111","2222") = ComputerId Then '如果注册码正确
       n = n + 1
       SaveConfigValue("Count",n)
       SaveConfigValue("Register" & ComputerId, e.Form.Controls("TextBox2").Value)
       Vars("出车时间") = ""
       Vars("版本号") = "V10.12.06.01"
       e.Form.Close()
       Forms("登陆").Open()
Else
     messagebox.show("输入注册码不正确,请重新输入或与软件开发人员联系!")
     Return
End If

 

怎么老是注册成功后，每次登陆项目都会出现注册窗口，需要重新注册才能登陆。

请高手指点，是哪里出了问题？多谢各位啦！！

不有做例子吧，否则要花费一段时间。就上面的代码，全部贴出来了，不知是否代码问题？

发现是这样的情况：

在窗口执行SaveConfigValue("Register" & ComputerId, e.Form.Controls("TextBox2").Value)

在未退出项目前GetConfigValue("Register" & ComputerId, "") 得出结果是正确的，

如果退出项目后GetConfigValue("Register" & ComputerId, "") 得到结果是空值。

请老大看看是乍回事呀。

啊，不会吧。SaveConfigValue不是保存相关注册信息于项目中吗，退出项目再登陆就没有用的话，这样注册系统有何作用呀？那我就不知如何注册才有效，

这个注册系统是帮助提供的呀。

退出了项目，再登陆项目，项目应不会改变吧，除非重新发布才为空吧。

之前好像有效，最近几次好像新版才会出现这样的问题。

发现在开发版上有效，发布的项目无效。

你用的是测试版测试的吧。开发版测试是没有问题，应当测试版也是一样的吧。但我用的是开发版发布的项目测试是无效的。

老大，是开发版发布的项目无效呀。可能是我没有标注清楚吧。不好意思。谢谢断续帮忙，先谢了！！

注册表方式不清楚，不知与现在这种注册方式那个更安全。请高手指点！