LIRE, ÉCRIRE, EFFACER DANS LA BASE DE REGISTRE LE PLUS SIMPLEMENT DU MONDE !

Commentaire de Florent le 11/05/2002 21:10:54

Petit rappel à tous les nouveaux/débutants, ce site est un site de SOURCES, et non d'exécutables, donc quand vous faites un zip, mettez vos sources, et non vos exécutables. Merci.

Commentaire de steven007 le 12/05/2002 13:27:45

1/10 ouè dommage,  un code du meme genre est deja sur le site, alors je vois pas l utilité si l on doit telecharger ta source, ( qui peut ) ce faire en qq ligne. ca serai pastrop demander de l afficher. bien dit yoman64

Commentaire de legamer le 17/12/2002 15:09:19

c nul sans la source

Commentaire de Noiretulipe le 14/04/2003 17:57:03

Pour ceux qui n'aurais rien compris .... La SOURCE EST SOUS VOS YEUX ( dans le petit encadré ! )

Commentaire de rclsilver02 le 24/05/2003 11:45:41

konyaliseref : si la valeur n'existe pas, VB te met une erreur. donc tu peux faire :
Sub Command1_Click()
On Error Goto Erreur
Set WshShell = CreateObject("Wscript.Shell")
Text1.Text = WshShell.RegRead("HKEY_CURRENT_USERControl PanelDesktopMenuShowDelay")
Exit Sub 'Pour éviter d'aller à chaque fois dans l'erreur
Erreur:
MsgBox "La valeur n'existe pas"
End Sub

Commentaire de Benwillis le 17/07/2003 17:14:57

J'ai un souci avec ce code : il me met une erreur à la ligne du Text1.Text = Wsh...

en me diant qu'un objet est attendu...?
Que faire?

Commentaire de adrienphp le 27/08/2003 22:32:10

La source entraine un problème. Un GROS problème. Elle déclenche l'anti-virus Norton 2003. Et ca fait desordre d'avoir un log qui se trouve en quarantaine ou en script bloqué car malveillant. Sinon c la plus simple.
Simplicité : 8/10
Fiabilité dans un log : 2/10
Moyenne 5/10

Commentaire de FirSteph le 31/12/2003 05:08:59

EXCELLENT ! Cette source est excellente ! Ne vous fiez pas à la note, ca marche a la perfection, que ca soit sous Win98 ou WinXP. Thx Spr et continue comme ca !

Commentaire de heine le 15/01/2004 01:14:05

Pour ceux qui on eu du mal ou ne savent pas le paser en fonction, voici comment exploiter TRES facilement ceci:

Public Function EcrireBDR(Clé As String, Valeur As String, Normal_Dword_Bin As String)
Set WshShell = CreateObject("Wscript.Shell")

If Normal_Dword_Bin = "Normal" Then

WshShell.RegWrite Clé, Valeur
Exit Function
End If

If Normal_Dword_Bin = "Dword" Then

WshShell.RegWrite Clé, Valeur, "REG_DWORD"
Exit Function
End If

If Normal_Dword_Bin = "Bin" Then

WshShell.RegWrite Clé, Valeur, "REG_BINARY" 'Le 1, c'est la valeur de la valeur binaire (!)
Exit Function
End If

End Function



Public Function LireBDR(Clé) As String
Dim Resultat As String
Set WshShell = CreateObject("Wscript.Shell")

Resultat = WshShell.RegRead(Clé) 'Mettez ici le chemin de la clé et le nom d'un paramêtre pour obtenir sa valeur
LireBDR$ = Resultat
End Function

pour exploiter ceci c'est tres simple:
2 textbox et à la limite deux command et dans chaque command:
text1.box pour la lecture
text1.box pour l'ecriture.

Text1.Text = LireBDR("HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay")

Call EcrireBDR("HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", Text2.Text, "Normal")

Commentaire de heine le 04/02/2004 00:28:50

oui c'est tout à fait possible, il te faut faire un controle winsock client serveur ou le serveur atten un client pour lui delivrer les ifos necessaires ;)

Enjoy! ;)

Commentaire de zeunz le 29/04/2004 19:28:14

ce code est tres bien.
et bien comment en plus.
je voudrai savoir si l'un de vous sait comment obtenir dans un "dossier " dans la base de registre ttes les clef qu'il contient.
merci.
salutations.

Commentaire de hansmeier le 08/07/2004 17:24:43

comment inscrire des donne dans les valeur (par défaut) ??

Commentaire de zeunz le 08/07/2004 23:29:42

bien sur

Cle="HKEY_CURRENT_USER\Software\"
Section= nom de la section
Valeur= la valeur de la section.

sinon un 2nd moyen:

'Ecriture des données dans la base de registre
SaveSetting NomApplication, Cle, Section, Valeur

fais moi savoir si c'est bon ou pas.

Commentaire de zeunz le 09/07/2004 17:55:05

de rien. tu peux aussi verifier la fonction "SaveSetting"...

Commentaire de schreiber_jacques le 16/05/2005 15:16:28

Tout simplement GENIAL
Simplicité 10/10

Commentaire de FirSteph le 08/11/2007 00:35:29

Regardes mieux Gsyltc c'est ecrit dans la source:

WshShell.RegWrite "HKCU\essaiVisualBasic\Créer Clé 2 binaire\", 1, "REG_BINARY" 'Le 1, c'est la valeur de la valeur binaire (!)