本程序有三个功能：①显示当前注册表状态（处于可改写还是处于被保护状态）；②锁定注册表使它不被人改写；③解锁注册表使它可以随时被改写。下面我们用VB6.0来实现它。
一、设计窗体
首先打开VB程序，新建一个FORM1，将其Caption改为“注册表保护程序演示”，BorderStyle设为1-Fixed Single。放上一个Label1（其Caption改为“当前注册表状态：”）和一个Label2，另放上COMMAND1，其Caption改为“禁止使用注册表”，再放上COMMAND2，其Caption改为“允许使用注册表”，COMMAND3的Caption改为“退出程序”。
二、编程思路
程序运行时首先检查注册表，看当前注册表的状态是处于被保护状态还是锁定状态，并返回信息到Label2。如已保护则COMMAND1不可用，如无保护则COMMAND2不可用,且建一个全局的BAS文件，其中包含所有访问注册表时要用的常数及函数程序，方便主FORM1可以随时调用。下面给出主程序的和全局BAS文件的核心代码。
三、核心代码
Private Sub Form_Load() //打开窗口
Dim ret As Integer
Move (Screen.Width - W-idth) 2, (Screen.Height - Height) 2 //居中显示
ret = GetDWORDValue(”SoftwareMicrosoftWindowsCur rentVersionPoliciesSystem”, “DisableRegistryTools”) //调用全局函数，在后面有全部的代码
//判断当前注册表处于何种状态
If ret = 1 Then //返回值为1说明已经禁用注册表
Label2.Caption = “你的注册表处于安全被保护的状态”
Command1.Enabled = False
Else //返回除1以外的任何值都说明注册表没有受到保护
Label2.Caption = “你的注册表处于随时被改写的状态”
Command2.Enabled = False
End If
End Sub
———————————-
Private Sub Command1_Click() //禁用注册表
//写DWORD值的值项”DWORD Value”,值为”1″
SetDWORDValue “SoftwareMicrosoftWindowsCur rentVersionPoliciesSystem”, “DisableRegistryTools”, “00000001″
//把DisableRegistryTools这个键值设置为1，如果没有这个键就自动新建一个。
MsgBox “写入成功”
Command1.Enabled = False
Command2.Enabled = True
Label2.Caption = “你的注册表处于安全被保护的状态”
End Sub
————————-
Private Sub Command2_Click()//可用注册表
//写DWORD值的值项”DWORD Value”,值为”0″
SetDWORDValue “SoftwareMicrosoftWindowsCur rentVersionPoliciesSystem”, “DisableRegistryTools”, “00000000″
MsgBox “写入成功”
Command2.Enabled = False
Command1.Enabled = True
Label2.Caption = “你的注册表处于随时被改写的状态”
End Sub
————————
Private Sub Command3_Click()//退出程序
Unload Me
End Sub
FORM1中的程序代码之所以看起来非常简洁，是因为它们调用了一个全局的BAS文件中的函数操作注册表，全局的BAS文件的代码由于太多，可以到网站下载，下载地址：
http://www.cpcw.com/xz/bas.rar
四、说明
在BAS文件的通用中有Public Const HKEY_CURRENT_USER = &H80000001，这是表明注册表中HKEY_CURRENT_USER这个主键的调用值，如果你使用其他主键写程序时，相应的常数值分别为：
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
注：以上程序在Windows XP SP2及VB6.0下编写及调试成功。
标签：
