modifier une clé de la base de registre avec un exécutable

modifier une clé de la base de registre avec un exécutable - Windows & Software

Marsh Posté le 30-03-2002 à 20:44:50    

bonjour
 
j'aurai besoin de modifier une clé de la base de registre au lancement de l'ordinateur (pour restaurer une config d'un logiciel) quelqu'un à une solution ??
 
merci

Reply

Marsh Posté le 30-03-2002 à 20:44:50   

Reply

Marsh Posté le 30-03-2002 à 20:48:42    

Un fichier .reg lancé au démarrage de l'ordinateur en ajoutant la ligne de commande correspondante "regedit -s nom_du_fichier.reg" à la clé HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

Reply

Marsh Posté le 30-03-2002 à 21:01:21    

Oui c'est une solution
mais y aurait-il une solution qui ne mette pas en évidence la clé à implanté ?
un exécutable par exemple ?

Reply

Marsh Posté le 30-03-2002 à 21:04:07    

Ok pour rendre la modification plus "discrète" tu peux écrire un petit programme en VB ou en C qui utilisera les fonctions de l'API Win32 afin de modifier ladite clé.
 
Un lien vers la liste des appels liés à la base de registre :
http://msdn.microsoft.com/library/ [...] i_59mb.asp

Reply

Marsh Posté le 30-03-2002 à 21:09:32    

Gloups !
 
Je suis même pas sur d'avoir VB et j'ai jamais programmé en VB mais je vais quand même regarder (c'est pas gagné...)

Reply

Marsh Posté le 30-03-2002 à 21:10:11    

Un bout de code VB permettant de manipuler la base de registre récupéré sur le MSDN il y a un moment...
 
A partir de la ce devrait être assez simple.
 

Code :
  1. Option Explicit
  3. ' Reg Key Security Options...
  4. Global Const KEY_ALL_ACCESS = &H2003F
  5. Global Const REG_OPTION_NON_VOLATILE = 0
  7. ' Reg Key ROOT Types...
  8. Global Const HKEY_CURRENT_USER = &H80000001
  9. Global Const HKEY_LOCAL_MACHINE = &H80000002
  10. Global Const ERROR_SUCCESS = 0
  11. Global Const REG_SZ = 1                         ' Unicode nul terminated string
  12. Global Const REG_DWORD = 4                      ' 32-bit number
  14. Declare Function RegCreateKeyEx Lib "advapi32" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long
  15. Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
  16. Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
  17. Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
  18. Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
  19. Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
  22. Public Function GetKeyValue( _
  23.                                 KeyRoot As Long, _
  24.                                 KeyName As String, _
  25.                                 SubKeyRef As String, _
  26.                                 ByRef KeyVal As String _
  27.                                 ) As Boolean
  28.         Dim i As Long                                           ' Loop Counter
  29.         Dim rc As Long                                          ' Return Code
  30.         Dim hKey As Long                                        ' Handle To An Open Registry Key
  31.         Dim hDepth As Long                                      '
  32.         Dim KeyValType As Long                                  ' Data Type Of A Registry Key
  33.         Dim tmpVal As String                                    ' Tempory Storage For A Registry Key Value
  34.         Dim KeyValSize As Long                                  ' Size Of Registry Key Variable
  35.         '------------------------------------------------------------
  36.         ' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...}
  37.         '------------------------------------------------------------
  38.         rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key
  39.        
  41.         If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError          ' Handle Error...
  42.        
  44.         tmpVal = String$(1024, 0)                             ' Allocate Variable Space
  45.         KeyValSize = 1024                                       ' Mark Variable Size
  46.        
  48.         '------------------------------------------------------------
  49.         ' Retrieve Registry Key Value...
  50.         '------------------------------------------------------------
  51.         rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize)    ' Get/Create Key Value
  52.                                                
  54.         If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError          ' Handle Errors
  55.        
  57.         If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then           ' Win95 Adds Null Terminated String...
  58.                 tmpVal = Left(tmpVal, KeyValSize - 1)               ' Null Found, Extract From String
  59.         Else                                                    ' WinNT Does NOT Null Terminate String...
  60.                 tmpVal = Left(tmpVal, KeyValSize)                   ' Null Not Found, Extract String Only
  61.         End If
  62.         '------------------------------------------------------------
  63.         ' Determine Key Value Type For Conversion...
  64.         '------------------------------------------------------------
  65.         Select Case KeyValType                                  ' Search Data Types...
  66.         Case REG_SZ                                             ' String Registry Key Data Type
  67.                 KeyVal = tmpVal                                     ' Copy String Value
  68.         Case REG_DWORD                                          ' Double Word Registry Key Data Type
  69.                 For i = Len(tmpVal) To 1 Step -1                    ' Convert Each Bit
  70.                         KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1)))   ' Build Value Char. By Char.
  71.                 Next
  72.                 KeyVal = Format$("&h" + KeyVal)                     ' Convert Double Word To String
  73.         End Select
  74.        
  76.         GetKeyValue = True                                      ' Return Success
  77.         rc = RegCloseKey(hKey)                                  ' Close Registry Key
  78.         Exit Function                                           ' Exit
  79.        
  81. GetKeyError:    ' Cleanup After An Error Has Occured...
  82.         KeyVal = ""                                             ' Set Return Val To Empty String
  83.         GetKeyValue = False                                     ' Return Failure
  84.         rc = RegCloseKey(hKey)                                  ' Close Registry Key
  85. End Function
  88. Public Function CreateNewKey( _
  89.                                 sNewKeyName As String, _
  90.                                 lPredefinedKey As Long _
  91.                                 ) As Boolean
  92.     Dim hNewKey As Long
  93.     Dim lRetVal As Long
  94.    
  95.     lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, _
  96.                 vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, _
  97.                 0&, hNewKey, lRetVal)
  98.     If (lRetVal <> ERROR_SUCCESS) Then GoTo CreateKeyError
  99.     RegCloseKey (hNewKey)
  100.     CreateNewKey = True
  101.     Exit Function
  103. CreateKeyError:
  104.     CreateNewKey = False
  105.     Exit Function
  106. End Function
  109. Public Function SetKeyValue( _
  110.                                 sKeyName As String, _
  111.                                 lPredefinedKey As Long, _
  112.                                 sValueName As String, _
  113.                                 vValueSetting As Variant, _
  114.                                 lValueType As Long _
  115.                                 ) As Boolean
  116.     Dim lRetVal As Long
  117.     Dim hKey As Long
  118.    
  119.     lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
  120.     If (lRetVal <> ERROR_SUCCESS) Then GoTo SetKeyError
  121.     lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
  122.     If (lRetVal <> ERROR_SUCCESS) Then GoTo SetKeyError
  123.     RegCloseKey (hKey)
  124.     SetKeyValue = True
  125.     Exit Function
  126.    
  127. SetKeyError:
  128.     SetKeyValue = False
  129.     Exit Function
  130. End Function
  133. Private Function SetValueEx( _
  134.                                 ByVal hKey As Long, _
  135.                                 sValueName As String, _
  136.                                 lType As Long, _
  137.                                 vValue As Variant _
  138.                                 ) As Long
  139.     Dim lValue As Long
  140.     Dim sValue As String
  141.    
  142.     Select Case lType
  143.         Case REG_SZ
  144.             sValue = vValue & Chr$(0)
  145.             SetValueEx = RegSetValueExString(hKey, sValueName, 0&, lType, sValue, Len(sValue))
  146.         Case REG_DWORD
  147.             lValue = vValue
  148.             SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, lType, lValue, 4)
  149.     End Select
  150. End Function

 

