Meilleur auteur de réponses
Base de registre

Question
-
Bonsoir, je voudrai changer une clé dans la base de registre windows seven a l'aide de visual basic 2010
J’ai une feuille avec un Label et un bouton et voila mon code :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Kle As RegistryKey, Valeur As Integer, Chemin As String
Chemin = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList"
Kle = Registry.CurrentUser.OpenSubKey(Chemin, False)
Valeur = Kle.GetValue("Med")
Label1.Text = Valeur
End Sub
je reçois l'erreur suivante :
merci de vous m'aider
Mohammed OUAHNINE
Réponses
-
Bonjour,
Tu définis un chemin sur LocalMachine :
Chemin = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\...\..."
Ensuite tu veux ouvrir une clef qui se trouve dans CurrentUser !Kle = Registry.CurrentUser.OpenSubKey(Chemin, False)
Il te faut donc changer le "CurrentUser" pour "LocalMachine"
Kle = Registry.LocalMachine.OpenSubKey(Chemin, False)
Jacques
- Marqué comme réponse ouahnine mercredi 19 décembre 2012 08:41
-
Bonjour,
Vous avez plus simple :
Dim Med = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList").GetValue("Med") MsgBox(Med)
Cordialement,
- Marqué comme réponse ouahnine mercredi 19 décembre 2012 21:56
- Modifié TroxsaEditor mercredi 19 décembre 2012 23:10
Toutes les réponses
-
Bonjour,
Tu définis un chemin sur LocalMachine :
Chemin = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\...\..."
Ensuite tu veux ouvrir une clef qui se trouve dans CurrentUser !Kle = Registry.CurrentUser.OpenSubKey(Chemin, False)
Il te faut donc changer le "CurrentUser" pour "LocalMachine"
Kle = Registry.LocalMachine.OpenSubKey(Chemin, False)
Jacques
- Marqué comme réponse ouahnine mercredi 19 décembre 2012 08:41
-
-
Bonjour,
Vous avez plus simple :
Dim Med = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList").GetValue("Med") MsgBox(Med)
Cordialement,
- Marqué comme réponse ouahnine mercredi 19 décembre 2012 21:56
- Modifié TroxsaEditor mercredi 19 décembre 2012 23:10
-
-