Discussion :

[Paounet]

Je n'arrive pas à lire la cle"AutoRestartShell" de

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon

J'utilise la fonction

Code :

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

1
2
3
4
5
6
7
Private Function Lecture_Reg(Clef As String, Sous_clef As String) As String 
    If My.Computer.Registry.GetValue(Clef, Sous_clef, Nothing) Is Nothing Then                      
        ' test si la clef Clef & "\" & Sous_Clef existe
        MsgBox("La clé " & Sous_clef & " de " & Chr(13) & Clef & "  n'existe pas")
    End If
    Return My.Computer.Registry.GetValue(Clef, Sous_clef, Nothing) 
End Function

J'obtiens toujours la valeur nothing (=0) bien que AutoRestartShell contienne 1..
Je suis en VB.net 2012.. Merci de votre réponse

[_Ez3kiel]

Attention, 0 =/= Nothing.

Dans ton cas Nothing te sort la msgbox, mais zero ne devrais pas te la sortir. Si tu as 0, c'est que c'est la clé qu'il a récupéré, sinon ça devrait peut-être être la valeur par défaut que tu as choisi en paramètre (Nothing).

On peut voir le code qui utilise la fonction lecture_reg et les paramètres que tu lui passes ?


EDIT: Pour ma part, je récupère 1 ...

Code :

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

 MsgBox(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoRestartShell", Nothing))

[tomlev]

J'ai fait le test et j'obtiens la même chose. En fait, c'est parce que quand un programme 32 bits essaie d'accéder à HKEY_LOCAL_MACHINE\SOFTWARE sur un OS 64bits, toutes les requêtes sont redirigées vers HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node. Si ton programme était en 64bits, ça fonctionnerait sans problème.

La solution est d'indiquer explicitement que tu veux accéder à la vue 64bits :

Code :

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

1
2
3
4
5
Using hklm = Microsoft.Win32.RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
    Using winLogon = hklm.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon")
        Dim value = winLogon.GetValue("AutoRestartShell")
    End Using
End Using