Probleme VALEUR REG_DWORD

Question

Salut a tous, voici mon code ou je rencontre un probleme car ne n'arrive pas a écrire ma valeur qui s'appelle FLUNCH voir source en bas. OU EST LE BLEME ?????

Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CURRENT_CONFIG = &H80000005
Const REG_DWORD = 4
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) 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




Function RegCreationDWORD(HkeyRoot As Long, sKey As String, Svalue As String, V As Long) As Boolean


X = RegCreationDWORD(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Flunch", 1)
Dim F As Long, Hkey As Long
If RegOpenKey(HkeyRoot, sKey, Hkey) <> 0 Then
RegCreationDWORD = False
Exit Function
End If
F = RegSetValueEx(Hkey, Svalue, 0&, REG_DWORD, V, ByVal REG_DWORD)
RegCloseKey Hkey
RegCreationDWORD = True
End Function

Dolphin Boy · Answer

Salut, à quoi sert le X = .... ? à rentrer dans une boucle récursive interminable ?

Dolphin Boy · Answer

Voilà comment je fais pour inscrire ta valeur dans la BDR, j'utilise RegCreateKey au lieu de RegOpenKey, ainsi la clé est crée si elle n'existe pas ou modifiée si elle existe :

Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CURRENT_CONFIG = &H80000005
Const REG_DWORD = 4
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 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


Function RegCreationDWORD(HkeyRoot As Long, sKey As String, Svalue As String, V As Long)
Dim Keyhand As Long
    Call RegCreateKey(HkeyRoot, sKey, Keyhand)
    Call RegSetValueEx(Keyhand, Svalue, 0&, REG_DWORD, V, REG_DWORD)
    Call RegCloseKey(Keyhand)
End Function

'Pour appeler la fonction dans ton code :
Call RegCreationDWORD(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "Flunch", 1)

Probleme VALEUR REG_DWORD

2 réponses

Votre réponse

Discussions similaires