利用VB.NET访问注册表
成都创新互联公司服务项目包括三台网站建设、三台网站制作、三台网页制作以及三台网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，三台网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到三台省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
译者注：访问注册表的例子比较多，然而通过VB.NET访问注册表的例子并不多，本文翻译了一篇MSDN上的利用VB.NET存取注册表的例子，挺详细也挺全面的。
(
)
Cat
Francis
Visual
Studio
Team
Microsoft
Corporation
April
2002
摘要：这篇文章描述了利用VB.NET内置函数DeleteSetting,
GetAllSettings,
GetSetting
和
SaveSetting，以及通用语言运行时的两个类Registry
和
RegistryKey来存取注册表的实例，详述了所需的权限，解释了何时利用注册表编辑器，并向你展示了如何利用程序从注册表中动态的读取数据及如何写入数据。
引言
当用VB.NET进行编程时，你可能会选择用VB.NET或.NET框架中的Registry类中的函数来访问注册表。虽然大多数情况下VB.NET的内置函数足够用了，然而某些情况下你仍然需要.NET框架类来解决问题。
注册表不仅存储了本地机上一些程序的信息，还保存了操作系统的信息。操作注册表可能会有危险。因此编程时必须谨慎的查看代码，确保程序对所运行的机器上的安全不会构成威胁。
注册表入口点包括两部分：键名和键值。入口点是存储在系统中的键和子键，类似于文件系统中的目录和子目录。
必备知识
要想读懂本文需要有如下的必备知识：
1、熟悉上一个版本的Visual
Basic。
2、注册表设计和利用的知识。
3、理解访问注册表的安全含义。
用VB.NET内置函数访问注册表
VB.NET提供了四个访问注册表的函数，为了使用它们，首先必须有读写权限。任何运行在全信任模式下的代码都必须有访问注册表的必要的权限。可以查看RegistryPermission类从而
自己做个试验就行了：
Public Class Form1
' 在窗体上放个 Label1
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Lable1.Text = "KeyCode= " e.KeyCode.ToString vbCrLf
Lable1.Text = "KeyData= " e.KeyData.ToString vbCrLf
Lable1.Text = "KeyValue= " e.KeyValue.ToString
End Sub
End Class
运行起来，自己按键盘试试就知道了。
左键是1
右键是2
中键是4
可以组合相加
左右同时就是3，也可以写做：vbleftbutton+vbrightbutton
'先建立一个注册表键；此列注册表键名为TestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("TestKey")
'定义注册表键路径，并赋值于注册表键；此列路径为HKEY_CURRENT_USER\TestKey，赋值为 "Test Value"
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\TestKey", "TestValue", "This is a test value.")
VB.NET 参考代码：
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Windows", False)
For Each strSubKeyName In regKey.GetValueNames()
If regKey.GetValueKind(strSubKeyName) = RegistryValueKind.String Then
MessageBox.Show(regKey.GetValue(strSubKeyName))
' regKey.SetValue(strSubKeyName, "修改后的值")
End If
Next
End Sub
End Class
