Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte VB6 zdrojový súbor v editore , ako je napríklad Microsoft Visual Basic 6.
2
Pridať postup môžete použiť k dotazu hodnotu registra , ktoré pridanie kódu :
Private Sub GetRegKeyValue ( sKeyName As String , sValueName As String )
Dim lRetVal As Long Dim
HKEY As Long Dim
vValue as Variant
lRetVal = RegOpenKeyEx ( HKEY_CURRENT_USER , sKeyName , 0 , KEY_QUERY_VALUE , HKEY )
lRetVal = QueryValueEx ( HKEY , sValueName , vValue )
MsgBox vValue
RegCloseKey ( HKEY )
End Sub
3
Otázka na hodnotu Registry pomocou definovaného postupu pridaním kódu :
GetRegKeyValue " HKEY_CLASSES_ROOT \\ XML \\ CLSID " , " ( predvolené ) "
Tým sa otvorí okno s hlásením s hodnotou poskytnutého kľúča . Ak neexistuje žiadna , procedúra vráti s chybovým kódom " 2 - " . ERROR_BADKEY ' " Nahradiť " HKEY_CLASSES_ROOT \\ XML \\ CLSID " s kľúčom , ktoré hľadáte a nahradiť " ( predvolené ) " s hodnotou , ktorú chcete dotaz .
4
Uložte zdrojový súbor VB6 , kompilovať a spúšťať program pre zobrazenie hodnoty kľúče Registry .