主题：注册窗口错误

错误出现的情况：根据机器计算出正确的注册码，然后去掉正确注册码后二三位或四五位字符，复制粘贴到注册窗口的注册码控件中，点击确定按钮，程序应该弹出“注册码不正确”窗口，但是没有弹出，却弹出所图所示的错误。分析后，发现If Code > "" AndAlso DecryptText(Code,"shixia","shixia") = ComputerId Then 代码有问题， 
此主题相关图片如下：注册错误.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:注册码计算.table

请教如何解决？

这个问题有些麻烦，得看老六了。

或改成这样？

 

SaveConfigValue("Register" & ComputerId, Forms("注册").Controls("TextBox2").Value)
Dim Val As String = Forms("注册").Controls("TextBox1").Value
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso EncryptText(Val,"aaa","aaa") = ComputerId Then '如果注册码正确
    MessageBox.Show("注册成功!", "提示")
    e.Form.Close()
Else
    MessageBox.Show("注册不正确!", "提示")
End If

可能也不行，因为错误在EncryptText(Val,"aaa","aaa") = ComputerId 代码，到命令窗口中执行：Output.Show( EncryptText(Val,"aaa","aaa") ）当然Val是被删除几个字符的正确注册码，就会出现错误提示

不会不行的，我是重新对系列号进行加密后再比较。

EncryptText(Val,"aaa","aaa") 是对机器码进行加密，它如何可以等于 ComputerId ？实际使用也不行

是我写错了，应该和TextBox2比较，如

 

SaveConfigValue("Register" & ComputerId, Forms("注册").Controls("TextBox2").Value)
Dim Val As String = Forms("注册").Controls("TextBox1").Value
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso EncryptText(Val,"aaa","aaa") = Forms("注册").Controls("TextBox2").Value Then '如果注册码正确
    MessageBox.Show("注册成功!", "提示")
    e.Form.Close()
Else
    MessageBox.Show("注册不正确!", "提示")
End If

OK，谢谢