Problème! Impossible de déclarer ma variable!

Version imprimable

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:

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 ;)

25/02/2007, 18h52
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 boulot8-)
Jean
25/02/2007, 19h04
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 ;)

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

'verifie si la clé existe

Code:

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 ;)