Discussion :

[Juho06]

Bonjour à tous!

Dans mon appli VB NET j'ai ces 6 lignes de code qui vont chercher le contenu de deux clés dans le registre et qui vont stocker leur contenu respectivement dans deux variables.

Or, impossible de déclarer ces deux variables! Lors de la rédaction du code, aucun probleme, mais lorsque je lance mon appli, j'obtiens un pitoyable " La référence d'objet n'est pas définie à une instance d'un objet" ...

J'ai tout essayé, pas moyen de contourner ce problème...

Pourriez vous m'aider?

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("ma_clé")
Dim name As String
name = key.GetValue("Name")
Dim serial As String
serial = key.GetValue("Serial")

Merci d'avance

[JPelli]

Bonjour,
La clé existe bien dans le registre??
Car si celle-ci est inconnue, key= nothing et le message d'erreur se produit lors de (name = key.GetValue("Name")).
Bon boulot
Jean

[Juho06]

Salut

Non, la clé n'existe pas, en gros le programme vérifie si l'utilisateur a enregistré sa clé de license.

Si la clé existe, on affiche les données name & serial qui sont dans la clé

Si elle n'existe pas, on invite l'user à s'en procurer une.

Je vais essayer de remplacer ma_clé par une clé du registre qui existe réélement pour voir si ca change quelque chose

Merci de ta réponse

[Juho06]

Génial! Suivant ton raisonement, j'ai trouvé la solution!
Voici mon code, si ca interesse quelqu'un :

'verifie si la clé existe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
        Dim key As Microsoft.Win32.RegistryKey
        key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("clé_test")
 
        If key Is Nothing Then
 
 
            'la clé n'existe pas, on affiche la msgbox
            MsgBox("vous n'etes pas enregistré")
 
        Else
 
            'la clé existe, on charge ses données dans les variables name et serial
 
            Dim name As String
            name = key.GetValue("Name")
            Dim serial As String
            serial = key.GetValue("Serial")
 
            MsgBox("la clé existe")
 
 
 
        End If

Merci encore