LIRE, ÉCRIRE, EFFACER DANS LA BASE DE REGISTRE LE PLUS SIMPLEMENT DU MONDE !
cs_Florent
Messages postés53Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention22 novembre 2005
-
11 mai 2002 à 21:10
cs_didine13
Messages postés96Date d'inscriptionmardi 18 août 2009StatutMembreDernière intervention14 août 2013
-
2 sept. 2010 à 17:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_lacoste57
Messages postés18Date d'inscriptionvendredi 26 mars 2004StatutMembreDernière intervention 3 novembre 2010 6 août 2004 à 02:11
pour "Benwillis" erreur à la ligne du Text1.Text = Wsh...
Variable non definie "Wshshell"
tu enlève "Option Explicit" des declaration :)
zeunz
Messages postés200Date d'inscriptionjeudi 26 février 2004StatutMembreDernière intervention30 juin 2008 9 juil. 2004 à 17:55
de rien. tu peux aussi verifier la fonction "SaveSetting"...
hansmeier
Messages postés46Date d'inscriptionsamedi 29 mai 2004StatutMembreDernière intervention16 août 2006 9 juil. 2004 à 11:11
Merci zeunz ca marche !
zeunz
Messages postés200Date d'inscriptionjeudi 26 février 2004StatutMembreDernière intervention30 juin 2008 8 juil. 2004 à 23:29
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.
zeunz
Messages postés200Date d'inscriptionjeudi 26 février 2004StatutMembreDernière intervention30 juin 2008 8 juil. 2004 à 23:24
Pour hansmeier:
Public Sub CreateKeyRegedit(Cle As String, Section As String, Valeur As String)
'*****************************************************************************
' Procédure de création de clé et de valeur dans la base de registre *
'*****************************************************************************
'Déclaration des variables
Dim Wshshell
'Appel de la référence
Set Wshshell = CreateObject("WScript.Shell")
'Création de la clé
Wshshell.regwrite Cle & "" & Section, Valeur, "REG_SZ"
End Sub
hansmeier
Messages postés46Date d'inscriptionsamedi 29 mai 2004StatutMembreDernière intervention16 août 2006 8 juil. 2004 à 17:24
comment inscrire des donne dans les valeur (par défaut) ??
cs_Maxime2000
Messages postés2Date d'inscriptionsamedi 26 juillet 2003StatutMembreDernière intervention 8 juillet 2004 8 juil. 2004 à 08:31
Je viens d'étudier le code et c'est vrai que c'est très bien.
Mais le problème, c'est qu'il utilise des scripts et du coup, c'est le genre de truc à affoler un antivirus !
Il vaut peut etre mieux utiliser un ocx!
zeunz
Messages postés200Date d'inscriptionjeudi 26 février 2004StatutMembreDernière intervention30 juin 2008 29 avril 2004 à 19:28
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.
cs_yannickt
Messages postés64Date d'inscriptionlundi 25 août 2003StatutMembreDernière intervention22 novembre 2011 29 févr. 2004 à 05:49
MERCI BEAUCOUP POUR L'ASTUCE!!!!!!!!!!
c'est un code comme ca que je recherchais depuis longtemps!!!
cs_heine
Messages postés58Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention15 novembre 2006 4 févr. 2004 à 00:28
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! ;)
TheGuern
Messages postés32Date d'inscriptionmercredi 7 mai 2003StatutMembreDernière intervention25 mars 2008 3 févr. 2004 à 23:14
J'ai une question pour tous ceux qui prog sur la BDR (et en même temps le réseaux)
Je cherche à savoir comment lire une valeur donnée sur un PC donné. (ex: \\PC-N°1)...
Est-ce possible à partir d'un activex ou d'un api ???
J'ai essayé de modifier ce code mais ça donne po grand chose. J'ai aussi cherché sur le site mais sans +. (il doit falloir mettre winsock dans le prog!!!)
@++
cs_heine
Messages postés58Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention15 novembre 2006 15 janv. 2004 à 01:14
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.
cs_heine
Messages postés58Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention15 novembre 2006 15 janv. 2004 à 00:29
Ya vraiment pas à dire... 10/10 tres fiable,simple et vraiment efficace, de plus il est tres facilement possible d'en faire une fonction générale.
encore merci bonne continuation ;)
Heine
FirSteph
Messages postés60Date d'inscriptionlundi 21 octobre 2002StatutMembreDernière intervention 7 octobre 2007 31 déc. 2003 à 05:08
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 !
cs_Migs
Messages postés53Date d'inscriptionmercredi 3 décembre 2003StatutMembreDernière intervention21 janvier 2019 4 déc. 2003 à 14:52
Snif! Moi aussi j'adorais cette source, jusqu'à tant que je découvre que pour que ça marche il faut être admin, parce que l'accès à certaines clé est refusé comme HKLM par exemple...
Bref de plus j'ai entendu parlé du problem de 'adrienphp' ça ne m'ai jamais arrivé, mais si c'est bien réel alors cette source ne sert tout simplement à rien.
C'est bien dommage parce que pour une fois c'était simple. Parce que moi rien comprendre aux #@+*& d'API. Mais malheureusment il semble impossible d'avoir accès à la BdR sans les API. Si quelqu'un y arrive, qu'il m'appel :p
Migs
adrienphp
Messages postés34Date d'inscriptiondimanche 2 mars 2003StatutMembreDernière intervention31 juillet 2006 27 août 2003 à 22:32
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
ceduroots
Messages postés1Date d'inscriptionmercredi 23 juillet 2003StatutMembreDernière intervention24 juillet 2003 24 juil. 2003 à 11:11
Bonjour tout le monde, je ne comprends rien a tout ce charabia que vous nommez "code" :p , cependant j'ai quand meme besoin de ce petit programme pour me nettoyer ma base de registre. Ma question est donc : comme faire pour le faire marcher en VBS ?
Benwillis
Messages postés28Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention21 novembre 2008 17 juil. 2003 à 17:14
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?
cs_noshelter
Messages postés11Date d'inscriptionmercredi 26 février 2003StatutMembreDernière intervention25 juin 2003 16 juin 2003 à 10:05
et pour créer une clé ou une valeur chaîne on fait comment ?
rclsilver02
Messages postés130Date d'inscriptionmercredi 19 mars 2003StatutMembreDernière intervention10 février 2012 24 mai 2003 à 11:45
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
konyaliseref
Messages postés35Date d'inscriptionmercredi 12 mars 2003StatutMembreDernière intervention20 juillet 2005 24 avril 2003 à 15:57
ipo
ta source est impeccable mais tu ne saurais pas comment on fait pour verifier si une valeur dans le registre existe???
merci bien
Noiretulipe
Messages postés164Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention13 juillet 2008 14 avril 2003 à 17:57
Pour ceux qui n'aurais rien compris .... La SOURCE EST SOUS VOS YEUX ( dans le petit encadré ! )
cbjp85
Messages postés34Date d'inscriptionvendredi 22 novembre 2002StatutMembreDernière intervention 6 avril 2003 16 janv. 2003 à 22:35
SUPER TA SOURCE CA MA BEAUCOUP AIDE !! MERCI :)
cs_legamer
Messages postés68Date d'inscriptionmercredi 14 août 2002StatutMembreDernière intervention 8 août 2003 17 déc. 2002 à 15:09
c nul sans la source
cs_BadNews
Messages postés98Date d'inscriptionsamedi 30 novembre 2002StatutMembreDernière intervention10 septembre 20071 2 déc. 2002 à 04:59
Bien moi je dit merci à SPR , j'en avait besoin de ce code .
Et si il n'a mit que le .exe dans le zip , c'est surement parceque la code est
ecrit juste devant tes yeux . :P
Merci .
cs_steven007
Messages postés150Date d'inscriptionjeudi 24 janvier 2002StatutMembreDernière intervention27 avril 2007 12 mai 2002 à 13:27
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
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 12 mai 2002 à 03:31
Oua c vrai dommage que nous ne pouvons pas mettre 0
cs_Florent
Messages postés53Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention22 novembre 2005 11 mai 2002 à 21:10
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.
2 sept. 2010 à 17:45
16 juin 2008 à 12:13
8 nov. 2007 à 00:35
WshShell.RegWrite "HKCU\essaiVisualBasic\Créer Clé 2 binaire", 1, "REG_BINARY" 'Le 1, c'est la valeur de la valeur binaire (!)
5 nov. 2007 à 16:10
quelqu'un sait comment on peux rentrer une Chaîne (Je parle pas de string) Binaire ?
Du genre :
[HKLM\Bidule]
"Valeur"=Hex:AA, BB, CC, DD, EE, FF \
00, 11, 22, 33, 44, 55 \
66, 77, 88, 99 ,00 ,AA ETC.........
Car j'ai beau chercher, et tenter plein de trucs mais il m'envoie ceuillir des fraises à chaques fois !!!!
Merci
16 mai 2005 à 15:16
Simplicité 10/10
6 août 2004 à 02:11
Variable non definie "Wshshell"
tu enlève "Option Explicit" des declaration :)
9 juil. 2004 à 17:55
9 juil. 2004 à 11:11
8 juil. 2004 à 23:29
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.
8 juil. 2004 à 23:24
Public Sub CreateKeyRegedit(Cle As String, Section As String, Valeur As String)
'*****************************************************************************
' Procédure de création de clé et de valeur dans la base de registre *
'*****************************************************************************
'Déclaration des variables
Dim Wshshell
'Appel de la référence
Set Wshshell = CreateObject("WScript.Shell")
'Création de la clé
Wshshell.regwrite Cle & "" & Section, Valeur, "REG_SZ"
End Sub
8 juil. 2004 à 17:24
8 juil. 2004 à 08:31
Mais le problème, c'est qu'il utilise des scripts et du coup, c'est le genre de truc à affoler un antivirus !
Il vaut peut etre mieux utiliser un ocx!
29 avril 2004 à 19:28
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.
29 févr. 2004 à 05:49
c'est un code comme ca que je recherchais depuis longtemps!!!
4 févr. 2004 à 00:28
Enjoy! ;)
3 févr. 2004 à 23:14
Je cherche à savoir comment lire une valeur donnée sur un PC donné. (ex: \\PC-N°1)...
Est-ce possible à partir d'un activex ou d'un api ???
J'ai essayé de modifier ce code mais ça donne po grand chose. J'ai aussi cherché sur le site mais sans +. (il doit falloir mettre winsock dans le prog!!!)
@++
15 janv. 2004 à 01:14
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")
15 janv. 2004 à 00:29
encore merci bonne continuation ;)
Heine
31 déc. 2003 à 05:08
4 déc. 2003 à 14:52
Bref de plus j'ai entendu parlé du problem de 'adrienphp' ça ne m'ai jamais arrivé, mais si c'est bien réel alors cette source ne sert tout simplement à rien.
C'est bien dommage parce que pour une fois c'était simple. Parce que moi rien comprendre aux #@+*& d'API. Mais malheureusment il semble impossible d'avoir accès à la BdR sans les API. Si quelqu'un y arrive, qu'il m'appel :p
Migs
27 août 2003 à 22:32
Simplicité : 8/10
Fiabilité dans un log : 2/10
Moyenne 5/10
24 juil. 2003 à 11:11
17 juil. 2003 à 17:14
en me diant qu'un objet est attendu...?
Que faire?
16 juin 2003 à 10:05
24 mai 2003 à 11:45
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
24 avril 2003 à 15:57
ta source est impeccable mais tu ne saurais pas comment on fait pour verifier si une valeur dans le registre existe???
merci bien
14 avril 2003 à 17:57
16 janv. 2003 à 22:35
17 déc. 2002 à 15:09
2 déc. 2002 à 04:59
Et si il n'a mit que le .exe dans le zip , c'est surement parceque la code est
ecrit juste devant tes yeux . :P
Merci .
12 mai 2002 à 13:27
12 mai 2002 à 03:31
11 mai 2002 à 21:10