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 ...
En vous remerciant par avance de votre aide.
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
Michael
Partager