注册表加锁的方法

概要：AND2，其Caption改为“允许使用注册表”，COMMAND3的Caption改为“退出程序”。二、编程思路程序运行时首先检查注册表，看当前注册表的状态是处于被保护状态还是锁定状态，并返回信息到Label2。如已保护则COMMAND1不可用，如无保护则COMMAND2不可用,且建一个全局的BAS文件，其中包含所有访问注册表时要用的常数及函数程序，方便主FORM1可以随时调用。下面给出主程序的和全局BAS文件的核心代码。三、核心代码Private Sub Form_Load() //打开窗口Dim ret As IntegerMove (Screen.Width - W-idth) \ 2, (Screen.Height - Height) \ 2 //居中显示ret = GetDWORDValue("Software\Microsoft\Windows\Cur rentVersion\Policies\System", "DisableRegistryTools") //调用全局函数，在后面有全部的代码//判断当前注册表处于何种状态If ret = 1 Then //返回值为1说明已经禁用注册表Label2.Caption = "

注册表加锁的方法,http://www.dxs51.com

　　注册表保存了Windows中极重要的配置信息，而任何人都可以通过运行Regedit命令或双击某个Reg文件来改写它，这样做其实是很危险的。本期介绍的编程方法，就是为防止注册表被改写而设计的。www.dxs51.com推荐文章

　　本程序有三个功能：①显示当前注册表状态（处于可改写还是处于被保护状态）；②锁定注册表使它不被人改写；③解锁注册表使它可以随时被改写。下面我们用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("Software\Microsoft\Windows\Cur rentVersion\Policies\System", "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 "Software\Microsoft\Windows\Cur rentVersion\Policies\System", "DisableRegistryTools", "00000001"
　　//把DisableRegistryTools这个键值设置为1，如果没有这个键就自动新建一个。
　　MsgBox "写入成功"
　　Command1.Enabled = False
　　Command2.Enabled = True
　　Label2.Caption = "你的注册表处于安全被保护的状态"
　　End Sub
　　-------------------------
　　Private Sub Command2_Click()//可用注册表
　　//写DWORD值的值项"DWORD Value",值为"0"
　　SetDWORDValue "Software\Microsoft\Windows\Cur rentVersion\Policies\System", "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下编写及调试成功。