[R] Lire et écrire dans la base de registre
Posté : dim. 01 févr. 2009 18:36
Bonjour à tous
pour un projet j'ai besoin de lire et de modifier une clé de registre
je suis sur XP sp2
j'arrive à lire la clé de registre mais je n'arrive pas à la modifier
voici mon script
merci de m'aider pour cela soit vous me donnez un exemple avec une clé modifiable ou bien vous pouvez installer visual gps et tester directement ma clé en le téléchargeant ici : http://www.visualgps.net/VisualGPS/default.htm
Comme d'habitude un peu de test et découpage et ca marche!!!
voici le nouveau code
pour un projet j'ai besoin de lire et de modifier une clé de registre
je suis sur XP sp2
j'arrive à lire la clé de registre mais je n'arrive pas à la modifier
voici mon script
Code : Tout sélectionner
DIM $REG
DIM $VIT
$REG="POUF"
$REG=RegRead("HKEY_USERS\S-1-5-21-1547161642-1580436667-725345543-1003\SOFTWARE\VisualGPSLLC\VisualGPS\Serial Port Commmunications", "BaudRate")
IF $REG=57600 THEN $VIT=115200
IF $REG=115200 THEN $VIT=57600
If IsAdmin() Then MsgBox(0, "", "Admin rights detected")
MsgBox (19,"titre","LA VITESSE EST DE : " & $REG & " VOULEZ VOUS LA CHANGER POUR " & $VIT & " ?",15)
RegWrite("HKEY_USERS\S-1-5-21-1547161642-1580436667-725345543-1003\SOFTWARE\VisualGPSLLC\VisualGPS\Serial Port Commmunications","REG_DWORD", hex($VIT))
$REG=RegRead("HKEY_USERS\S-1-5-21-1547161642-1580436667-725345543-1003\SOFTWARE\VisualGPSLLC\VisualGPS\Serial Port Commmunications", "BaudRate")
MsgBox (1,"titre","LA VITESSE EST DE : " & $REG )merci de m'aider pour cela soit vous me donnez un exemple avec une clé modifiable ou bien vous pouvez installer visual gps et tester directement ma clé en le téléchargeant ici : http://www.visualgps.net/VisualGPS/default.htm
Comme d'habitude un peu de test et découpage et ca marche!!!
voici le nouveau code
Code : Tout sélectionner
DIM $REG
DIM $VIT
dim $clef
$clef= "HKEY_CURRENT_USER\SOFTWARE\VisualGPSLLC\VisualGPS\Serial Port Commmunications"
$REG="POUF"
$REG=RegRead($clef, "BaudRate")
IF $REG=57600 THEN $VIT=115200
IF $REG=115200 THEN $VIT=57600
If IsAdmin() Then MsgBox(0, $reg, "Admin rights detected")
MsgBox (19,"titre","LA VITESSE EST DE : " & $REG & " VOULEZ VOUS LA CHANGER POUR " & $VIT & " ?",15)
RegWrite($clef,"BaudRate","REG_DWORD", $VIT)
$REG=RegRead($clef, "BaudRate")
MsgBox (1,"titre","LA VITESSE EST DE : " & $REG )
