VB.NET注册表编程

一.程序设计和运行的环境设置:

  (1).视窗2000服务器版

  (2). .Net FrameWork SDK Beta 2

  二.初步认识注册表:

  首先我们来了解一下注册表的组成。在注册表中,子树是主要节点,包括健、子健和值。健就是打开”注册表编辑器”后,出现在”注册表编辑器”左窗格中的文件夹,健可以包含子健和值健。子健就是健中的健,在注册表中,子健属于树和健。值健就是运行”注册表编辑器”后,出现在”注册表编辑器”右窗格中的数据字符串,他定义了当前所选健的值,值健由三个部分组成:名称、数据类型和值本身。下图就是注册表的各个组成部分:






           图01:注册表组成图表


  三.设定测试环境:

  由于注册表在视窗系统中的特殊地位,我们自己定义几个作为程序试验使用。在注册表健”SYSTEM”下面创建一个子健”A000″,在此子健下面再创建二个子健”B000″和”B001″。在子健”B000″中创建一个健名称为”0001″,数据类型为字符串,值为”1111″;在子健”B001″中也创建一个健,名称为”0002″,数据类型为字符串,值为”2222″。下图就是我们为本文中介绍的程序所设定的注册表环境:






       图02:本文中介绍的程序使用的注册表
四.VB.NET是如何创建注册表信息:

  在.Net FrameWork SDK中定义了一个名称空间–Microsoft.Win32,这个名称空间中封装了用于操作注册表的许多类,在具体的程序设计中,主要用到的是:Registry类、RegistryKey类。其中Registry类主要是提供为存取值和子健所必须的基本的子目录树。在Registry类中定义了注册表中7个主要的子目录树。其对应如下:

  Registry.ClassesRoot 对应于HKEY_CLASSES_ROOT子目录树

  Registry.CurrentUser 对应于HKEY_CURRENT_USER子目录树

  Registry.LocalMachine 对应于 HKEY_LOCAL_MACHINE子目录树

  Registry.User 对应于 HKEY_USER子目录树

  Registry.CurrentConfig 对应于HEKY_CURRENT_CONFIG子目录树

  Registry.DynDa 对应于HKEY_DYN_DATA子目录树

  Registry.PerformanceData 对应于HKEY_PERFORMANCE_DATA子目录树

  VB.NET主要是利用RegistryKey类封装的方法、属性等来进行与注册表相关的各种操作。下面就来介绍一下,如何用VB.NET创建注册表信息。在创建注册信息,首先必须要知道如何确定要创建注册信息的地方。譬如本文我们是要在子健”A000″下面再创建一个子健,那么首先通过下列语句就可以使得注册表的记录指针指向”A000″,具体如下:





Dim hklm As RegistryKey = Registry.LocalMachine
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” )
‘打开”SYSTEM”子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” )
‘打开”A000″子健

  方法”OpenSubKey”被定义在RegistryKey类中的,此方法可以看成是确定注册表记录的指针。此方法的调用主要有二种,一种当打开指定的子健的目的是为了读取,那么调用方法可以采用上面这种方式;如果打开指定子健的目的是为了进行写操作,那么在使用的时候必须采用下面语法:





OpenSubKey ( 子健名称 , true )

  在RegistryKey类中定义了CreateSubKey ( )来创建子健,通过SetValue ( )方法来创建健,并为此健赋值。下面语句就是在已经打开的子健”A000″下面创建一个子健并赋值:





listBox1.Items.Clear ( )
Dim hklm As RegistryKey = Registry.LocalMachine
‘打开”SYSTEM”子健
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” ,true )
‘打开”A000″子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” , true )
Dim ddd As RegistryKey = software.CreateSubKey ( “ddd” )
ddd.SetValue ( “www” , “1234” )

  修改健值可以通过SetValue ( )来实现,具体的语法如下:

#p#副标题#e#

  SetValue (存在的健 ,新的健值)

  五.VB.NET是创建并修改注册表信息的程序代码(reg01.vb):

  至此我们不难得到用VB.NET创建并修改注册表的程序代码,在下列代码中,有一点要说明,就是在程序中使用了RegistryKey类中定义另外二个属性:SubKeyCount和ValueCount,其中第一个属性是当前子健下面有多少个子健,第二个是当前子健中定义了多少个健。





