Bonjour, mon pb est dans le titre:
en détail, je voudrai pouvoir récupérer les adresse msn enregistrer dans le registre, elles sont malheureseument dans des clefs à cet endroit :
HKEY_CURRENT_USER\Software\Microsoft\IdentityCRL\UserExtendedProperties
chez moi il y a 2 adresses qui sont enregistrées donc dans 2 clefs:
ce.plusplus@.... et voix.humaine@...
j'ai décortiqué un code que j'ai trouvé sur le site, mais il me donne toujours une chaine vide
j'en peux plus
vous pouvez m'aider ?
voici mon code actuel, qui me donne mal au crane maintenant :$
Private Sub Form_Load()
Dim hKey As Long
Dim lpPath As String
Dim i As Long
PrimKey(0) = HKEY_CLASSES_ROOT
PrimKey(1) = HKEY_CURRENT_USER
PrimKey(2) = HKEY_LOCAL_MACHINE
PrimKey(3) = HKEY_USERS
PrimKey(4) = HKEY_PERFORMANCE_DATA
PrimKey(5) = HKEY_CURRENT_CONFIG
PrimKey(6) = HKEY_DYN_DATA
PrimKeyName(0) = "HKEY_CLASSES_ROOT"
PrimKeyName(1) = "HKEY_CURRENT_USER"
PrimKeyName(2) = "HKEY_LOCAL_MACHINE"
PrimKeyName(3) = "HKEY_USERS"
PrimKeyName(4) = "HKEY_PERFORMANCE_DATA"
PrimKeyName(5) = "HKEY_CURRENT_CONFIG"
PrimKeyName(6) = "HKEY_DYN_DATA"
lpPath = "HKEY_CURRENT_USER\Software\Microsoft\IdentityCRL\UserExtendedProperties"
hKey = GethKey("UserExtendedProperties", lpPath)
Do
dumString = Space(1024)
If RegEnumKey(hKey, i, ByVal dumString, 1024) Then Exit Do
Debug.Print dumString
i = i + 1
Loop
RegCloseKey hKey
End Sub
Private Function GethkeyFromName(ByVal hKeyName As String) As Long
Dim i As Long
For i = 0 To 6
If hKeyName = PrimKeyName(i) Then
GethkeyFromName = PrimKey(i)
Exit Function
End If
Next
End Function
Private Function GethKey(clef As String, lpPath As String)
a = InStr(1, lpPath, "\")
If a Then
K = Left$(lpPath, a - 1)
hKey = GethkeyFromName(K)
End If
lpPath = Right$(lpPath, Len(lpPath) - a)
RegOpenKey hKey, lpPath, hKey
GethKey = hKey
End Function
merci d'avance
