base de registre copier dans textbox valeur REG_BINARY

Salut à tous les maîtres du VB.

Je voudrais copier une valeur REG_BINARY de la Base de Registre dans une textbox.


Merci d'avance

rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize)
If (rc <> ERROR_SUCCESS) Then Goto GetKeyError



If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then
tmpVal = Left(tmpVal, KeyValSize - 1)
Else
tmpVal = Left(tmpVal, KeyValSize)
End If



Select Case KeyValType
Case REG_DWORD


For i = Len(tmpVal) To 1 Step -1
KeyVal = KeyVal + Format(Hex(Asc(Mid(tmpVal, i, 1))), "00")
Next
KeyVal = Format$("&h" + KeyVal)
Case REG_SZ
KeyVal = tmpVal

Case
REG_DWORD
For i = Len(tmpVal) To
1 Step -1 '
Convert Each Bit
KeyVal =
KeyVal + Format(Hex(Asc(Mid(tmpVal, i,
1))), "00") ' Build Value Char.
By Char.
Next
KeyVal =
Format$("&h" + KeyVal)
' Convert Double Word To String

Case REG_SZ
KeyVal = tmpVal

Case REG_BINARY
KeyVal =
tmpVal


End Select


C'est pas parfait mais tu devrais pouvoir t'en sortir avec ce bout de code.




::|The S@ib|::
MVP C#.NET