Imports System
Imports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms
Imports Microsoft.Win32
‘导入程序中使用的名称空间
Public Class Form1
Inherits Form
Public Sub New ( )
MyBase.New ( )
‘初始化窗体中的各个组件
InitializeComponent ( )
End Sub
‘清除程序中使用过的各种资源
Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
If disposing Then
If Not ( components Is Nothing ) Then
components.Dispose ( )
End If
End If
MyBase.Dispose ( disposing )
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents listBox1 As ListBox
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button

Private components As System.ComponentModel.Container
‘初始化程序中使用到的组件
Private Sub InitializeComponent ( )
Me.listBox1 = New ListBox ( )
Me.Button1 = New Button ( )
Me.Button2 = New Button ( )
Me.Button3 = New Button ( )
Me.SuspendLayout ( )
Me.listBox1.ItemHeight = 12
Me.listBox1.Location = New Point ( 8 , 24 )
Me.listBox1.Name = “listBox1”
Me.listBox1.Size = New Size ( 480 , 292 )
Me.listBox1.TabIndex = 1

…下略

Me.Controls.Add ( Me.listBox1 )
Me.Controls.Add ( Me.Button1 )
Me.Controls.Add ( Me.Button2 )
Me.Controls.Add ( Me.Button3 )
Me.Name = “Form1”
Me.Text = “用VB.NET进行注册表编程!”
Me.ResumeLayout ( False )

End Sub

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) _
Handles Button1.Click
listBox1.Items.Clear ( )
Dim hklm As RegistryKey = Registry.LocalMachine
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” )
‘打开”SYSTEM”子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” )
‘打开”A000″子健
Dim KeyCount As integer = software.SubKeyCount
‘获得当前健下面有多少子健
Dim Str ( ) As String = software.GetSubKeyNames ( )
‘获得当前健下面所有子健组成的字符串数组
Dim i As integer
For i = 0 to KeyCount – 1
listBox1.Items.Add ( Str ( i ) )
Dim sitekey As RegistryKey = software.OpenSubKey ( Str ( i ) )
‘按顺序打开子健
Dim Str2 ( ) As String = sitekey.GetValueNames ( )
‘获得当前子健下面所有健组成的字符串数组
Dim ValueCount As integer = sitekey.ValueCount
‘获得当前子健存在多少健值
Dim j As integer
For j = 0 to ValueCount – 1
listBox1.Items.Add ( ” ” + Str2 ( j ) + “: ” + sitekey.GetValue ( Str2 ( j ) ) )
‘在列表中加入所有子健、健和健值
Next j
Next i
End Sub
‘创建子健,并创建一个健并赋值
Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) _
Handles Button2.Click
listBox1.Items.Clear ( )
Dim hklm As RegistryKey = Registry.LocalMachine
‘打开”SYSTEM”子健
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” ,true )
‘打开”A000″子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” , true )
Dim ddd As RegistryKey = software.CreateSubKey ( “ddd” )
ddd.SetValue ( “www” , “1234” )
End Sub
‘重命名一个健的值
Private Sub Button3_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) _
Handles Button3.Click
listBox1.Items.Clear ( )
Dim hklm As RegistryKey = Registry.LocalMachine
‘打开”SYSTEM”子健
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” ,true )
‘打开”A000″子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” , true )
Dim ddd As RegistryKey = software.CreateSubKey ( “ddd” )
ddd.SetValue ( “www” , “aaaa” )
End Sub

End Class
Module Module1
Sub Main ( )
Application.Run ( New Form1 ( ) )
End Sub
End Module

  经过下列命令编译后,这些可以得到下面界面:

#p#副标题#e#

  vbc /r:system.dll /r:system.windows.forms.dll /r:system.drawing.dll reg01.vb






      图03:用VB.NET创建和修改注册表程序运行界面
六.是如何删除注册表信息:

  VB.NET删除注册表中的信息也是通过RegistryKey类中封装的方法来实现,具体的说,就是DeleteSubKey ( )方法、DeleteSubKeyTree ( )方法和DeleteValue ( )方法。其中

  1). DeleteSubKey ( )方法:

  在使用此方法删除一个指定的子键的时候,要确保此子健下面不能存在子健,否则会产生一个错误信息。在程序中调用此方法有二种原型:

  I > . DeleteSubKey ( string , subkey ):这种调用方式就是直接删除指定的子健。

  II > . DeleteSubKey ( string subkey , Boolean info ):其中的”string”是要删除的子健的名称,”Boolean”参数的意思是:如果值为”True”,则在程序调用的时候,删除的子健不存在,则产生一个错误信息;如果值为”False”,则在程序调用的时候,删除的子健不存在,也不产生错误信息,程序依然正确运行。所以在具体的程序设计过程中,我还是推荐使用第二种调用方法。

  (2). DeleteSubKeyTree ( )方法: 

  此方法是彻底删除指定的子健目录,即:删除该子健以及该子健以下的全部子健。由于此方法的破坏性是非常强的,所以在使用的时候要非常注意。在程序中调用此方法的原型为:

  DeleteSubKeyTree ( string subkey ):其中”subkey”就是要彻底删除的子健名称。

  下面这一段代码功能就是删除已经打开子健”A000″下面的子健”ddd”:






