Aprire il file sorgente VB6 in un editor , ad esempio Microsoft Visual Basic 6 .
2
Aggiungi una procedura è possibile utilizzare per eseguire query su un valore di registro , da aggiungendo il codice :
private Sub GetRegKeyValue ( sKeyName As String , sValueName As String ) per
Dim lRetVal As Long Dim
hKey As Long Dim
vValue As Variant
lRetVal = RegOpenKeyEx ( HKEY_CURRENT_USER , sKeyName , 0 , KEY_QUERY_VALUE , hKey ) per
lRetVal = QueryValueEx ( hKey , sValueName , vValue ) per
MsgBox vValue
RegCloseKey ( hKey ) per
End Sub
3
query il valore di registro utilizzando la procedura definita con il codice :
GetRegKeyValue " HKEY_CLASSES_ROOT \\ XML \\ CLSID " , " (predefinito) "
si aprirà una finestra di messaggio con il valore della chiave in dotazione . Se non esiste il valore , la procedura per ritornare con il codice di errore " 2 - ' ERROR_BADKEY ' . " Sostituire " HKEY_CLASSES_ROOT \\ XML \\ CLSID " con la chiave che cerca e sostituisci " ( predefinito)" con il valore che si desidera interrogare .
4
Salvare il file sorgente VB6 , compilare ed eseguire il programma per visualizzare il valore della chiave del Registro di sistema .
Programmazione © www.354353.com