Lire, écrire, effacer dans la base de registre le plus simplement du monde !

Soyez le premier à donner votre avis sur cette source.

Vue 22 673 fois - Téléchargée 1 200 fois

Description

C'est avec un ActiveX, c'est très simple, rapide, complet.

Source / Exemple :


'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 vous servira. Salut !
'SPR

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
96
Date d'inscription
mardi 18 août 2009
Statut
Membre
Dernière intervention
14 août 2013

Super source facile merci
Messages postés
97
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
7 mars 2011

Bonne source simple :P
Messages postés
60
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
7 octobre 2007

Regardes mieux Gsyltc c'est ecrit dans la source:

WshShell.RegWrite "HKCU\essaiVisualBasic\Créer Clé 2 binaire", 1, "REG_BINARY" 'Le 1, c'est la valeur de la valeur binaire (!)
Messages postés
6
Date d'inscription
lundi 9 juillet 2007
Statut
Membre
Dernière intervention
4 février 2008

Salut, J'aurais une question à 2 balles !!!

quelqu'un sait comment on peux rentrer une Chaîne (Je parle pas de string) Binaire ?

Du genre :

[HKLM\Bidule]
"Valeur"=Hex:AA, BB, CC, DD, EE, FF \
00, 11, 22, 33, 44, 55 \
66, 77, 88, 99 ,00 ,AA ETC.........

Car j'ai beau chercher, et tenter plein de trucs mais il m'envoie ceuillir des fraises à chaques fois !!!!

Merci
Messages postés
5
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
30 novembre 2005

Tout simplement GENIAL
Simplicité 10/10
Afficher les 33 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.