Patcher le Registre avec un exécutable ? Possible ?

J'ai un préiphérique usb qui demande beaucoup de soin pour etre à chaque fois monté correctement par XP SP2.

Je souhaiterai swticher toutes mes manips sur le Registre via regedit, etc, à l'aide D'UN EXECUTABLE DE TYPE *.EXE.

Est ce que cela est possible, ou, au contraire, Windows empeche t il fondamentalement ce genre de chose pour des raisons "évidentes de sécurité" ?

Merci pour vos réponses.

C'est tout à fait possible. Tout ce que sait faire regedit peut se faire au travers de l'API WIN32.

Le point d'entrée de cette API est ici (désolé, la doc MSDN est en anglais)

merci ram0008,

mon objectif étant de supprimer les LowerFilter de certaines clés dans HKEY_CURRENT_MACHINE/controlset/control/class pour palier à des problèmes de reconnaissance de périphériques USB,

saurais tu à quoi correspondent ces filtres ? (lower et higher)

Merci

Citation:

Envoyé par ttone

saurais tu à quoi correspondent ces filtres ? (lower et higher)

Non, désolé

J'ai trouvé mon bonheur.
Mais sous quel format faut il l'enregistrer ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
# Option Explicit
#
# Dim lng As Long
# Dim Buff As Long
#
# '-------------------------------------------------------'
# 'ATTENTION : NE PAS METTRE DE \ AU DEBUT DU CHEMIN !!!!!'
# '-------------------------------------------------------'
#
# '-------------------------------------------------------'
# 'LAISSER VALEUR VIDE POUR LA CHAINE PAR DEFAUT '
# '-------------------------------------------------------'
#
#
# 'Constantes correspondant aux cinq clés
# 'à la base 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_DYN_DATA = &H80000004
#
# Public Enum HCle
# HKeyLocalMachine = 0
# HKeyCurrentUser = 1
# HKeyClassesRoot = 2
# HKeyUsers = 3
# HKeyDynamicData = 4
# End Enum
#
# 'API nécessaires
#
# 'pour créer ou ouvrir une clé
# Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
# (ByVal HKey As Long, _
# ByVal lpSubKey As String, _
# phkResult As Long) As Long
#
# 'pour supprimer une clé
# Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" _
# (ByVal HKey As Long, _
# ByVal lpSubKey As String) As Long
#
# 'pour supprimer une valeur
# Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _
# (ByVal HKey As Long, _
# ByVal lpSubKey As String) As Long
#
# 'pour lire une valeur
# Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
# (ByVal HKey As Long, _
# ByVal lpValueName As String, _
# ByVal lpReserved As Long, _
# lpType As Long, _
# lpData As Any, _
# lpcbData As Long) As Long
#
# 'pour fixer ou créer une valeur
# 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, _
# ByVal lpData As Any, _
# ByVal cbData As Long) As Long
#
# Public Function CreerCle(HK As HCle, Chemin As String) As Long
# RegCreateKey HKConvert(HK), Chemin, lng
# CreerCle = lng
# End Function
#
# Private Function HKConvert(HK As HCle) As Long
# If HK = 2 Then HKConvert = HKEY_CLASSES_ROOT
# If HK = 1 Then HKConvert = HKEY_CURRENT_USER
# If HK = 0 Then HKConvert = HKEY_LOCAL_MACHINE
# If HK = 3 Then HKConvert = HKEY_USERS
# If HK = 4 Then HKConvert = HKEY_DYN_DATA
# End Function
#
# Public Function SupprCle(HK As HCle, Chemin As String)
# RegDeleteKey HKConvert(HK), Chemin
# End Function
#
# Public Function DonnerValeur(HK As HCle, Chemin As String, Valeur As String, Donnee As String)
# RegCreateKey HKConvert(HK), Chemin, lng
# RegSetValueEx lng, Valeur, 0&, 1, Donnee, Len(Donnee) + 1
# End Function
#
# Public Function LireValeur(HK As HCle, Chemin As String, Valeur As String) As String
# Buff = 0
# Buff = RegCreateKey(HKConvert(HK), Chemin, lng)
# If Buff = 0 Then RegQueryValueEx lng, Valeur, 0&, 1, 0&, Buff
# If Buff < 2 Then
# LireValeur = ""
# Exit Function
# End If
# LireValeur = String(Buff + 1, " ")
# RegQueryValueEx lng, Valeur, 0&, 1, ByVal LireValeur, Buff
# LireValeur = Left(LireValeur, Buff - 1)
# End Function
#
# Public Function SupprValeur(HK As HCle, Chemin As String, Valeur As String)
# Buff = 0
# Buff = RegCreateKey(HKConvert(HK), Chemin, lng)
# If Buff = 0 Then RegDeleteValue lng, ByVal Valeur
# End Function
#
#
# Public Sub Run(Parametre As String)
# DonnerValeur HKeyLocalMachine, "Software\Microsoft\Windows\CurrentVersion\Run", App.Title, App.Path & "\" & App.EXEName & ".exe " & Parametre
# End Sub
#
# Public Function IsRun() As Boolean
# If LireValeur(HKeyLocalMachine, "Software\Microsoft\Windows\CurrentVersion\Run", App.Title) <> "" Then IsRun = True Else IsRun = False
# End Function
#
# Public Sub DelRun()
# SupprValeur HKeyLocalMachine, "Software\Microsoft\Windows\CurrentVersion\Run", App.Title
# End Sub