Bonjour à tous,

alors voilà cela fait 3 jours que je m'arrache les cheveux sur ce petit bout de code. Son but est simplement de lire la valeur binaire de la clé "DigitalProductId", mais impossible d'avoir un code fonctionnel. Alors si quelqu'un à la solution je suis preneur.....

Voila mon code

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
 
 
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Integer, ByVal lpSubKey As String, ByRef phkResult As IntPtr) As Integer
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Integer, ByVal lpValueName As String, ByVal lpReserved As Integer, ByRef lpType As Integer, ByRef lpData As Integer, ByRef lpcbData As Integer) As Long
 
[........]
If RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\MICROSOFT\WindowsNT\CurrentVersion", hKey) = ERROR_SUCCESS Then
 
Dim bDigitalProductID As Integer
Dim bProductKey As Integer
Dim ilByte As Long
Dim lDataLen As Long
Dim hKey As Long
lDataLen = 164
 
            If RegQueryValueEx(hKey, "DigitalProductId", 0&, REG_BINARY, bDigitalProductID, lDataLen) = ERROR_SUCCESS Then