Vérifier l'existence clé registre [Résolu]

Question

Vérifier l'existence clé registre [Résolu]

Signaler

edwinzap

Messages postés: 159
Date d'inscription: samedi 29 septembre 2012
Statut: Membre
Dernière intervention: 21 juin 2016

- 20 déc. 2013 à 12:19
edwinzap

Messages postés: 159
Date d'inscription: samedi 29 septembre 2012
Statut: Membre
Dernière intervention: 21 juin 2016

- 20 déc. 2013 à 17:15

Bonjour,

Voici mon problème. En cherchant comment faire pour manipuler le registre, j'ai réussi à faire ce code:

Private Sub DémarrageAuto_True()
        Try

            Dim Cle As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            Cle.SetValue("Compteur", My.Application.Info.DirectoryPath & "\Compteur.exe")

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Je crée ainsi la clé dans le registre.

Je voudrais vérifier l'existence de cette clé avec ce code:

Try
                DémarrageAuto_True()
                Dim test As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run\Compteur", True)

                If test Is Nothing Then
                    MsgBox("la clé n'existe pas")
                Else
                    MsgBox("la clé existe")
                End If
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try

Le test me renvoit à chaque fois Nothing alors que je viens juste de la créer !!!

Aidez moi svp, merci !

A voir également:

5 réponses

Répondre Posez votre question

jordane45 · Answer 1 · 2013-12-20T12:48:35+0100

Réponse 1 / 5

jordane45

Messages postés: 32346
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 7 mai 2021

346
20 déc. 2013 à 12:48

Bonjour,
Essayes peut-être de doubler les anti-Slash.

jordane45 · Answer 2 · 2013-12-20T12:57:10+0100

Réponse 2 / 5

jordane45

Messages postés: 32346
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 7 mai 2021

346
20 déc. 2013 à 12:57

http://msdn.microsoft.com/en-us/library/8bf3xkta.aspx

edwinzap · Answer 3 · 2013-12-20T14:38:20+0100

J'ai tout regarder, et ça ne marche tjrs pas !
J'ai modifié le code:

Création de la clé:

            Dim Cle As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run")
            Cle.SetValue("Compteur", My.Application.Info.DirectoryPath & "\Compteur.exe", RegistryValueKind.String)

Vérification que la clé existe:

                Dim value As String
                value = Microsoft.Win32.Registry.CurrentUser.GetValue("Software\\Microsoft\\Windows\\CurrentVersion\\Run\\Compteur")

                If value IsNot Nothing Then
                    MsgBox("la clé existe")
                Else
                    MsgBox("la clé n'existe pas")
                End If

Il me renvoi tjrs Nothing !

cs_Le Pivert · Answer 4 · 2013-12-20T15:33:24+0100

Réponse 4 / 5

cs_Le Pivert

Messages postés: 7367
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 7 mai 2021

122
20 déc. 2013 à 15:33

Bonjour,

Essaie cela:

 Dim test As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run\Compteur",False)
        If test Is Nothing Then
        MsgBox("la clé existe")
                Else
                    MsgBox("la clé n'existe pas")
        End If

Il faut essayer d'ouvrir la clé pour voir si elle existe!

edwinzap · Answer 5 · 2013-12-20T17:15:06+0100

Effectivement, il fallait essayer d'ouvrir la clé. Merci à Jordane45 pour les liens. Cela m'a fortement aidé.
En fait je ne comprenais pas correctement la hiérarchie de la base de registre. Voici mon code:

Dim key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", True)
            Dim value = key.GetValue("compteur")
            If value Is Nothing Then
                key = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run")
                key.SetValue("Compteur", My.Application.Info.DirectoryPath & "\Compteur.exe", RegistryValueKind.String)
                key.Close()
                Me.DémarrageAutoToolStripMenuItem.Text = "&Désactiver"
            Else
                key.DeleteValue("Compteur")
                Me.DémarrageAutoToolStripMenuItem.Text = "&Activer"
            End If

Encore merci !

Sujet résolu, mais je suis tjrs preneur pour des améliorations du code !

Votre réponse