Gestion de la base de registre presque complete

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

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.