|
注册表保存了Windows中极重要的配置信息，而任何人都可以通过运行Regedit命令或双击某个Reg文件来改写它，这样做其实是很危险的。本期介绍的编程方法，就是为防止注册表被改写而设计的。我们的推荐文章 本程序有三个功能：①显示当前注册表状态（处于可改写还是处于被保护状态）；②锁定注册表使它不被人改写；③解锁注册表使它可以随时被改写。下面我们用VB6.0来实现它。 一、设计窗体 首先打开VB程序，新建一个FORM1，将其Caption改为“注册表保护程序演示”，BorderStyle设为1-Fixed Single。放上一个Label1（其Caption改为“当前注册表状态：”）和一个Label2，另放上COMMAND1，其Caption改为“禁止使用注册表”，再放上COMMAND2，其Caption改为“允许使用注册表”，COMMAND3的Caption改为“退出程序”。 二、编程思路 程序运行时首先检查注册表，看当前注册表的状态是处于被保护状态还是锁定状态，并返回信息到Label2。如已保护则COMMAND1不可用，如无保护则COMMAND2不可用,且建一个全局的BAS文件，其中包含所有访问注册表时要用的常数及函数程序，方便主FORM1可以随时调用。tw.WInGwiT.COM下面给出主程序的和全局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下编写及调试成功。 |
