六．是如何删除注册表信息：
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 ) )
'按顺序打开子健
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 |
经过如下命令编译后，可以得到如下运行界面：
vbc /r:system.dll /r:system.windows.forms.dll /r:system.drawing.dll reg02.vb
图4：用VB.NET删除注册表程序运行界面
八：总结：
至此我们已经比较全面的介绍了用VB.NET进行与注册表相关的各种编程，其中包括如何利用VB.NET来读取注册表，如何创建注册信息，如何修改注册信息，如何删除、重命名注册信息等。最后还要提醒一下，由于注册表是视窗的核心数据库，所以在程序中每一次对与注册表相关的操作都应该非常注意，做好备份工作，免得一次误操作导致系统的崩溃。
|
|
