以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Base-64 字符串中的无效字符？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52648)
--  作者：syzsyk
--  发布时间：2014/6/19 18:12:00
--  [求助]Base-64 字符串中的无效字符？
AfterOpenProject中：

Dim TyCount As Integer = Registry.GetValue("HKEY_CURRENT_USER\\Software\\aaa","TyCount",0)
Dim RegCode As String = Registry.GetValue("HKEY_CURRENT_USER\\Software\\bbb\\ccc","ddd","")
If RegCode ="" Or ComputerId <> DecryptText(RegCode,"vvv","vvv")  Then   \'若是未注册状态
    Forms("欢迎窗口").open
Registry.SetValue("HKEY_CURRENT_USER\\Software\\aaa","TyCount",TyCount+1)
    If TyCount > 10 Then   \'若试用次数超过10次
        Forms("欢迎窗口").Close    \'打开注册窗体
        Forms("注册窗口1").Open
        Return
    End If
Else
RibbonTabs("系统信息管理").Groups("软件注册").Visible = False
End If
打开项目后显示：Base-64 字符串中的无效字符。哪有问题？
[此贴子已经被作者于2014-6-19 18:17:35编辑过]
--  作者：有点甜
--  发布时间：2014/6/19 18:31:00
--  

你去掉这句代码看看还有没有错

 

DecryptText(RegCode,"vvv","vvv")  
--  作者：syzsyk
--  发布时间：2014/6/19 18:43:00
--  
甜老师：
DecryptText(RegCode,"vvv","vvv") 去掉后不报错了。
是不是下面代码有问题：
Dim RegCode As WinForm.TextBox = e.Form.Controls("注册码")
Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp",RegCode)
注册表显示的值是“Foxtable.WinForm.TextBox”。
--  作者：有点甜
--  发布时间：2014/6/19 19:06:00
--  

代码试试这样写

 

 

[此贴子已经被作者于2014-6-19 19:07:06编辑过]
--  作者：有点甜
--  发布时间：2014/6/19 19:08:00
--  
Dim TyCount As Integer = Registry.GetValue("HKEY_CURRENT_USER\\Software\\aaa","TyCount",0)
Dim RegCode As String = Registry.GetValue("HKEY_CURRENT_USER\\Software\\bbb\\ccc","ddd","")
If regCode Is Nothing OrElse ComputerId <> DecryptText(RegCode,"vvv","vvv")  Then   \'若是未注册状态
    Forms("欢迎窗口").open
    Registry.SetValue("HKEY_CURRENT_USER\\Software\\aaa","TyCount",TyCount+1)
    If TyCount > 10 Then   \'若试用次数超过10次
        Forms("欢迎窗口").Close    \'打开注册窗体
        Forms("注册窗口1").Open
        Return
    End If
Else
    RibbonTabs("系统信息管理").Groups("软件注册").Visible = False
End If
--  作者：syzsyk
--  发布时间：2014/6/19 19:29:00
--  
甜老师，还是不行，报同样的错误。
--  作者：有点甜
--  发布时间：2014/6/19 19:31:00
--  

 这段也要改一下

 

Dim RegCode As WinForm.TextBox = e.Form.Controls("注册码")
Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp", RegCode.Text)
--  作者：syzsyk
--  发布时间：2014/6/19 19:39:00
--  
OK,谢谢甜老师，主要是下面红色代码的问题：
Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp", RegCode.Text)