- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 注册窗口错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7294)
-- 发布时间：2010/6/4 20:12:00
-- 注册窗口错误
错误出现的情况：根据机器计算出正确的注册码，然后去掉正确注册码后二三位或四五位字符，复制粘贴到注册窗口的注册码控件中，点击确定按钮，程序应该弹出“注册码不正确”窗口，但是没有弹出，却弹出所图所示的错误。分析后，发现If Code > "" AndAlso DecryptText(Code,"shixia","shixia") = ComputerId Then 代码有问题，
此主题相关图片如下：注册错误.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:注册码计算.table |
请教如何解决？
-- 发布时间：2010/6/4 21:13:00
--
这个问题有些麻烦，得看老六了。
-- 发布时间：2010/6/4 21:21:00
--
或改成这样？
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
-- 发布时间：2010/6/4 21:28:00
--
可能也不行，因为错误在EncryptText(Val,"aaa","aaa") = ComputerId 代码，到命令窗口中执行：Output.Show( EncryptText(Val,"aaa","aaa") ）当然Val是被删除几个字符的正确注册码，就会出现错误提示
-- 发布时间：2010/6/4 21:37:00
--
不会不行的，我是重新对系列号进行加密后再比较。
-- 发布时间：2010/6/4 22:04:00
--
EncryptText(Val,"aaa","aaa") 是对机器码进行加密，它如何可以等于 ComputerId ？实际使用也不行
-- 发布时间：2010/6/4 22:22:00
--
是我写错了，应该和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
-- 发布时间：2010/6/4 22:36:00
--
OK，谢谢