none
Base de registre RRS feed

  • 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

    mardi 18 décembre 2012 16:51

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
    mercredi 19 décembre 2012 00:39
  • 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
    mercredi 19 décembre 2012 20:51
    Auteur de réponse

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
    mercredi 19 décembre 2012 00:39
  • Merci Paraglider pour votre aide

    Mohammed OUAHNINE

    mercredi 19 décembre 2012 08:42
  • 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
    mercredi 19 décembre 2012 20:51
    Auteur de réponse
  • 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

    mercredi 19 décembre 2012 21:56
  • oui pardon :-)

    j'ai fait un copier coller sans correction :P


    Cordialement,

    mercredi 19 décembre 2012 23:10
    Auteur de réponse