' creer une form avec 3 boutons : lire ecrire supprimer et un text : text1 'PLUS SIMPLE, JE SAIS PAS SI Y'A. Private Sub Lire_Click() 'permet de lire une valeur dans la base de registre Set WshShell = CreateObject("Wscript.Shell") Text1.Text = WshShell.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay") 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur 'Remarque :HKEY_CURRENT_USER peut être remplacé par HKCU 'On peut mettre n'importe quelle branche comme ça End Sub Private Sub Ecrire_Click() 'Permet d'écrire dans la base de registre tout type de valeur (valeur chaîne, dword, binaire) ou de créer une nouvelle branche .... Set WshShell = CreateObject("Wscript.Shell") WshShell.RegWrite "HKCU\essaiVisualBasic\Nom d'un paramètre", "Valeur de celui-ci" WshShell.RegWrite "HKCU\essaiVisualBasic\Créer Clé 1 Dword", 1, "REG_DWORD" WshShell.RegWrite "HKCU\essaiVisualBasic\Créer Clé 2 binaire", 1, "REG_BINARY" 'Le 1, c'est la valeur de la valeur binaire (!) End Sub Private Sub Supprimer_Click() 'Permet d'effacer dans la base de registre tout type de valeur (valeur chaîne, dword, binaire) Set WshShell = CreateObject("Wscript.Shell") WshShell.RegDelete "HKCU\essaiVisualBasic\NOM DU PARAMETRE" ' supprime le paramètre WshShell.RegDelete "HKCU\essaiVisualBasic\NOM D'UNE CLE" 'Supprime une clé End Sub 'J'espère que ce code te servira. Salut !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question