Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]注册表中注册码如何读写？


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

主题：[求助]注册表中注册码如何读写？
帅哥哟，离线，有人找我吗？
syzsyk
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00 		[求助]注册表中注册码如何读写？  发帖心情 Post By：2014/6/19 11:01:00 [只看该作者]

由机器码生成注册码，这个帮助中已经有了，注册码如何写入注册表中？
Dim RegCode As WinForm.TextBox = e.Form.Controls("注册码")
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp",？)
在另一个地方读出时：
Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp",？)
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/6/19 11:03:00 [只看该作者]

Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp",RegCode)


Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","")
 回到顶部
帅哥哟，离线，有人找我吗？
syzsyk
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00 		  发帖心情 Post By：2014/6/19 13:20:00 [只看该作者]

Dim RegCode As String = Registry.GetValue("HKEY_CURRENT_USER\Software\aaa\bbb","ccc","")
Dim TyCount As Integer
TyCount = Registry.GetValue("HKEY_CURRENT_USER\Software\ddd","TyCount",0)
Registry.SetValue("HKEY_CURRENT_USER\Software\Tyaqi","TyCount",TyCount + 1)
Dim Reg As WinForm.Label = e.Form.Controls("Label1")
If RegCode = "" Or ComputerId <> DecryptText(RegCode,"eee","eee")   Then  '若未注册
    Reg.text = "您试用的是试用版,目前已使用"  & TyCount & "次,还能试用" & 10 - TyCount & "次"
    If TyCount > 10 Then
        Forms("欢迎窗口").Close
    End If
Else
    Forms("欢迎窗口").Visible = False
End If
以上代码测试时怎么是以双数2递减而不是以1递减？难道红色部分有问题？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/6/19 14:10:00 [只看该作者]

可能是执行了两次Registry.SetValue("HKEY_CURRENT_USER\Software\Tyaqi","TyCount",TyCount + 1)

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询