Base de registre et valeur binaire

Question

Bonjour,

Une de mes applis doit &#233;crire une cl&#233; binaire dans le registre. Pour cela, j'utilise le code suivant:

dim valeur as string
dim cle as string

Set wsh = CreateObject("WScript.Shell")

cle = txt_cle.text
Valeur = txt_valeur.text

wsh.RegWrite cle, valeur, "REG_BINARY"

Je me doute que le probl&#232;me se pose dans la d&#233;claration de la variable "Valeur", qui ne devrait probablement pas &#234;tre string, car j'obtiens l'erreur: type incompatible.

Lorsque je teste cette portion de code:
wsh.RegWrite cle, 1, "REG_BINARY"
Tout fonctionne bien, mais lorsque je teste le code suivant:
wsh.RegWrite cle, 41, "REG_BINARY"
J'obtiens en valeur de ma cl&#233; la chose suivante: 29 00 au lieu de 41.

Ma question est donc la suivante:
Si je veux rentrer dans txt_valeur.text le code tel que l'on peut le trouver dans les cl&#233; binaires (ex: 73 61 6C 75 74 pour "salut" :D), puis l'ins&#233;rer dans une cl&#233; binaire d&#233;finie dans txt_cle.text, comment dois je adapter mon code?

Merci beaucoup pour votre aide...

Asaiel

cs_DARKSIDIOUS · Answer

Il faut s&#251;rement que tu convertisse tes cha&#238;nes en h&#233;xad&#233;cimal (note : 41 en d&#233;cimal = 29 en h&#233;xa...)

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

Asaiel · Answer

Bonjour, et merci de ta r&#233;ponse si rapide,

Je suis parfaitement d'accord avec toi, mais dans ce cas, comment d&#233;clarer ma variable pr ne pas avoir l'erreur type incompatible?

Un truc du genre dim valeur as hex.....

Asaiel · Answer

je viens de consulter cette adresse:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/wsMthRegWrite.asp

Il semblerait que le type n&#233;cessaire soit integer, mais j'ai pourtant essayer le code suivant:

dim valeur as integer
dim cle as string

Set wsh = CreateObject("WScript.Shell")

cle = txt_cle.text
Valeur = txt_valeur.text

wsh.RegWrite cle, valeur, "REG_BINARY"

J'obtiens l'erreur type incompatible encore une fois....

cs_DARKSIDIOUS · Answer

Essaye de passer une variable de type Byte



Sinon, utilise autre chose que le WScript pour &#233;crire dans la base de
registre (perso, je pr&#233;f&#232;re amplement les API Windows qui sont plus
souple je trouve).

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

draluorg · Answer

Salut,

J'ai dep[ose il y a quelques jour un code permettant de gerer presque completement la bdr,
qui permet d'ecrire des valeur binaire en string  (comme elle sont affichee dans regedit)
Exemple
Modreg.EcrireRegBinaire "HKEY_CURRENT_USER\Ma cle", "Ma valeur" , "73 61 6C 75 74"

voici le lien:
http://www.vbfrance.com/code.aspx?ID=34202

 Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

Base de registre et valeur binaire

5 réponses

Discussions similaires