VB中用API修改注册表（别删了，我就提这一个！）

来源：百度知道 编辑：UC知道 时间：2024/06/11 03:12:57
~~~~~~小弟实在白痴，看了很多关于这样的文章还是不懂~~~~~
假设我想在：
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\EWF\Parameters\Protected\Volume0
（一共有4个，其他的分别是最后的Volume1、Volume2、Volume3）
下读取十六进制dword项Enabled（4个项都一样），如果是0就返回零，1就返回1
麻烦帮我弄成个函数，至于什么错误信息就不用管了，说明这个函数的用法，谢谢。
注：不用太多功能，我整个程序里就这里用注册表，只需要一个这样的功能就行了，不会在读取其他的项了。
麻烦写明哪里要放在模块里，哪里要放在窗体载入事件部分，哪里可以直接调用（比如abc=函数名(Volume第几个作为参数)哦，对了，最后要返回整型)。

回答了我再给100分！

标准模块代码如下
Option Explicit
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_CURRENT_CONFIG = &H80000005
Public Const REG_NONE = 0
Public Const REG_SZ = 1
Public Const REG_EXPAND_SZ = 2
Public Const REG_BINARY = 3
Public Const REG_DWORD = 4
Public Const REG_DWORD_BIG_ENDIAN = 5
Public Const REG_MULTI_SZ = 7
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegSetVal