[求助]Base-64 字符串中的无效字符？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Base-64 字符串中的无效字符？

共有3767人关注过本帖树形打印复制链接主题：[求助]Base-64 字符串中的无效字符？

syzsyk

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00

[求助]Base-64 字符串中的无效字符？ 发帖心情

Post By：2014/6/19 18:12:00 [只看该作者]

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编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/19 18:31:00 [只看该作者]

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

DecryptText(RegCode,"vvv","vvv")

syzsyk

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00

Post By：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”。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/19 19:06:00 [只看该作者]

代码试试这样写

[此贴子已经被作者于2014-6-19 19:07:06编辑过]

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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