base de registre copier dans textbox valeur REG_BINARY

Question

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

TheSaib · Answer

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

Base de registre copier dans textbox valeur REG_BINARY

1 réponse

Discussions similaires