[jfdsdjhfuetppo]--Message édité par Guru--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 30-03-2002 à 21:15:31    

se serai sympa guru
de mon coté j'ai trouvé VB5 mais je m'en suis jamais trop servi, mais il n'y a plus que cela j'y arriverai...

Reply

Marsh Posté le 30-03-2002 à 21:17:10    

Guru sans vouloir abuser tu peux me donner 2 mots d'explication sur le listing SVP

Reply

Marsh Posté le 30-03-2002 à 21:36:50    

Ce bout de code contient des déclarations ainsi que 3 fonctions utilisables (celles déclarées Public). Dans le cas qui t'interesse, fixer la valeur d'une clé existante, c'est la fonction SetKeyValue que tu vas utiliser. Les paramètres a passer sont :
- le nom de la clé : il s'agit du chemin complet jusqu'a la valeur par exemple Software\Microsoft\Windows\CurrentVersion\Run
- l'identifiant de la ruche dans laquelle la valeur se trouve par exemple HKEY_LOCAL_MACHINE
- le nom de la valeur par exemple MonProg
- la valeur de cette clé par exemple monprog.exe
- le type de valeur il s'agit soit de REG_SZ pour une chaine ou REG_DWORD pour un nombre sur 32 bits par exemple REG_SZ
 
L'exemple ci dessus créera une clé "MonProg" ayant pour valeur "monprog.exe" sous la clé HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

 

[jfdsdjhfuetppo]--Message édité par Guru--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 30-03-2002 à 21:41:15    

Ok je déconnect, je regarde tranquille demain et je te tiens au courant
 
Merci

Reply

Marsh Posté le 30-03-2002 à 21:41:15   

Reply

Marsh Posté le 30-03-2002 à 21:45:22    

De rien bon courage...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed