1
Abra el archivo de código fuente VB6 en un editor , como Microsoft Visual Basic 6.
2
Añade un procedimiento que puede usar para consultar un valor de registro , por añadiendo el código: Private Sub
GetRegKeyValue ( sKeyName As String , sValueName As String )
Dim lRetVal As Long
hKey Dim As Long Dim
vValue As Variant
lRetVal = RegOpenKeyEx ( HKEY_CURRENT_USER , sKeyName , 0, KEY_QUERY_VALUE , hKey )
lRetVal = QueryValueEx ( hKey , sValueName , vValue )
MsgBox vValue
< p> RegCloseKey ( hKey )
End Sub
3
consulta el valor de registro mediante el procedimiento definido con el código :
GetRegKeyValue " HKEY_CLASSES_ROOT \\ XML \\ CLSID "," ( predeterminado) "
se abrirá un cuadro de mensaje con el valor de la clave proporcionada . Si el valor no existe , el procedimiento devolverá el código de error "2 - " ERROR_BADKEY ' . " Reemplazar " HKEY_CLASSES_ROOT \\ XML \\ CLSID " con la tecla que está buscando y reemplazar "(predeterminado) " con el valor que desea consultar .
4
Guarde el archivo fuente VB6 , compilar y ejecutar el programa para visualizar el valor de clave de registro .