Discussion :

[jockyboss777]

Bonjour,
J'ai un petit problème de sécurité sur Vista, ne quittez pas se post il parle de VB.
Voila, lorsque l'utilisateur clic sur un bouton il créé une clef registre.
Mais lorsqu'il qu'il clic sur un autre bouton il (l'ordinateur) doit la détruire.
Mais le problème se pose ici je ne peux pas la détruire car il me dit que je dispose peut être pas des droit necéssaire...
J'ai tenté avec "FileIOPermissionAccess" est-ce le bon code a utiliser... sinon en avez-vous un autre .?.
Voici un bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Dim Test As FileIOPermissionAccess = FileIOPermissionAccess.PathDiscovery
        Test = FileIOPermissionAccess.AllAccess
        My.Settings.Menu_No = True
        If My.Settings.Menu_O = True Then
            Dim RegK As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", False) 'ouvre la clé
            RegK.DeleteValue("Bonjour", True)
            RegK.Close() 'ferme la clef
            My.Settings.Menu_O = False
        End If
 
        My.Settings.Menu_O = False

Je sais pas si je suis clair et si je suis au bon endroit pour poster un message pareil.

Cordialement
Jonathan

[Danyel]

C'est une question de droits d'utilisation.
Loggue toi en administrateur.

[jockyboss777]

je suis déjà administrateur de mon ordinateur (c'est ça qui me parait bizzzzzzard.....)

[jockyboss777]

Tous va bien je me suis trompé dans mon code...

Voici le code envoyé (dans mon 1er message)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Test As FileIOPermissionAccess = FileIOPermissionAccess.PathDiscovery
        Test = FileIOPermissionAccess.AllAccess
        My.Settings.Menu_No = True
        If My.Settings.Menu_O = True Then
            Dim RegK As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", False) 'ouvre la clé
            RegK.DeleteValue("Bonjour", True)
            RegK.Close() 'ferme la clef
            My.Settings.Menu_O = False
        End If
 
        My.Settings.Menu_O = False

Et voici la rectification:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Test As FileIOPermissionAccess = FileIOPermissionAccess.PathDiscovery
        Test = FileIOPermissionAccess.AllAccess
        My.Settings.Menu_No = True
        If My.Settings.Menu_O = True Then
            Dim RegK As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", True) 'ouvre la clé
            RegK.DeleteValue("Bonjour", True)
            RegK.Close() 'ferme la clef
            My.Settings.Menu_O = False
        End If
 
        My.Settings.Menu_O = False

1) Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", True) 'ouvre la clé
2) Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", True) 'ouvre la clé

J'ai mis False dans le premier (se qui bloquait l'accés à la cléf)

Je sais je suis bète

Merci a "moi" et a Danyel de m'avoir répondu