Script qui permet d'ajouter une valeur dans la base de registre

Question

Bonjour!, je voudrai savoir comment faire un script en Visual Basic qui créer une Valeur Chaîne dans la base de registre si ont entre le chemin de celui-ci, le nom de cette valeur et la donnée sans passer par Regedit? Je pense que c'est faisable plusque VB va chercher des données dans la base de registre. A+ ,T0m@ck. Mon Site: http://www.tomack.fr.st

cs_algori · Answer

Je connais juste en VBScript. Voici le code s'y &#231;a t'int&#233;resse :
Set sh = CreateObject("WScript.shell")
sh.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\coucou", "C:\coucou.vbs", "REG_SZ"
@++

flasher_13 · Answer

Merci algori, déjà ça m'a avancé, mais ça !, je suis allé vérifier au chemin il y a rien?! Quelqu'un ne connait pas un autre moyen? En tout cas ici les réponses sont rapides lol!!! A+ ,T0m@ck. Mon Site:http://www.tomack.fr.st

cs_Pingouin · Answer

Salut,



Bon d&#233;j&#224; juste un truc : &#233;vite de d&#233;corer comme ca tes messages c'est pas forc&#233;ment plus agr&#233;able &#224; lire...

Sinon le mieux c'est de passer par les API pour acc&#233;der &#224; la base de registre



Private Declare Function RegCreateKey Lib "advapi32.dll" Alias
"RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String,
phkResult As Long) As Long

Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias
"RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long



Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias
"RegDeleteValueA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long



Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias
"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String,
ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal
cbData As Long) As Long



Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long





Et pour ton cas pr&#233;cis pour &#233;crire une valeur : 



Dim Win As String

Dim lHkey As Long



RegOpenKey &H80000002, "Software\Microsoft\Windows\CurrentVersion\Run", lHkey

RegSetValueEx lHkey, "Nom de la valeur", 0&, 1, ByVal  "Contenu de la valeur",  Len("contenu de la valeur")

RegCloseKey lHkey


Tu trouveras des tas d'autres exemples sur ce site. (notamment pour r&#233;cup&#233;rer une valeur dans la base de registre)



Liste des constantes renvoyant &#224; une cl&#233; racine : 

"hkey_classes_root"  : &H80000000

"hkey_current_user" :  &H80000001

"hkey_local_machine" :  &H80000002

"hkey_users" :  &H80000003

"hkey_dyn_data" : &H80000004


The Pingouin

cs_algori · Answer

flasher_13 >>> T'es s&#251;r ??? Ca marche tr&#232;s bien chez moi !
Est-ce que t'as bien mis les instructions dans un fichier .vbs ? 
Je te rappelle que les commandes que je t'ai donn&#233; sont du VBScript et non du VB pur.
@++ et bonne prog !

flasher_13 · Answer

Oui ''algori'' j'avais pas fait attention, ton script marche bien, et merci aussi ''Pingouin'' pour tes explications
PS: j'ai pris conseil pour la d&#233;co lol!!
A+
,Tomack

cs_Pingouin · Answer

Oui je vois ca lol !! C'est pas plus mal kanm^m. 

Content d'avoir pu aider. Pense a accepter la ou les r&#233;ponses qui t'ont
aider pour permettre a ceux ki cherchent dans le forum ce genre de
conseils les trouvent plus facilement.



@+

The Pingouin

Script qui permet d'ajouter une valeur dans la base de registre

6 réponses

Discussions similaires