Probleme Ecriture base de registre VB

Probleme Ecriture base de registre VB - VB/VBA/VBS - Programmation

Marsh Posté le 10-01-2009 à 22:16:11    

Salut a tous, je me remet a VB car je n'y avait pas touché depuis ....arf... Donc voila, je suis confronté a un problème: je souhaite creer une cle dans la base de registre. je me suis inspiré de codes trouver un peu partout pour parvenir a mes fin mais voila, lorsque je lance cette action dans mon appli, RIEN NE SE PASSE....
Plus concrètement, l'action que je veux effectuer serai de désactiver le clic droit sur le bureau, il faut donc crée la cle "NoViewContextMenu" dans "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" et lui attribuer une valeur DWORD de 0 ou 1 que l'on veuille ou non désactiver celui ci.
 
Je ne conanis pas trop encore VB, mais je pense avoir bien suivi les explications pour l'ecriture dans le registre...
 
Voici le code:
 
Declarations:
 

Code :
  1. Option Explicit
  3. 'API utilisée pour fermer une clé ouverte
  4. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
  5. 'efface une valeur de clé
  6. Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long
  7. 'créé une clé registre
  8. Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  9. 'affecte une valeur
  10. 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
  13. 'clé root Hkey Local Machine
  14. Private Const HKEY_LOCAL_MACHINE = &H80000002
  15. Private Const HKEY_CURRENT_USER = &H80000001
  16. 'ZONE TEST CLE DWORD
  17. Private Const REG_DWORD = 4
  18. 'type de clé REG_SZ
  19. Private Const REG_SZ = 1


 
 
Fonctions a lancer:
 

Code :
  1. Public Sub RightClic(ByVal bActivateOrNot As Boolean, Optional ByVal sFile As Long)
  2. 'Fonction qui active (ou non) le clic droit sur le bureau
  4. 'C'est une simple création de valeur de clé :
  5. 'Dans la clé :
  6. 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
  7. 'il faut modifier une cle DWORD
  8. 'de nom=NoViewContextMenu
  9. 'avec valeur=0 pour activer
  10. 'ou valeur=1 pour desactiver
  12. Dim lRet As Long, sPath2 As String, sName As String
  13. 'path de la clé
  14. sPath2 = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
  15. 'nom de la clé
  16. sName = "NoViewContextMenu"
  18. If bActivateOrNot Then
  19.     '//on ajoute la clé
  20.     'créé la clé
  21.     RegCreateKey HKEY_CURRENT_USER, sPath2, lRet
  22.     'sauvegarde la string désirée dans la clé
  23.     RegSetValueEx lRet, sName, 1, REG_DWORD, ByVal sFile, 4
  24.     'ferme la clé
  25.     RegCloseKey lRet
  26. Else
  27.     '//on ajoute la clé
  28.     'créé la clé
  29.     RegCreateKey HKEY_CURRENT_USER, sPath2, lRet
  30.     'sauvegarde la string désirée dans la clé
  31.     RegSetValueEx lRet, sName, 1, REG_DWORD, ByVal sFile, 4
  32.     'ferme la clé
  33.     RegCloseKey lRet
  34. End If
  35. End Sub
  37. Private Sub rightClic_Off_Click()
  39. Dim sDonnee As String
  40. 'sDonnee est la valeur a attribuer a la clef: 0 pour desctiver, 1 pour activer
  41. sDonnee = 0
  43. RightClic False, sDonnee
  45. MsgBox "Clic Droit Sur le bureau desactivé", vbInformation, "Ok !"
  46. End Sub
  48. Private Sub rightClic_on_Click()
  50. Dim sDonnee As String
  52. sDonnee = 1
  54. RightClic True, sDonnee
  56. MsgBox "Clic Droit Sur le bureau activé", vbInformation, "Ok !"
  57. End Sub


 
 
je sais que sa peux saouler mais j'aimerai vraiment reussir a saisir comment effectuer l'ecriture dans la BDR, par exemple en connaissant a quoi correspondent les variables demandees...
 
Bref...jespere que vous reussirez a m'aider...
 
MERCI D'AVANNNCE!!

Reply

Marsh Posté le 10-01-2009 à 22:16:11   

Reply

Marsh Posté le 15-01-2009 à 10:13:12    

Va voir le site suivant http://files.codes-sources.com/fic [...] GISTRY.BAS
Ça devrait faire le tour de ta question.

Message cité 1 fois
Reply

Marsh Posté le 22-05-2012 à 12:03:43    

tegu a écrit :

Va voir le site suivant http://files.codes-sources.com/fic [...] GISTRY.BAS
Ça devrait faire le tour de ta question.


Gros déterrage de topic : quelqu'un a la vraie solution ? le code proposé stocke le DWORD sous forme de chaine et fait la conversion à la volée  :kaola:  
 
l'API RegSetValueEx stocke la valeur DWORD sous forme ASCII. Par exemple je veux écrire 123 (0x7B), la valeur réellement écrite est 0x00333231 !!! Bien sûr si on veut écrire une valeur > 9999 il y aura troncature.
 
J'ai rien trouvé sur le web  :fou:


---------------
La vie s'appelle suicide-toi, et le diable rit avec moi.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed