ÉCRITURE/LECTURE DANS LA BASE DE REGISTRE
Utilisateur anonyme
-
22 févr. 2006 à 18:06
g546954 Messages postés 2 Date d'inscription dimanche 20 mai 2007 Statut Membre Dernière intervention 24 juillet 2009 - 3 oct. 2007 à 02:54
g546954 Messages postés 2 Date d'inscription dimanche 20 mai 2007 Statut Membre Dernière intervention 24 juillet 2009 - 3 oct. 2007 à 02:54
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
https://codes-sources.commentcamarche.net/source/36192-ecriture-lecture-dans-la-base-de-registre
3 oct. 2007 à 02:54
comment je puisse afficher le continue de la clé
11 août 2006 à 12:03
24 févr. 2006 à 20:49
'==========================================================================
' 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
24 févr. 2006 à 18:52
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
'@ +
24 févr. 2006 à 06:49
Sinon tu pourrais inclure dans ton code:
- L'imports de Microsoft.Win32.
- Une classe statique.
- La gestion des erreurs.
- L'accès au registre d'une machine distante.
Bon courage.
23 févr. 2006 à 10:57
Je te met 6/10 !
Bonne continuation !
Redman
22 févr. 2006 à 21:12
-Suppression de valeurs, de clé, lecture/écriture autre que de type string STRING
-Enumération des valeurs d'une clés, énumération des sous-clé d'une clé....
voila j'espère que l'ont aura droit à une bonne mise à jour :)
Bonne prog @+
22 févr. 2006 à 18:06
Il est pas mal ton code mais un petit imports Microsoft.Win32 aurait-été plus propre (enfin c'est mon avi perso), Et je trouve qu'une seul fonction pourrais ce faire avec l'option 'Optionnal' (Boolean)
j'ai fait aussi un exemple sur mon site en version 2005 et c'est plus simple que la version 2002/2003 (y a les deux versions)
http://www.troxsa.info/index.php?option=com_content&task=view&id=30&Itemid=2
@+