Sujet Précédent Sujet Suivant

Base de registre

frankounett - 13 sept. 2001 à 23:32
 frankounett - 16 sept. 2001 à 11:07
j'ai trouvé dans Hackerz Voice (un petit fanzine alternatif) un petit prog pour modifier la base de registre.J'avoue que ça me tente mais il est inutilisable tel quel.
Si ça vous tente de me le rectifier, c'est sympa. Je ne sais pas trop où chercher...

3 réponses

Réponse 1 / 3
frankounett
13 sept. 2001 à 23:40
-------------------------------
Réponse au message :
-------------------------------

j'ai trouvé dans Hackerz Voice (un petit fanzine alternatif) un petit prog pour modifier la base de registre.J'avoue que ça me tente mais il est inutilisable tel quel.
Rassurez vous je possède quelques notions de VB et je sais où se trouve la Base de registres, mais ces lignes, qui me semblent pourtant pas très loin de la vérité m'exaspèrent. Merci !!!

Dim WSHShell
SetWSHShell = Wscript.CreateObject(<<Wscript.Shell»)
WSHShelLRegWrite «HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun »,1,»REG_DWORD»
WSHShell.RégWrite «HKCU\cf2 \Micro-
Soft\cf2 \cf1 Windows\CurrentVersion\cf2 cies\Explorer\Clear-
RecentDocsOnExit»,l,»REG_BINARY»
WSHShell.RegWrite «HKCU\cf2 \Micro-
soft\cf2 \cf1 VWndows\CurrentVersion\cf2 \Explorer\NoClo-
se»,l,»REG_D%)RD»
WSHShell.Règ^Vrite «HKCU\Software\Micro-
soft\cf2 \cf1 Wîndows\CurrentVersion\cf2 \Explorer\NoDes
ktop»,l,»REG_DWORD»
WSHShell.RegWrite «HKCU\Software\Micro-
soft\cf2 indows\CurrentVersion\Policies\Explorer\NoNe-
tHood»,l,»REG_DWORD»
WSHShell.RegWrite «HKCUR\cf1 \cf2 Software\Micro-
soft\cf2 mdows\CurrentVersion\Policies\Explorer\NoSet-
Taskbar»,l,»REG_DWORD»
WSHShell.RegWrite «HKCU\Software\Micro-
soft\cf2 mdows\CurrentVersion\cf2 \Explorer\NoEn-
tireNetwork»,l,»REG_DWORD»
WSHShell.RegWrite «HKCU\Software\Micro-

soft\cf2 mdows\CurrentVersion\cf2 \Explorer\cf2 oFi-
leMenu»,l,»REG_DWORD»
WSHShell.RegWrite «HKCU\cf2 \Micro-
soft\cf2 \CurrentVersion\cf2 licies\Explorer\NoDriv
es»,l,»REG_DWORD»
WSHShell.RegWrite «HKCU\cf2 oftware\cf1 icro-
soft\cf2 \cf1 Windows\CurrentVersionVPolicies\Explorer\NoSa-
veSettmgs»,l,»REG_DWORD»
WSHShell.RegWrite «HKCU\cf2 oftware\Micro-
soft\cf2 îndows\CurrentVersion\cf2 \Explorer\NoFa-
voritesMenu»,l,»REG_DWORD»
WSHShell.RegWrite «HKCU\Software\Micro-
soft\cf2 indows\CurrentVersioiï\cf2 lides\Exûlorer\NoFmd
»,1,»REG_DWORD»
WSHShell.RegWrite «HKCU\cf2 \cf1 Software\Micro-
soft\cf2 mdows\CurrentVersion\cf2 oUcies\cf1 \cf2 Explorer\cf2 -
tartMenuSubFolder»,l,»REG_DWORD»
WSHShell.RegWrite «HKCU\cf1 \cf2 Sôftware\cf1 \cf2 Micro-
soft\cf2 mdows\CumrrentVersion\Policies\Explorer\NoVi
ewContextMenu», 1, » REG_DWORD»
WSHShell.RegWrite «HKCU\Software\Micro-
Soft\cf2 indows\CurrentVersion\Polides\Explorer\NoFa-
voritesMenu»,l,»REG_DWORD»

