VB6 Base de Registre Hexadecimal

Question

Bonjour.


Lorsque j'utilise l'instruction :
Shell.RegWrite
VB6 m'affiche une info Bulle contenant :
RegWrite(Name As String,  Value, [Type])


Je souhaiterais ecrire une cle dans la Base De Regsitre que je possede dans un fichier .reg. 
L'info etant de l'hexadecimal, elle devrait etre ecrite avec le type REG_BINARY je pense.
Mais je n'y arrive pas.


J'ai meme essaye de lire la cle existante et de la reecrire.
Mais s'il accepte le type Variant pour la lecture, il refuse que j'ecrive avec.


Je pourrais faire un shell.Run du fichier, mais il m'affiche 2 fois une msgbox ou il faut cliquer sur OK.
Et ca, ca n'est pas super.


Si quelqu'un pouvait m'aider...


Merci.


PS : voici l'apercu de mon fichier .reg
[HKEY_USERS\xxxx\Software\xxx\xxx]
"ABCD"=hex:FB,20,87

enernet · Answer

Essaie plutot ceci :

dim taValeur
dim winshell
set winshell = createobject("wscript.shell")

tavaleur = hex(tavaleur)

winshell.regwrite "HKEY_USERS\xxxx\Software\xxx\xxx", TaValeur, "REG_SZ"

ps reg_sz car si tu mets reg binary, tu ne peux y mettre du hexa

Dave C. Laramee ;)

madustbin · Answer

Merci de ta reponse.

Helas cela ne fonctionne pas....avec moi je precise. :)

j'ai mis un apercu du fichier et lorsque je mets cette valeur dans la ligne : 
taValeur = hex("FB,20,87")

j'ai une erreur d'incompatibilite.

de plus, en mettant RG_SZ, je cree une cle en caracteres.
Moi je souhaite qu'elle soit en REG_BINARY.

J'ai cette cle dans ma base de registre.

J'arrive a la lire avec le type variant mais je ne peux plus rien en faire.
Et je voudrais la copier dans une autre cle avec VB bien sur.

A+

cs_CanisLupus · Answer

Si ta cl&#233; est "ABCD", essaie &#231;a :
regwrite "HKEY_USERS\xxxx\Software\xxx\xxx", "ABCD", "REG_BINARY", "FB2087"

Loup Gris

madustbin · Answer

Comme il semble difficile de retrouver ses anciens messages avec la recherche, je fais remonter celui-ci.


 


En esperant qua quelqu'un puisse serieusement m'aider.


 


Sinon, ceci sera mon dernier post sur ce forum.

cs_CanisLupus · Answer

Je ne comprend pas ton ressentiment. Il est pourtant facile de "retrouver ses anciens messages". Visiblement la recherche n'est pas ton fort car, tu tapais "regwrite vb" dans google et tu aurais eu plein de pages o&#249; tu aurais trouv&#233; ton bonheur.

Dans mon dernier post, j'ai fais une tite erreur, je le reconnais mais je ne me sers pas de ("wscript.shell") et j'ai un peu confondu avec d'autres m&#233;thodes. Mais si tu regardes bien le post de Enernet, il y a la solution. Le seul truc c'est qu'il faut l'&#233;crire de cette mani&#232;re, enfin d'apr&#232;s ce que tu aurais pu trouver avec google :

winshell.regwrite "HKEY_USERS\xxxx\Software\xxx\xxx", "FB2087", "REG_BINARY"

A toi de savoir ce qu'il a &#224; la place de tes xxxx.

"FB2087" &#233;tant la valeur que tu as dis vouloir inscrire. Pas de virgule, pas de hex()...

Si cette derni&#232;re r&#233;ponse ne te convient pas et surtout si tu ne nous prend que pour des distributeurs automatiques de solutions, tu peux effectivement oublier ce forum. On ne te regrettera pas.

Loup Gris

cs_Banzai · Answer

Je suis aussi en train de lutter avec REG_BINARY :)

Le pb est que le type REG_BINARY ne prend que de l'integer. Et le pb qui se pose c'est que si l'on veut une valeur 12 00 00 00 dans le registre, je n'arrive pas a trouver la bonne valeur integer &#224; saisir dans le script VBS qui me donnera 12 00 00 00 dans le registre.

Si quelqu'un peut me donner le secret de la convertion hex --> bin de la base de registre ... 

Merci d'avance

cs_CanisLupus · Answer

Alors, m&#234;me si tu as une valeur binary dans ta registry, essaies :

winshell.regwrite "HKEY_USERS\xxxx\Software\xxx\xxx", 
&H12000000, "REG_DWORD"

C'est peut-&#234;tre pas tr&#232;s &#233;l&#233;gant mais &#231;a marche, j'ai test&#233;.

Loup Gris

cs_Banzai · Answer

Oui c vrai que &#231;a a l'air de fonctionner .... sont quand meme bizarre chez microsoft :)

c'est pas tr&#232;s propre mais bon au moins &#231;a fonctionne en attendant de trouver la convertion binaire ... merci pour ton conseil ...

cs_CanisLupus · Answer

Une autre solution :

En fait, tu peux passer du long et de l'hexa avec reg_binary (apr&#232;s tout, un long ou un hexa est converti en binaire en m&#233;moire) mais pas du string (ce que te renverrai un hex()). 
Le probl&#232;me, avec reg_binary, c'est les octets de poids forts et faibles. 
Si tu veux obtenir "01 02 03 04" dans ta valeur binary de ta registry, il faut inverser tous les octets de "01 02 03 04" que tu peux passer comme &#231;a si c'est toi qui dit que ... :

winshell.regwrite "HKEY_USERS\xxxx\Software\xxx\xxx", &H04030201, "REG_BINARY"

ou comme &#231;a si tu r&#233;cup&#232;res la valeur &#224; mettre d'un fichier ou autrement :

Dim TaValeur As String


'Tu r&#233;cup&#232;res une string
TaValeur = "01 02 03 04"

L&#224;, tu te d&#233;brouilles pour inverser et obtenir "&H04030201" dans TaValeur, par ex :

Dim TaValeur As String
Dim TaValeurInverse As String
Dim i As Integer
Dim winshell
Set winshell = CreateObject("wscript.shell")


TaValeur = "01 02 03 04"
TaValeurInverse = "&H"


For i = Len(TaValeur) - 1 To 1 Step -3
  TaValeurInverse = TaValeurInverse & Mid$(TaValeur, i, 2)
Next


'ou, si TaValeur = "01020304"
'For i = Len(TaValeur) - 1 To 1 Step -2
'  TaValeurInverse = TaValeurInverse & Mid$(TaValeur, i, 2)
'Next


winshell.regwrite "HKEY_USERS\xxxx\Software\xxx\xxx", CLng(TaValeurInverse), "REG_BINARY"

Mais il faut que tu sois s&#249;r que TaValeur puisse &#234;tre convertie en long (en vb6). "Converted to.... integer" de la msdn doit plut&#244;t correspondre &#224; int32 de vb.net.
L'exemple que je te donnes est en vb6 donc &#224; adapter pour vb.net.

Loup Gris

cs_Banzai · Answer

Niquel c exactement l'info que je cherchais ...

Merci beaucoup pour ton aide Loup Gris

VB6 Base de Registre Hexadecimal

10 réponses

Discussions similaires