Discussion :

[troxsa]

Bonjour a tous


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci @++

[troxsa]

Re

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1A3761592352350C7A5F20172F1E1A190E2B017313371312141A152A en type BINARY

quel un a une idée ?

[troxsa]

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" |)

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

Transformation des données

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

Qui donne ceci

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 !

[troxsa]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[neguib]

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