8-)
0
Réponse 2 / 3
WolfKiller
14 sept. 2001 à 12:41
Salut

Essaye celui-ci. Il vient direct des exemple de VB.
Il fonctionne parfaitement ,je l'utilise avec quelques modif pour ma propre utilisation.

Amuse-toi bien :clown)

' Ce module lit et écrit les clés de la base de registres. Contrairement
' aux méthodes d'accès à la base de regitres interne de VB, il peut lire
' et écrire toute les clés du registre avec des valeurs de type chaîne.

Option Explicit
'---------------------------------------------------------------
'- Déclarations des API de base de registres...
'---------------------------------------------------------------
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByRef phkResult As Long, ByRef lpdwDisposition As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

'---------------------------------------------------------------
'- Constantes des API de base de registres...
'---------------------------------------------------------------
' Types de données de base de registres...
Const REG_SZ = 1 ' chaîne Unicode terminée par nul
Const REG_EXPAND_SZ = 2 ' chaîne Unicode terminée par nul
Const REG_DWORD = 4 ' nombre 32-bit

' Valeurs de type de création...
Const REG_OPTION_NON_VOLATILE = 0 ' clé préservée lorsque le système
' est redémarré

' Options de sécurité de clé de base de registres...
Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL
Const KEY_EXECUTE = KEY_READ
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

' Types de clé Racine de la base de registres...
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004

' Valeur renvoyée...
Const ERROR_NONE = 0
Const ERROR_BADKEY = 2
Const ERROR_ACCESS_DENIED = 8
Const ERROR_SUCCESS = 0

'---------------------------------------------------------------
'- Type Security_Attributes de la base de registres...
'---------------------------------------------------------------
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Boolean
End Type

' Cette procédure va charger la chaîne de ressource associée au contrôle
' sur une feuille en fonction de l'ID de ressource stocké dans la
' la propriété Tag d'un contrôle. Ce module lit et écrit les clés du registre.
' Contrairement aux méthodes d'accès au registre interne de VB, il peut lire et
' écrire toutes les clés du registre avec des valeurs de chaîne.

'-------------------------------------------------------------------------------
'Exemple d'utilisation - Debug.Print UpodateKey(HKEY_CLASSES_ROOT, "NomClé", "NouvelleValeur")
'-------------------------------------------------------------------------------
Public Function UpdateKey(KeyRoot As Long, KeyName As String, SubKeyName As String, SubKeyValue As String) As Boolean
Dim rc As Long ' Code renvoyé
Dim hKey As Long ' Descripteur de
' clé de la base de registres
Dim hDepth As Long '
Dim lpAttr As SECURITY_ATTRIBUTES ' Type Sécurité
' de la base de registres

lpAttr.nLength = 50 ' Affecte les valeurs
' par défaut des
' attributs de sécurité
lpAttr.lpSecurityDescriptor = 0 ' ...
lpAttr.bInheritHandle = True ' ...

'------------------------------------------------------------
'- Crée/Ouvre une clé de base de registres...
'------------------------------------------------------------
rc = RegCreateKeyEx(KeyRoot, KeyName, _
0, REG_SZ, _
REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, lpAttr, _
hKey, hDepth) ' Crée/Ouvre //KeyRoot//KeyName

If (rc <> ERROR_SUCCESS) Then GoTo CreateKeyError ' Gestion des erreurs...

'------------------------------------------------------------
'- Crée/Modifie une valeur de clé...
'------------------------------------------------------------ If (SubKeyValue "") Then SubKeyValue " " ' Un espace est nécessaire pour que
' la fonction RegSetValueEx() fonctionne

' Crée/Modifie une valeur de clé
rc = RegSetValueEx(hKey, SubKeyName, _
0, REG_SZ, _
SubKeyValue, LenB(StrConv(SubKeyValue, vbFromUnicode)))

