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


  共有3812人关注过本帖树形打印复制链接

主题：[求助]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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
syzsyk
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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”。
 回到顶部
帅哥哟，离线，有人找我吗？
syzsyk
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00 		  发帖心情 Post By：2014/6/19 19:29:00 [显示全部帖子]

甜老师，还是不行，报同样的错误。

 回到顶部
帅哥哟，离线，有人找我吗？
syzsyk
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00 		  发帖心情 Post By：2014/6/19 19:39:00 [显示全部帖子]

OK,谢谢甜老师，主要是下面红色代码的问题：
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp", RegCode.Text)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05811 秒, 5 次数据查询