Ce.plusplus
Messages postés47Date d'inscriptionjeudi 25 septembre 2003StatutMembreDernière intervention14 septembre 2012
-
6 juin 2008 à 22:10
cs_akim77
Messages postés73Date d'inscriptionlundi 12 avril 2004StatutMembreDernière intervention17 septembre 2008
-
7 juin 2008 à 00:00
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
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
A voir également:
Avoir les sous-clefs d'une clef de la base de registre