以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]注册表中注册码如何读写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52618)
--  作者：syzsyk
--  发布时间：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
--  发布时间：2014/6/19 11:03:00
--  
Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp",RegCode)


Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyApp","")
--  作者：syzsyk
--  发布时间：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
--  发布时间：2014/6/19 14:10:00
--  
可能是执行了两次Registry.SetValue("HKEY_CURRENT_USER\\Software\\Tyaqi","TyCount",TyCount + 1)