Voilà mon soucis :
je cherche à faire des actions sur le registre mais avec une ou plusieurs clés.
Exemple avec cette fonction que j'ai trouvé sur la toile je peux sans soucis recherché une clé mais pas plusieurs à la fois.
Je peux coller par exemple coller cette clé :
Code : Tout sélectionner
HKEY_CURRENT_USER\Volatile EnvironmentUne idée ou autres fonctions qui pourrait travailler en masse ?
Code : Tout sélectionner
HKEY_CURRENT_USER\Volatile Environment
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SystemInformation
► Afficher le texte
Code : Tout sélectionner
#include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 615, 215, 192, 124)
Global $Edit1 = GUICtrlCreateEdit("", 32, 16, 545, 121)
Global $Button1 = GUICtrlCreateButton("Button1", 136, 160, 321, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
local $var = GUICtrlRead($Edit1)
local $aInstallDirs = _RegSearch($var, "*", 2, True)
local $aInstallDirData = _RegGetDataArray($aInstallDirs)
_ArrayDisplay($aInstallDirData)
EndSwitch
WEnd
Func _RegGetDataArray($aVals)
Local $iDelim, $aRET[$aVals[0] + 1][3] = [[$aVals[0], "Nom de la valeur", "Données de la valeur"]]
For $i = 1 To $aVals[0]
$iDelim = StringInStr($aVals[$i], "\", 0, -1)
$aRET[$i][0] = StringLeft($aVals[$i], $iDelim - 1)
$aRET[$i][1] = StringMid($aVals[$i], $iDelim + 1)
$aRET[$i][2] = RegRead($aRET[$i][0], $aRET[$i][1])
Next
Return $aRET
EndFunc
Func _RegSearch($sStartKey, $sSearchVal, $iType = 0x07, $fArray = False)
Local $v, $sVal, $k, $sKey, $sFound = "", $sFoundSub = "", $avFound[1] = [0]
If StringRight($sStartKey, 1) = "\" Then $sStartKey = StringTrimRight($sStartKey, 1)
If Not BitAND($iType, 0x07) Then Return SetError(1, 0, 0); No returns selected
Local $fKeys = BitAND($iType, 0x1), $fValue = BitAND($iType, 0x2), $fData = BitAND($iType, 0x4), $fRegExp = BitAND($iType, 0x8)
If (Not $fRegExp) And ($sSearchVal == "*") Then
$iType += 0x8
$fRegExp = 0x8
$sSearchVal = "."
EndIf
If ($fValue Or $fData) Then
$v = 10
While 1
$sVal = RegEnumVal($sStartKey, $v)
If @error = 0 Then
If $fValue Then
If $fRegExp Then
If StringRegExp($sVal, $sSearchVal, 0) Then $sFound &= $sStartKey & "\" & $sVal & @LF
Else
If StringInStr($sVal, $sSearchVal) Then $sFound &= $sStartKey & "\" & $sVal & @LF
EndIf
EndIf
If $fData Then
$readval = RegRead($sStartKey, $sVal)
If $fRegExp Then
If StringRegExp($readval, $sSearchVal, 0) Then $sFound &= $sStartKey & "\" & $sVal & " = " & $readval & @LF
Else
If StringInStr($readval, $sSearchVal) Then $sFound &= $sStartKey & "\" & $sVal & " = " & $readval & @LF
EndIf
EndIf
$v += 1
Else
ExitLoop
EndIf
WEnd
EndIf
$k = 1
While 1
$sKey = RegEnumKey($sStartKey, $k)
If @error = 0 Then
If $fKeys Then
If $fRegExp Then
If StringRegExp($sKey, $sSearchVal, 0) Then $sFound &= $sStartKey & "\" & $sKey & "\" & @LF
Else
If StringInStr($sKey, $sSearchVal) Then $sFound &= $sStartKey & "\" & $sKey & "\" & @LF
EndIf
EndIf
$sFoundSub = _RegSearch($sStartKey & "\" & $sKey, $sSearchVal, $iType, False)
If $sFoundSub <> "" Then $sFound &= $sFoundSub & @LF
Else
ExitLoop
EndIf
$k += 1
WEnd
If StringRight($sFound, 1) = @LF Then $sFound = StringTrimRight($sFound, 1)
If $fArray Then
If StringStripWS($sFound, 8) <> "" Then $avFound = StringSplit($sFound, @LF)
Return $avFound
Else
Return $sFound
EndIf
EndFunc
?)
