[VB.Net] Comment créer une clef de registre de type BINARY ?

Bonjour a tous


Comment faire pour créée une clef de registre de type BINARY ?

Code:

---

1 2 3 4 5

registre.SetValue("{AEBA21FA-782A-4A90-978D-B72164C80120}", "1A3761592352350C7A5F20172F1E1A190E2B017313371312141A152A")   'je sais :) c'est du type string donc ...

---

Merci @++

Re

J'ai trouvé ça sur un site chinois ou japonais :)

Code:

---

1 2	Dim bs As Byte() = {0, 1, 2} regkey.SetValue("Bytes", bs)

---

ça me crée bien les valeurs de type REG_BINARY
mais j'ai besoin que ça soit de l'alfa numérique

Code:

---

1A3761592352350C7A5F20172F1E1A190E2B017313371312141A152A en type BINARY

---

quel un a une idée ?

Re moi voila les testes que j'ai fait mais sans plus si ça peut mettre quel un sur la voie car moi je commence a séché sec !

J'ai fait ceci
Recuperation des valeurs Text de la clef d'origine
c'est a dire (les valeurs de droite apres les "More" |)

Citation:

---

0000---1A3761592352350C--- |.7aY#R5.
0008---7A5F20172F1E1A19---|z_ ./...
0010---0E2B017313371312--- |.+.s.7..
0018---141A152A---------------- |...*

---

Transformation des données

Citation:

---

registre.SetValue("{A8A88C49-5EB2-4990-A1A2-0876022C854F}",
Encoding.ASCII.GetBytes(".7aY#R5.z_ ./....+.s.7.....*"))

---

Qui donne ceci

Citation:

---

0000---2E3761592352352E ---|.7aY#R5.
0008---7A5F202E2F2E2E2E---|z_ ./...
0010---2E2B2E732E372E2E--- |.+.s.7..
0018---2E2E2E2A---------------- |...*

---

Les clefs Hex ne sont pas les meme :( mais les resultats de droite sont les
memes


et ça ne fonctionne toujours pas !

Voila j'ai fini par trouver une personne sur un NewsGroup qui a pu me donner un coup de main
je vous fait partager un bout de code qui fonctionne tres tres bien :)

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim text As String = "1a3761592352350c7a5f20172f1e1a190e2b017313371312141a152a" Dim num1 As Integer = 0 Dim buffer As Byte() = New Byte((text.Length / 2) - 1) {} Dim num2 As Integer = 0 Do While (num2 < text.Length) buffer(num1) = Convert.ToByte(text.Substring(num2, 2), 16) num1 += 1 num2 += 2 Loop

---

Je remerci beaucoup Fabien du newsGroup Microsoft.public.fr.dotnet.vb

Bravo Troxsa pour cette performance d'avoir été l'auteur et les répondants du post :bravo:
juste une chose n'oublies pas le tag :resolu: :wink: