vb6.0遍历注册表问题？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

Question

我想找出注册表中特定注册表项下具有特定键值的注册表项不知该如何是好，希望大家多多帮忙，问题如能解决有加分

Answer 1

使用这些API
'**************Operation Regedit API Declare**************
'Regedit Key Type Value
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'Regedit API Return Value
Public Const ERROR_NONE = 0
Public Const ERROR_BADKEY = 2
Public Const ERROR_ACCESS_DENIED = 8
Public Const ERROR_SUCCESS = 0Private Const REG_SZ = 1Public Declare Function RegOpenKey Lib "advapi32.dll" Alias _
    "RegOpenKeyA" _
    (ByVal hKey As Long, _
    ByVal lpSubKey As String, _
    phkResult As Long) As Long
    
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias _
    "RegCreateKeyA" _
    (ByVal hKey As Long, _
    ByVal lpSubKey As String, _
    phkResult As Long) As LongPublic Declare Function RegCloseKey Lib "advapi32.dll" _
    (ByVal hKey As Long) As LongPublic Declare Function RegEnumKey Lib "advapi32.dll" Alias _
    "RegEnumKeyA" _
    (ByVal hKey As Long, _
    ByVal dwIndex As Long, _
    ByVal lpName As String, _
    ByVal cbName As Long) As LongDeclare Function RegQueryValueEx Lib "advapi32.dll" Alias _
    "RegQueryValueExA" _
    (ByVal hKey As Long, _
    ByVal lpValueName As String, _
    ByVal lpReserved As Long, _
    lpType As Long, _
    lpData As Any, _
    lpcbData As Long) As Long
    
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
    "RegSetValueExA" _
    (ByVal hKey As Long, _
    ByVal lpValueName As String, _
    ByVal Reserved As Long, _
    ByVal dwType As Long, _
    lpData As Any, _
    ByVal cbData As Long) As Long
'***************************************************