Bonjour,

Je récupere une valeur de la base de registre windows. Cette valeur est une REG_BINARY.

Dans cette valeur REG_BINARY, je cherche une valeur en binaire que je connais.

En faite je veux chercher un mot :
"h y p e r i o n" : valeur binaire : 68 00 79 00 70 00 65 00 72 00 69 00 6F 00 6E 00
dans cette valeur REG_BINARY= "2AF9835"=hex:01,00,00,00,56,00,00,00,42,00,00,00,63,00,3a,00,5c,00,75,00,73,\
00,65,00,72,00,5c,00,75,00,31,00,31,00,37,00,37,00,34,00,36,00,5c,00,64,00,\
65,00,6d,00,61,00,72,00,72,00,65,00,5c,00,65,00,78,00,63,00,65,00,6c,00,5c,\ 00,65,00,73,00,73,00,65,00,78,00,63,00,6c,00,6e,00,2e,00,78,00,6c,00,6c,00,\
00,00,68,00,79,00,70,00,65,00,72,00,69,00,6f,00,6e,00,20,00,65,00,73,00,73,\
00,62,00,61,00,73,00,65,00,20,00,6f,00,6c,00,61,00,70,00,20,00,73,00,65,00,\
72,00,76,00,65,00,72,00,20,00,64,00,6c,00,6c,00,00,00

(*je l'ai mis en gras ici, car elle s'y trouve bien)

Et c'est la que je bloque, car je ne vois pas comment chercher dans cette valeur REG_BINARY, qui se matérialise par un tableau de byte(), ma valeur mon mot que j'ai transformé en binaire ...

J'ai commencé ce code, mais la question reste en commentaire ...

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
17

PublicFunction fctTest(ByVal value AsString) AsBoolean
Dim regKey As RegistryKey
Dim intAddin, i AsInteger
Dim tmp AsByte()
Dim Log AsNew LogGenerator
regKey = Registry.CurrentUser.OpenSubKey("valeurBinaire", False)
tmp = regKey.GetValue(value)
 
'TODO FAIRE LA COMPARAISON entre ma value qui est un string mais qui 
peux être un tableau de byte() et ma valeur que j'ai en registre ....
 

fctTest= True
regKey.Close()
EndFunction
En vous remerciant par avance de votre aide.

Michael