Gestion de la base de registre presque complete

Soyez le premier à donner votre avis sur cette source.

Vue 15 333 fois - Téléchargée 2 363 fois

Description

Salut a tous,

Bon je sais il y en a deja plusieurs, mais je pense que celle-ci vaut la peine d'etre vue.

J'ai mis en exemple d'utilisation un petit RegEdit permettant d'explorer et editer la bdr,
mais juste a titre d'exemple, donc ne jugez pas cette partie du code mais plutot le module ModReg

Cette source est inspiree de pas mal de sources trouvees sur le net afin d'obtenir la meilleur gestion possible.
Pour la partie explorateur, elle est inpiree de la source de EbArtSoft

Merci d'avance pour vos commentaire

@+

Source / Exemple :


'                           Liste des fonctions

'                           Ecriture de valeur
ModReg.EcrireRegString
ModReg.EcrireRegDword
ModReg.EcrireRegBinaire
ModReg.EcrireExpand
ModReg.EcrireRegMultiSz
ModReg.EcrireRegValeur  'ecrit la valeur avec un type specifie

'toutes les donnees a ecrire doivent etre en string,
'exemple pour une valeur binaire, 

Chemin = "HKEY_CURRENT_USER\Software\Ma cle"
ModReg.EcrireRegBinaire Chemin,"Ma valeur", "01 FF 84 00"

'exemple pour une valeur dword, 
ModReg.EcrireRegDword Chemin,"Ma valeur", "1"

'                           Lecture de valeur

ModReg.LireRegChaine
ModReg.LireRegDword
ModReg.LireRegBinaire
ModReg.LireRegExpand
ModReg.LireChaineMultiple 
ModReg.LireRegValeur lit la valeur et renvoi le type
' toutes les donnees sont revoyees en string

ModReg.CleExist
ModReg.ValueExists
ModReg.ContientSousCles
ModReg.ImportRegFile
ModReg.SaveRegTofile
ModReg.RegCreerCle
ModReg.RegSupprimerCle
ModReg.KillValue

' Oup's j'ai oublie l'enumeration..

'Enumeration de valeurs
ModReg.EnumererValeur ' renvoi 3 tableaux + le nombre de valeurs et la date de derniere acces en ecriture sur la cle
'tableau 1 le noms des valeurs
'tableau 2 les donnee
'tableau 3 le type de valeur

Exemple:
Dim chemin as string
Dim Valeurs() as string
Dim Donnees() as string
Dim ValTypes() as string
Dim LastAcces as string
Dim Count as long

Count = ModReg.EnumererValeur(Chemin, Valeurs(), Donnees(), ValTypes(), LastAccess)

'Enumeration de cle
ModReg.EnumererCle 'renvoi le nombre de sous-cle, + renvoi un tableau pour contenant les sous-cle, + un tableau indiquant pour chaque sous-cles, si elle contient aussi des sous cle
Exemple

Dim Chemin as string
Dim SousCles() as String
Dim CleContientSouscles() as Boolean
Dim Count a Long

Count = ModReg.EnumererCle(Chemin, SousCles(), CleContientSousCles())

Conclusion :


Remarque,

pour lire et ecrire des valeurs du type:
REG_NONE
REG_BINARY_SIMPLE
REG_RESOURCE_LIST
REG_FULL_RESOURCE_DESCRIPTOR
REG_RESOURCE_REQUIREMENTS_LIST
utilisez la fonction EcrireRegBinaire ou LireRegBinaire et mentione le type de cle

Exemple pour une valeur REG_RESOURCE_LIST:
ModReg.EcrireRegBinaire(Chemin,"Ma valeur", "01 FF 84 00 01 FF 84 00 01 FF 84 00", REG_BINARY_RESOURCE_LIST)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Très beau code ! Ressemblant à Regedit ... 10/10
Messages postés
1
Date d'inscription
mercredi 28 mai 2008
Statut
Membre
Dernière intervention
21 octobre 2008

Tres bonne qualité, assurance de pas de plantage - Nickel
Messages postés
26
Date d'inscription
mercredi 24 août 2005
Statut
Membre
Dernière intervention
26 décembre 2007

Bonjour,
J'ai probleme d'ecriture avec cette fonction

ModReg.EcrireRegString "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "Application", "az"

Avec celle-la j'ai pas de probleme :ModReg.EcrireRegDword

Merci
Messages postés
517
Date d'inscription
samedi 3 février 2001
Statut
Modérateur
Dernière intervention
24 octobre 2006
1
Très bon code ! Très ressemblant à Regedit aussi :) !
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
4
ah ok, je savais pas si tu voulais faire un genre de tutorial avec toutes les commandes de la BDR ou un programme utra complet
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.