Dim hklm As RegistryKey = Registry.LocalMachine
‘打开”SYSTEM”子健
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” ,true )
‘打开”A000″子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” , true )
software.DeleteSubKeyTree ( “ddd” )

  (3). DeleteValue ( )方法:

  此方法是删除指定的健值。在程序中调用此方法的原型为:

  DeleteValue ( string value ):其中”value”就是要删除的健值的名称。

  下面这一段代码的作用就是删除子健”ddd”中的健”www”:





Dim hklm As RegistryKey = Registry.LocalMachine
‘打开”SYSTEM”子健
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” ,true )
‘打开”A000″子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” , true )
Dim ddd As RegistryKey = software.OpenSubKey ( “ddd” , true )
ddd.DeleteValue( “www” )

  七.VB.NET删除注册表信息程序代码(reg02.vb):

  通过上面的那个例子,结合以上的知识,我们可以得到用来删除有reg01.vb所创建的注册表信息的程序代码(reg02.vb),代码如下:






Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) _
Handles Button1.Click
listBox1.Items.Clear ( )
Dim hklm As RegistryKey = Registry.LocalMachine
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” )
‘打开”SYSTEM”子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” )
‘打开”A000″子健
Dim KeyCount As integer = software.SubKeyCount
‘获得当前健下面有多少子健
Dim Str ( ) As String = software.GetSubKeyNames ( )
‘获得当前健下面所有子健组成的字符串数组
Dim i As integer
For i = 0 to KeyCount – 1
listBox1.Items.Add ( Str ( i ) )
Dim sitekey As RegistryKey = software.OpenSubKey ( Str ( i ) )
‘按顺序打开子健www.xker.com()
Dim Str2 ( ) As String = sitekey.GetValueNames ( )
‘获得当前子健下面所有健组成的字符串数组
Dim ValueCount As integer = sitekey.ValueCount
‘获得当前子健存在多少健值
Dim j As integer
For j = 0 to ValueCount – 1
listBox1.Items.Add ( ” ” + Str2 ( j ) + “: ” + sitekey.GetValue ( Str2 ( j ) ) )
‘在列表中加入所有子健、健和健值
Next j
Next i
End Sub
‘删除子健
Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) _
Handles Button2.Click
listBox1.Items.Clear ( )
Dim hklm As RegistryKey = Registry.LocalMachine
‘打开”SYSTEM”子健
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” ,true )
‘打开”A000″子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” , true )
software.DeleteSubKeyTree ( “ddd” )
End Sub
‘删除指定的健
Private Sub Button3_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) _
Handles Button3.Click
listBox1.Items.Clear ( )
Dim hklm As RegistryKey = Registry.LocalMachine
‘打开”SYSTEM”子健
Dim software11 As RegistryKey = hklm.OpenSubKey ( “SYSTEM” ,true )
‘打开”A000″子健
Dim software As RegistryKey = software11.OpenSubKey ( “A000” , true )
Dim ddd As RegistryKey = software.OpenSubKey ( “ddd” , true )
ddd.DeleteValue( “www” )
End Sub

End Class
Module Module1
Sub Main ( )
Application.Run ( New Form1 ( ) )
End Sub
End Module

#p#副标题#e#

 经过如下命令编译后,可以得到如下运行界面:

 vbc /r:system.dll /r:system.windows.forms.dll /r:system.drawing.dll reg02.vb






           图04:用VB.NET删除注册表程序运行界面

  八:总结:

  至此我们已经比较全面的介绍了用VB.NET进行与注册表相关的各种编程,其中包括如何利用VB.NET来读取注册表,如何创建注册信息,如何修改注册信息,如何删除、重命名注册信息等。最后还要提醒一下,由于注册表是视窗的核心数据库,所以在程序中每一次对与注册表相关的操作都应该非常注意,做好备份工作,免得一次误操作导致系统的崩溃。