LIRE, ÉCRIRE, EFFACER DANS LA BASE DE REGISTRE LE PLUS SIMPLEMENT DU MONDE !
cs_Florent
Messages postés
53
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
22 novembre 2005
-
11 mai 2002 à 21:10
cs_didine13 Messages postés 96 Date d'inscription mardi 18 août 2009 Statut Membre Dernière intervention 14 août 2013 - 2 sept. 2010 à 17:45
cs_didine13 Messages postés 96 Date d'inscription mardi 18 août 2009 Statut Membre Dernière intervention 14 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.
https://codes-sources.commentcamarche.net/source/3261-lire-ecrire-effacer-dans-la-base-de-registre-le-plus-simplement-du-monde
https://codes-sources.commentcamarche.net/source/3261-lire-ecrire-effacer-dans-la-base-de-registre-le-plus-simplement-du-monde
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