[VB] lire les cles de la base de registre

merci pour le lien.

C'est la methode que j'utilise actuellement.

Elle permet de lire une cle ......quand on connait la cle !!!

Moi je ne connais pas la cle en entier. Je veux donc parcourir la base de registre pour comparer les cles et m'arreter a celle qui aura la partie de la cle que je connais.

A moins que j'ai mal compris le contenu du lien (lu 2 fois par acquis de conscience), il ne m'apporte rien.

Merci pour les autres idees.

La lecture sequentielle de la base de registre doit bien etre faisable, non ?

et comme certains logiels arrivent a creer des cles avec l'ID utilisateur, je dois bien pouvoir le faire aussi, non ?

Bien,

voilà un exemple assez complet :-)

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Merci des efforts que vous avez fait pour m'aidez.

A force de recherche, j'ai trouve le projet d'un ingenieur qui faisait - entre autres - ce que je recherchait.
Ca m'a pris 3 heures pour l'epurer et n'en garder que l'essentiel.
Du coup ca n'est pas aussi propre que son programme mais c'est nettement plus concis. Je le mets pour le cas ou quelqu'un en aurait besoin.

-----------------------------------------------

Option Explicit

Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hkey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Private Sub Form_Load()
Const VBREG_HKEY_CURRENT_USER As Long = &H80000001
Const SousCle As String = "Software\Microsoft\Protected Storage System Provider"
Const VBREG_KEY_ENUMERATE_SUB_KEYS As Long = &H8
Dim STR_name As String
Dim last_key_open As Long
Dim Resultat As Long
Dim TheGoodOne As String

Resultat = RegOpenKeyEx(VBREG_HKEY_CURRENT_USER, SousCle, 0&, ByVal VBREG_KEY_ENUMERATE_SUB_KEYS, last_key_open)

STR_name = String(513, Chr$(0))
Resultat = RegEnumKey(last_key_open, 0, ByVal STR_name, 512)
TheGoodOne = Left$(STR_name, InStr(1, STR_name, Chr$(0)) - 1)

MsgBox (TheGoodOne)
End
End Sub

--------------------------------

ps: form_load pour l'exemple evidemment ! :)

re ps : le source que tu viens de mettre ne me donne pas ce resultat. Il ne fonctionne que lorsque la cle est complete.

re re ps : ENCORE MERCI DE VOTRE AIDE!