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


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

主题:[求助]Base-64 字符串中的无效字符?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/19 18:31:00 [显示全部帖子]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/19 19:31:00 [显示全部帖子]

 这段也要改一下

 

Dim RegCode As WinForm.TextBox = e.Form.Controls("注册码")
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp", RegCode.Text)

 回到顶部