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

Answer 1

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

Answer 2

Merci Paraglider pour votre aide

---

Mohammed OUAHNINE

Answer 3

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,

Answer 4

Merci Trosa ça bien marché mais avec :

Dim Med = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList").GetValue("Med")
MsgBox(Med)

sans HKEY_LOCAL_MACHINE\

---

Mohammed OUAHNINE

Answer 5

oui pardon :-)

j'ai fait un copier coller sans correction :P

---

Cordialement,