VISUAL BASIC - Enumerating Registry Keys / Values / Data

I need to enumerate all the values and associated data with a given registry key in VB6.  For example:

Lets say I have the registry key:  HKCU\Control Panel\Mouse

which has the values / data type / data::

ActiveWindowTracking / REG_DWORD / 0x00000000
DoubleClickHeight / REG_SZ / 4
SmoothMouseXCurve / REG_BINARY / 00 00 00 00 15 6e 00 00 00 etc...

I need to enumerate every value in the key (HKCU\Control Panel\Mouse) and return it's datatype and data.  I've tried using the RegOpenKeyEx, RegEnumValue API's and can get the value names, but it does not return the data correctly.  The code i'm using is posted below.  



     

'-----------Functions-------------
 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 ERROR_SUCCESS = 0&
 
      Public Const SYNCHRONIZE = &H100000
      Public Const STANDARD_RIGHTS_READ = &H20000
      Public Const STANDARD_RIGHTS_WRITE = &H20000
      Public Const STANDARD_RIGHTS_EXECUTE = &H20000
      Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
      Public Const STANDARD_RIGHTS_ALL = &H1F0000
      Public Const KEY_QUERY_VALUE = &H1
      Public Const KEY_SET_VALUE = &H2
      Public Const KEY_CREATE_SUB_KEY = &H4
      Public Const KEY_ENUMERATE_SUB_KEYS = &H8
      Public Const KEY_NOTIFY = &H10
      Public Const KEY_CREATE_LINK = &H20
      Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or _
                        KEY_QUERY_VALUE Or _
                        KEY_ENUMERATE_SUB_KEYS Or _
                        KEY_NOTIFY) And _
                        (Not SYNCHRONIZE))
 
      Public Const REG_DWORD = 4
      Public Const REG_BINARY = 3
      Public Const REG_SZ = 1
      Public Const REG_EXPAND_SZ = 2
 
      Public Declare Function RegOpenKeyEx Lib "advapi32.dll" _
          Alias "RegOpenKeyExA" _
          (ByVal hKey As Long, _
          ByVal lpSubKey As String, _
          ByVal ulOptions As Long, _
          ByVal samDesired As Long, phkResult As Long) As Long
 
      Public Declare Function RegEnumValue Lib "advapi32.dll" _
          Alias "RegEnumValueA" _
          (ByVal hKey As Long, _
          ByVal dwIndex As Long, _
          ByVal lpValueName As String, _
          lpcbValueName As Long, _
          ByVal lpReserved As Long, _
          lpType As Long, _
          lpData As Any, _
          lpcbData As Long) As Long
 
      Public Declare Function RegCloseKey Lib "advapi32.dll" _
          (ByVal hKey As Long) As Long
 
    Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _
    ByVal hKey As Long, _
    ByVal lpValueName As String, _
    ByVal lpReserved As Long, _
    lpType As Long, _
    lpData As String, lpcbData As Long) As Long
 
'----------------END FUNCTIONS-----------------
 
'----------------FUNCTION CALLS----------------
 
Private Sub Form_Load()
    
         Dim lngKeyHandle As Long
         Dim lngResult As Long
         Dim lngCurIdx As Long
         Dim strValue As String
         Dim lngValueLen As Long
         Dim lngData As Long
         Dim lngDataLen As Long
         Dim strResult As String
         
         Dim sData As Long
         Dim sDataType
         Dim sDataValue As String
         Dim sDataSize As Long
         
         Dim keyPath As String
           keyPath = "Control Panel\Mouse"
                 
         lngResult = RegOpenKeyEx(HKEY_CURRENT_USER, _
                 keyPath, _
                  0&, _
                  KEY_READ, _
                  lngKeyHandle)
 
         If lngResult <> ERROR_SUCCESS Then
             MsgBox "Cannot open key"
             Exit Sub
         End If
 
         lngCurIdx = 0
         Do
            lngValueLen = 2000
            strValue = String(lngValueLen, 0)
            lngDataLen = 2000
 
            lngResult = RegEnumValue(lngKeyHandle, _
                                     lngCurIdx, _
                                     ByVal strValue, _
                                     lngValueLen, _
                                     0&, _
                                     REG_DWORD, _
                                     ByVal lngData, _
                                     lngDataLen)
            lngCurIdx = lngCurIdx + 1
 
         If lngResult = ERROR_SUCCESS Then
         strResult = Trim(Left(strValue, lngValueLen))
             
          
            sData = RegQueryValueEx(lngKeyHandle, strResult, 0&, sDataType, ByVal sDataValue, sDataSize)
          
             
            Debug.Print strResult & " " & sDataValue
            
         End If
 
         Loop While lngResult = ERROR_SUCCESS
         Call RegCloseKey(lngKeyHandle)
         Unload frmMain
    
End Sub

Select allOpen in new window