Discussion :

[arnolem]

Une exception non gérée du type 'System.NullReferenceException' s'est produite dans Module inconnu.

Informations supplémentaires : La référence d'objet n'est pas définie à une instance d'un objet.

Voila se que j'obtient
pas de ligne de code, aucune infos ...

en fait, je fais plusieur opération dans un catch, si je les met en dehors, sa passe

[graphicsxp]

Ca m'a tout l'air d'une exception due au fait que tu as oublié de créer ton objet en faisant New. Vérifie.

[EDIT]
Tu as édité ton post

en fait, je fais plusieur opération dans un catch, si je les met en dehors, sa passe

Montre nous ton code alors.

[arnolem]

j'essaye de lire une clé de registre afin de voir si elle existe, si elle n'existe pas, je demande le mot de passe par un input que je crypte :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim key As Microsoft.Win32.RegistryKey
        Try
            key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software\\monsoft")
            Dim strPass As String = CType(key.GetValue("Password"), String)
        Catch
                    Dim cryptPassword As String = GetSHA512(InputBox("PASSWORD :", "", ""))
            MsgBox(cryptPassword)
        End Try

le code suivant ne plante pas :

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.LocalMachine.OpenSubKey("Software\\monsoft")
        Dim strPass As String = CType(key.GetValue("Password"), String)
 
Dim cryptPassword As String = GetSHA512(InputBox("PASSWORD :", "", ""))
        MsgBox(cryptPassword)

[graphicsxp]

L'exception est généree depuis quelle ligne?

[arnolem]

ben ya aucune info,
sinon si c'est le problème de géré les truc dans le catch, il n'y a pas moyen de faire la mem chose avec un if en vérifiant si la clé existe.
Par contre je ne sait pas vérifier si une clé existe

[graphicsxp]

je ne sait pas vérifier si une clé existe

Ben si OpenSubKey renvoie nothing, la clé n'existe pas

[arnolem]

oki, ben en fait, j'ai eu un problème similaire avec cette commande :

Code :

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

1
2
 
Dim pass As String = GetSHA512(TxtPassword.Text)

[arnolem]

pour lenothing, j'ai fait :

Code :

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

1
2
3
4
5
Dim keyReadPassword As Microsoft.Win32.RegistryKey
        keyReadPassword = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software\\monsoft")
        If (keyReadPassword = Nothing) Then
            'traitement
        End If

mais c'est pas bon
keyReadPassword = Nothing)

[arnolem]

c'est bon, j'ai résolu mais problème sans réellement comprendre pour quelle raison sa passais pas avant.
Mais j'ai toujours le problème avec la syntaxe qui verifie si la clé existe.