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
Et pour ton cas précis pour é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écupérer une valeur dans la base de registre)
Liste des constantes renvoyant à une clé racine :
"hkey_classes_root" : &H80000000
"hkey_current_user" : &H80000001
"hkey_local_machine" : &H80000002
"hkey_users" : &H80000003
"hkey_dyn_data" : &H80000004
The Pingouin