If (rc <> ERROR_SUCCESS) Then GoTo CreateKeyError ' Gestion des erreurs
'------------------------------------------------------------
'- Ferme une clé de base de registres...
'------------------------------------------------------------
rc = RegCloseKey(hKey) ' Ferme la clé

UpdateKey = True ' Renvoie succès
Exit Function ' Quitte
CreateKeyError:
UpdateKey = False ' Définit le code de renvoi d'erreur
rc = RegCloseKey(hKey) ' Tentative de fermeture de clé
End Function

'-------------------------------------------------------------------------------
'Exemple d'utilisation - Debug.Print GetKeyValue(HKEY_CLASSES_ROOT, "COMCTL.ListviewCtrl.1\CLSID", "")
'-------------------------------------------------------------------------------
Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String) As String
Dim i As Long ' Compteur de boucle
Dim rc As Long ' Code renvoyé
Dim hKey As Long ' Descripteur de clé de base de registres ouverte
Dim hDepth As Long '
Dim sKeyVal As String
Dim lKeyValType As Long ' Type de données d'une clé de base de registres
Dim tmpVal As String ' Stockage temporaire d'une valeur de clé de base de registres
Dim KeyValSize As Long ' Taille d'une variable clé de base de registres

' Ouvre RegKey sous KeyRoot {HKEY_LOCAL_MACHINE...}
'------------------------------------------------------------
rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Ouvre la clé de base de registres

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Gestion des erreurs

tmpVal = String$(1024, 0) ' Alloue de l'espace pour la variable
KeyValSize = 1024 ' Définit la taille de la variable

'------------------------------------------------------------
' Récupère une valeur de clé de base de registres...
'------------------------------------------------------------
rc = RegQueryValueEx(hKey, SubKeyRef, 0, _
lKeyValType, tmpVal, KeyValSize) ' Lit/Crée une valeur de clé

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Gestion des erreurs

tmpVal = Left$(tmpVal, InStr(tmpVal, Chr(0)) - 1)

'------------------------------------------------------------
' Détermine le type de valeur de clé pour la conversion...
'------------------------------------------------------------
Select Case lKeyValType ' Recherche des types de données...
Case REG_SZ, REG_EXPAND_SZ ' Type de données String de clé de base de registres
sKeyVal = tmpVal ' Copie la valeur String
Case REG_DWORD ' Type de données Double Word de clé de base de registres
For i = Len(tmpVal) To 1 Step -1 ' Convertit chaque bit
sKeyVal = sKeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ' Génère la valeur car. par car.
Next
sKeyVal = Format$("&h" + sKeyVal) ' Convertit le type Double Word en String
End Select

GetKeyValue = sKeyVal ' Valeur renvoyée
rc = RegCloseKey(hKey) ' Ferme la clé de base de registres
Exit Function ' Quitte

GetKeyError: ' Nettoyage après apparition d'une erreur...
GetKeyValue = vbNullString ' Affecte une chaîne vide à la valeur renvoyée
rc = RegCloseKey(hKey) ' Ferme la clé de base de registres
End Function
0
Réponse 3 / 3
frankounett
16 sept. 2001 à 11:07
je sais, je sais j'ai l'air con mais je pige quedale ...
j'avais vu ce prog qui permettait de bloquer les accès disques, fichiers, etc...
envoies moi plutôt un vrai exemple et le but recherché.
en fait la BdR c'est vaste, si vaste...
0

Discussions similaires

extraction de données d'une base oracle
amrouche015 -
nhervagault -

5 réponses
Prob de Restauration base de données
cindyb -
Orange -

3 réponses
conception base de données e-commerce
av -
f0xi -

4 réponses
Problème de lenteur, accès distant à base Access
pjouy -
pjouy -

6 réponses
Base de données voitures Marques et Modeles
phpconcept_ladenree -
asma1989 -

3 réponses
Rejoignez-nous