[VB.net] Base de registreRésolu

Question

Bonjour,
 je dois faire un module qui "joue" avec la base de registre.  J'ai trouv&#233; un exemple qui marche bien avec les registre qui sont des string (Type "REG_SZ"), mais si je veux la valeur d'une cl&#233; de type "REG_DWORD" cela ne fonctionne pas...



Public 
Function GetString(
ByVal hKey 
As 
String, 
ByVal strPath 
As 
String, 
ByVal keyName 
As 
String)   

   Dim val 
As 
Object
   Try
      Dim pRegKey 
As RegistryKey

      Select 
Case hKey   'Pour savoir ou la cl&#233; est

         Case "HKEY_CLASSES_ROOT" : pRegKey = Registry.ClassesRoot

         Case "HKEY_CURRENT_CONFIG" : pRegKey = Registry.CurrentConfig

         Case "HKEY_CURRENT_USER" : pRegKey = Registry.CurrentUser

         Case "HKEY_DYN_DATA" : pRegKey = Registry.DynData

         Case "HKEY_LOCAL_MACHINE" : pRegKey = Registry.LocalMachine

         Case "HKEY_PERFORMANCE_DATA" : pRegKey = Registry.PerformanceData

         Case "HKEY_USERS" : pRegKey = Registry.Users

      End 
Select
      pRegKey = pRegKey.OpenSubKey(strPath)   
'Ouvrir la cl&#233;
      val = pRegKey.GetValue(keyName)  'Lire la valeur

   Catch ex 
As Exception
      val = ""

   End 
Try
   Return val

End 
Function

Donc si quelqu'un peut m'aider pour cr&#233;er une fonction qui fonctionnerais avec le type DWORD sa serait vraiment appr&#233;ci&#233;!!

Bonnne journ&#233;e!!

cs_Willi · Accepted Answer

Salut,
Ceci devrait fonctionner



Public 
Function GetDword(
ByVal hKey 
As 
String, 
ByVal strPath 
As 
String, 
ByVal keyName 
As 
String) 
As UInt32

   Dim val 
As UInt32

   Try

      Dim pRegKey 
As RegistryKey

      Select 
Case hKey 
'Pour savoir ou la cl&#233; est
         Case "HKEY_CLASSES_ROOT" : pRegKey = Registry.ClassesRoot

         Case "HKEY_CURRENT_CONFIG" : pRegKey = Registry.CurrentConfig

         Case "HKEY_CURRENT_USER" : pRegKey = Registry.CurrentUser

         Case "HKEY_DYN_DATA" : pRegKey = Registry.DynData

         Case "HKEY_LOCAL_MACHINE" : pRegKey = Registry.LocalMachine

         Case "HKEY_PERFORMANCE_DATA" : pRegKey = Registry.PerformanceData

         Case "HKEY_USERS" : pRegKey = Registry.Users

      End 
Select

      'pRegKey = pRegKey.OpenSubKey(strPath) 'Ouvrir la cl&#233;
      val = Convert.ToUInt32(pRegKey.OpenSubKey(strPath).GetValue(keyName)) 
'Lire la valeur

   Catch ex 
As Exception
      val = Convert.ToUInt32(0)

   End 
Try

   Return val

End 
Function

forum_ma · Answer

Merci beaucoup, sa marche bien!!

Mais la je dois faire la fonction qui l'ajoute au registry, je n'ai pas encore essay&#233;, mais je vois d&#233;ja un probleme que je vais avoir : Comment je vais faire pour dire si c'est un decimal ou un hexadecimal??

Merci!!

forum_ma · Answer

Finalement j'ai trouv&#233; un tutoriel sur un autre site, avec un module(en faite une classe) qui fait exactement ce que je cherchais a faire voici le liens :
http://www.codeproject.com/Purgatory/cregistry.asp

Merci bien Willi pour ton aide!!

cs_Willi · Answer

Pas mal ce petit tuto :)
Bonne continuation

[VB.net] Base de registre

4 réponses

Discussions similaires