ÉCRITURE/LECTURE DANS LA BASE DE REGISTRE

Signaler
Messages postés
553
Date d'inscription
jeudi 28 novembre 2002
Statut
Membre
Dernière intervention
2 octobre 2016
-
Messages postés
2
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/36192-ecriture-lecture-dans-la-base-de-registre

Messages postés
2
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2009

salut a tous ;
comment je puisse afficher le continue de la clé
Messages postés
10
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
15 août 2007

Merci TITANT, c'était pile le code que je recherchais ... simple, clair, efficace!!!
Messages postés
3
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
12 janvier 2007

Oui avec wmi car cela procure en plus la possibilté d'accéder à un registre à distance. Bien sùr c'est valable en VBScript ou Jscript, mais là n'était pas le sujet!

'==========================================================================
' Constantes du registre
'Const HKEY_LOCAL_MACHINE &H80000002
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_USERS = &H80000003

' Nom de la machine à atteindre
strComputer = "."

' Accès au registre par wmi
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\default:StdRegProv")

' Nom de la clé à modifier
strKeyPath = "MaClé"
' Nom de la valeur à modifier
strValue = "MaValeur"
' Valeur à affecter
lngValeur = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath , strValue ,lngValeur
Messages postés
103
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
21 juillet 2008

'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


'@ +
Afficher les 8 commentaires