Discussion :

[patricktoulon]

Bonjour a tous
je fait une recherche dans la base de registre pour trouver une cle j'ai reussi a la trouver mais c'est pas jolie et en plus selon les version de windows
la clé recherchée peut non seulement une souscle mais aussi une soussousclé

il y a certainement le moyen de coder ca mais en boucle récursive la je plante je ne suis pas le plus fort dans ce domaine
pour le moment j'ai fait ceci et je reussi parceque la cle est une sousclé mais si l'arborescence est plus longue ca risque de planter de sur meme!!!

et par la suite je voudrais récupérer 2 variables dans les valeur dword
alors voila ce que j'ai gribouillé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
'POUR INFO :
'HKEY_CLASSES_ROOT     = &H80000000
'HKEY_CURRENT_USER = &H80000001
'HKEY_LOCAL_MACHINE = &H80000002
'HKEY_USERS = &H80000003
'HKEY_CURRENT_CONFIG = &H80000005
Dim cherche
Sub test()
cherche = True
CheminCle = "System\CurrentControlSet\Control\VIDEO\"
cherchecle &H80000005, CheminCle
End Sub
Function cherchecle(base, CheminCle)
 
Set BDR = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
'on enumère nos sous clé, et on affecte à une variable SousCles
BDR.EnumKey base, CheminCle, souscles
'on recupere la chaine de chaque sous clé.
For Each souscle In souscles
     If cherche = True Then cherchesoucle base, CheminCle & souscle, cherche
Next
End Function
Function cherchesoucle(base, CheminCle, cherche)
Set BDR = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
BDR.EnumKey base, CheminCle, souscles
'on recupere la chaine de chaque sous clé.
For Each souscle In souscles
   ' MsgBox "ttt" & souscle
    If souscle = "0000" Then cherche = False: lire (CheminCle & "\" & souscle): Exit For
Next
End Function
Sub lire(cle)
MsgBox "HKEY_CURRENT_CONFIG" & "\" & cle
'Set Sh = CreateObject("WScript.Shell")
'MsgBox Sh.RegRead("HKEY_CURRENT_CONFIG" & "\" & cle)
End Sub

[Kimy_Ire]

Bonjour patrick,

J'avais fait un truc il y a pas mal de temps à peu près dans le même esprit.
J'ai réadapté pour toi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim cherche
 
Sub test()
 
cherche = "TSDDD"
CheminCle = "SYSTEM\CurrentControlSet"
cherchecle &H80000005, CheminCle, ""
 
End Sub
 
Function cherchecle(base, CheminCle, savesouscle)
 
Set BDR = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
 
BDR.EnumKey base, CheminCle, souscles
 
If Not IsNull(souscles) Then
    If savesouscle <> cherche Then
        For Each souscle In souscles
            cherchecle base, CheminCle & "\" & souscle, souscle
 
        Next
    Else
        lire (CheminCle & "\" & souscle)
    End If
Else
    If savesouscle = cherche Then lire (CheminCle & "\" & souscle)
End If
 
End Function
 
Sub lire(cle)
 
MsgBox "HKEY_CURRENT_CONFIG" & "\" & cle
'Set Sh = CreateObject("WScript.Shell")
'MsgBox Sh.RegRead("HKEY_CURRENT_CONFIG" & "\" & cle)
End Sub

C'est ce que tu souhaites, ou j'ai rien compris ?

Cordialement,
Kimy

[patricktoulon]

Bonjour kimi
a vrai dire j'ai rien compris a ce que tu a essayé de faire
en tout cas le resultat me donne la base plus le chemin initié en debut de sub ca fait rien d'autre

en gros il faudrait demarrer a partir de "HKCU\System\CurrentControlSet\Control\VIDEO\"
et boucler sur les enfant,les petit enfant,les arrieres petits enfant jusqu'a arriver a la clé "0000"
voila une idée?
je n'ai toujours pas compris a quoi sert ton code ????????

[Kimy_Ire]

Bon bah je dois être à côté de la plaque.
Mon code recherche tous les répertoires de l'éditeur de registre (à partir du chemin défini) la valeur placée dans cherche et affiche leur chemin.

Je passe donc la main. Déso.

[patricktoulon]

Bon bah je dois être à côté de la plaque.
Mon code recherche tous les répertoires de l'éditeur de registre (à partir du chemin défini) la valeur placée dans cherche et affiche leur chemin.

Je passe donc la main. Déso.

non! pas du tout il cherche juste les repertoires enfants et non pas tout les repertoire
moi ce que je cherche c'est une boucle récursive qui boucle et sousboucle autant de fois que necessaire pour arriver a l'xxxxx arriere enfant
autrement dis 2 boucle imbriquée devrait suffir

on arrive a faire ca pour lister les fichier d'un disque dur on devrait pouvoir le faire pour ca

[Kimy_Ire]

Hum...
Avec un répertoire comme ceci :

et une recherche comme ceci :

Je trouve bien :

Il y a quelque chose que je ne dois pas comprendre... Désolé.

Kimy