Script qui permet d'ajouter une valeur dans la base de registre
flasher_13
Messages postés55Date d'inscriptionmercredi 2 février 2005StatutMembreDernière intervention 2 avril 2012
-
13 mars 2005 à 11:29
cs_Pingouin
Messages postés262Date d'inscriptionlundi 26 août 2002StatutMembreDernière intervention24 août 2005
-
13 mars 2005 à 21:00
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.
cs_algori
Messages postés868Date d'inscriptiondimanche 26 décembre 2004StatutMembreDernière intervention26 février 20081 13 mars 2005 à 12:12
Je connais juste en VBScript. Voici le code s'y ça t'intéresse :
Set sh = CreateObject("WScript.shell")
sh.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\coucou", "C:\coucou.vbs", "REG_SZ"
@++
cs_Pingouin
Messages postés262Date d'inscriptionlundi 26 août 2002StatutMembreDernière intervention24 août 2005 13 mars 2005 à 13:50
Salut,
Bon déjà juste un truc : évite de décorer comme ca tes messages c'est pas forcément plus agréable à lire...
Sinon le mieux c'est de passer par les API pour accéder à 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
cs_algori
Messages postés868Date d'inscriptiondimanche 26 décembre 2004StatutMembreDernière intervention26 février 20081 13 mars 2005 à 15:19
flasher_13 >>> T'es sûr ??? Ca marche trè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é sont du VBScript et non du VB pur.
@++ et bonne prog !
Vous n’avez pas trouvé la réponse que vous recherchez ?
flasher_13
Messages postés55Date d'inscriptionmercredi 2 février 2005StatutMembreDernière intervention 2 avril 2012 13 mars 2005 à 18:46
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éco lol!!
A+
,Tomack
cs_Pingouin
Messages postés262Date d'inscriptionlundi 26 août 2002StatutMembreDernière intervention24 août 2005 13 mars 2005 à 21:00
Oui je vois ca lol !! C'est pas plus mal kanm^m.
Content d'avoir pu aider. Pense a accepter la ou les réponses qui t'ont
aider pour permettre a ceux ki cherchent dans le forum ce genre de
conseils les trouvent plus facilement.