Base de registre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 451 fois - Téléchargée 47 fois

Contenu du snippet

ce code s'adresse aux debutants ,initier et autre pas de mauvais commantaire merci!

créé une nouvelle clé et une valeur super simple!
sur votre feuille mettre 2 boutons commande et un textbox

Source / Exemple :


Private Sub Form_Load()
Dim tx As String
End Sub

Private Sub Command1_Click()
tx = Text1.Text ' la valeur entrer dans la textbox par l'utilisateur va apparaitre dans le registre
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\jackky\Chiffre", tx, "REG_DWORD"

End Sub

Private Sub Command2_Click()
End     'le bouton commande2 c'est le bouton exit
End Sub

Conclusion :


Jespere que cela va vous aider a mieu comprendre comment ecrire dans le registre!

A voir également

Ajouter un commentaire

Commentaires

Messages postés
6
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
22 décembre 2014

Idem que Zmania et Nargzul

Merci d'avance
Messages postés
22
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
13 septembre 2004

ouais. Je cherche aussi une solution pour tester si une clé existe dans la basse de Registre ??? dans la même idée que ce qu'il y a là !
Messages postés
438
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
26 juillet 2007
3
je cherche koment regarder quelles clefs sont présente dans un dossier, sans api, avec ce genre de truc, je fais comment?
Messages postés
165
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
13 juillet 2008

Vi, lol, la déclaration dans la form_load est inutile .... Enfin, pour le reste ( et qui d'ailleur est le plus important ( si, si ... ) c ok !
Messages postés
124
Date d'inscription
mardi 19 février 2002
Statut
Membre
Dernière intervention
7 mars 2004
1
Ton idée est plutot bonne et simple 10/10

Pour info, voici ce que j'ai trouvé dans la doc msdn concernant la lecture :

Set WshShell = Wscript.CreateObject("Wscript.Shell")

WshShell.RegRead("HKCUScriptEngineVal") ' Read from value "Val"
WshShell.RegRead("HKCUScriptEngineKey") ' Read from key "Key"
Afficher les 8 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.