四．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 ( )来实现，具体的语法如下：
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 |
经过下列命令编译后，这些可以得到下面界面：
vbc /r:system.dll /r:system.windows.forms.dll /r:system.drawing.dll reg01.vb
图3：用VB.NET创建和修改注册表程序运行界面
|
|
