以文本方式查看主题

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

--  作者:shixia
--  发布时间:2010/6/4 20:12:00
--  注册窗口错误
错误出现的情况:根据机器计算出正确的注册码,然后去掉正确注册码后二三位或四五位字符,复制粘贴到注册窗口的注册码控件中,点击确定按钮,程序应该弹出“注册码不正确”窗口,但是没有弹出,却弹出所图所示的错误。分析后,发现If Code > "" AndAlso DecryptText(Code,"shixia","shixia") = ComputerId Then 代码有问题, 
图片点击可在新窗口打开查看此主题相关图片如下:注册错误.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:注册码计算.table

请教如何解决?
[此贴子已经被作者于2010-6-4 20:13:26编辑过]

--  作者:czy
--  发布时间:2010/6/4 21:13:00
--  
这个问题有些麻烦,得看老六了。
--  作者:czy
--  发布时间: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


--  作者:shixia
--  发布时间:2010/6/4 21:28:00
--  
可能也不行,因为错误在EncryptText(Val,"aaa","aaa") = ComputerId 代码,到命令窗口中执行:Output.Show( EncryptText(Val,"aaa","aaa") )当然Val是被删除几个字符的正确注册码,就会出现错误提示
--  作者:czy
--  发布时间:2010/6/4 21:37:00
--  
不会不行的,我是重新对系列号进行加密后再比较。
--  作者:shixia
--  发布时间:2010/6/4 22:04:00
--  
EncryptText(Val,"aaa","aaa") 是对机器码进行加密,它如何可以等于 ComputerId ?实际使用也不行
[此贴子已经被作者于2010-6-4 22:22:27编辑过]

--  作者:czy
--  发布时间: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


--  作者:shixia
--  发布时间:2010/6/4 22:36:00
--  

OK,谢谢

[此贴子已经被作者于2010-6-4 22:43:28编辑过]