Base de registre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 647 fois - Téléchargée 49 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
dparize Messages postés 6 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 22 décembre 2014
15 juil. 2004 à 11:09
Idem que Zmania et Nargzul

Merci d'avance
zmania Messages postés 22 Date d'inscription lundi 21 octobre 2002 Statut Membre Dernière intervention 13 septembre 2004
6 août 2003 à 09:02
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à !
Nargzul Messages postés 438 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 26 juillet 2007 3
16 juil. 2003 à 14:40
je cherche koment regarder quelles clefs sont présente dans un dossier, sans api, avec ce genre de truc, je fais comment?
Noiretulipe Messages postés 164 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 13 juillet 2008
14 avril 2003 à 18:09
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 !
cs_thitoune Messages postés 124 Date d'inscription mardi 19 février 2002 Statut Membre Dernière intervention 7 mars 2004 2
25 févr. 2003 à 22:59
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.