Comment faire pour accéder au Registre sur un ordinateur distant à l'aide Visual Basic 6.0 et de l'API Windows

Retour au début

Configuration requise

• Un Microsoft Windows XP, Microsoft Windows 2000 ou ordinateur Windows NT 4.0
• Visual Basic 6.0

• Environnement de programmation Visual Basic 6.0
• Maîtrise du Registre Windows

Retour au début

Créer une application de démonstration

1. Démarrez Visual Basic 6.0 et puis créer un nouveau projet de type EXE standard.
2. Cliquez avec le bouton droit sur le formulaire, puis cliquez sur Afficher le code dans le menu contextuel . Ajoutez l'instruction suivante au début du code :

   Option Explicit
   					

3. Ajoutez le code suivant pour déclarer les constantes utilisées pour accéder au Registre :

   Private Const HKEY_CLASSES_ROOT = &H80000000
   Private Const HKEY_CURRENT_USER = &H80000001
   Private Const HKEY_LOCAL_MACHINE = &H80000002
   Private Const HKEY_USERS = &H80000003
   
   Private Const KEY_QUERY_VALUE = &H1
   Private Const KEY_SET_VALUE = &H2
   Private Const KEY_ALL_ACCESS = &H3F
   
   Private Const REG_SZ  As Long = 1
   Private Const ERROR_SUCCESS = 0&
   					

4. Ajoutez le code suivant pour déclarer les points d'entrée pour les fonctions du Registre dans l'interface de programmation d'application Windows (API):

   Private Declare Function RegConnectRegistry Lib "advapi32.dll" _
   Alias "RegConnectRegistryA" _
       (ByVal lpMachineName As String, _
        ByVal hKey As Long, _
        phkResult As Long) As Long
   
   Private Declare Function RegCloseKey Lib "advapi32.dll" _
       (ByVal hKey As Long) As Long
   
   Private 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
      
   Private Declare Function RegQueryValueExString Lib "advapi32.dll" _
   Alias "RegQueryValueExA" _
       (ByVal hKey As Long, _
        ByVal lpValueName As String, _
        ByVal lpReserved As Long, _
        lpType As Long, _
        ByVal lpData As String, _
        lpcbData As Long) As Long
   					

5. Ajoutez la déclaration variable globale suivante :

   Private hRemoteReg As Long
   					

6. Ajoutez le code suivant pour gérer l'événement Form_Load. Ce code appelle la fonction RegConnectRegistry pour se connecter au Registre distant. Remplacez le paramètre \\RemoteMachineName par le nom de l'ordinateur dont vous souhaitez accéder du Registre :

   Private Sub Form_Load()
       Dim lRet As Long
       
       'Connect to the remote registry 
       lRet = RegConnectRegistry("\\RemoteMachineName", _
                                 HKEY_LOCAL_MACHINE, _
                                 hRemoteReg)
       
       If (lRet = ERROR_SUCCESS) Then
           MsgBox "Successfully connected to remote registry"
       Else
           MsgBox "Error:" & Err.LastDllError
           Unload Me
           Exit Sub
       End If
   End Sub
   					

7. Ajoutez le code suivant pour gérer l'événement Form_Unload :

   Private Sub Form_Unload(Cancel As Integer)
       Dim lRet As Long
       If hRemoteReg <> 0 Then
           lRet = RegCloseKey(hRemoteReg)
       End If
   End Sub
   					

8. Dans le concepteur de formulaires, ajoutez un contrôle commande à l'écran. Le contrôle a le nom par défaut de Command1 .
9. Double-cliquez sur Command1 pour créer un gestionnaire de clic pour le bouton de commande. Ajoutez le code suivant à la fonction de gestionnaire de clic :

   Private Sub Command1_Click()
       Dim lRetVal As Long
       Dim hKey As Long
       Dim sValue As String
       
       lRetVal = RegOpenKeyEx(hRemoteReg, _
           "HARDWARE\DESCRIPTION\System", 0, KEY_QUERY_VALUE, hKey)
       If lRetVal <> ERROR_SUCCESS Then
           MsgBox "Cannot open key"
       Else
           sValue = String(255, " ")
           lRetVal = RegQueryValueExString(hKey, _
               "SystemBIOSVersion", 0&, REG_SZ, sValue, 255)
           If lRetVal <> ERROR_SUCCESS Then
               MsgBox "Cannot query value"
           Else
               MsgBox sValue
           End If
           lRetVal = RegCloseKey(hKey)
           If lRetVal <> ERROR_SUCCESS Then
               MsgBox "Cannot close key"
           End If
       End If
   End Sub
   					

Retour au début

Vérification

1. Appuyez sur F5 pour générer et exécuter l'application.
2. Une boîte de message s'affiche, indiquant que le Registre sur l'ordinateur distant a été contacté. Cliquez sur OK .
   
   Le formulaire principal de l'application s'affiche.
3. Cliquez sur Command1 . La valeur stockée dans l'emplacement suivant dans le Registre distant s'affiche :
   HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\SystemBIOSVersion
4. Pour vérifier cette valeur de Registre, exécutez regedit.exe sur l'ordinateur distant. Dans l'Éditeur du Registre, cliquez sur Rechercher dans le menu Edition . Tapez SystemBIOSVersion et puis cliquez sur suivant . Après une courte pause, l'Éditeur du Registre affiche la valeur de cette clé ; vérifier que c'est la même valeur affichée dans votre application Visual Basic.

Retour au début