Export/Import clés de registre

Version imprimable

07/03/2012, 18h57
PapyBulleur

Export/Import clés de registre

Bonjour à tous les intervenants sur ce forum,

Ma question : Comment sauvegarder (Et recharger ensuite) une des clés et ses sous-clés de la base de registre.
Autre formulation : J'aimerai savoir utiliser RegSaveKey et les fonctions associées telles que RegLoadKey.
Ceci avec Visual Studio 2010 et en VB.

Bien entendu, je n'ai rien trouvé sur le Web ... Merci d'avance pour votre aide.
07/03/2012, 19h08
Sankasssss

Bonsoir,

une petite recherche sur internet : https://www.google.be/search?sourcei...egistre+vb.net

nous donnes pas mal de page dont celle de MSDN

Cela n'est-il pas bon?
07/03/2012, 21h05
PapyBulleur

Merci de votre réponse rapide. C'est toujours très agréable.
Toutefois, les liens proposés ne répondent pas à la question de l'export de clés (Environ 300 valeurs) dans un fichier .reg ou autre que je pourrais recharger ensuite. J'ai vraiment beaucoup cherché sans résultat.
Une solution serait de lire chaque clé et de construire un fichier .txt et de faire ensuite quand j'en ai besoin la manipulation inverse mais ce n'est pas très élégant. Utiliser RegSaveKey me semblait préférable ...
Votre avis ? Bonne soirée.

Il est vrais que si une fonction existe autant l'utiliser.
J'ai trouvé sur un site cette réponse :

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
Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Private Const KEY_ALL_ACCESS As Integer = &HF003F
 
    Private ReadOnly HKEY_LOCAL_MACHINE As New IntPtr(-2147483646)
 
    <DllImport("Advapi32")> _
    Private Shared Function RegOpenKeyEx(ByVal hKey As IntPtr, _
                                         ByVal lpSubKey As String, _
                                         ByVal ulOptions As Integer, _
                                         ByVal samDesired As Integer, _
                                         ByRef phkResult As IntPtr) As Long
    End Function
 
    <DllImport("Advapi32")> _
    Private Shared Function RegSaveKey(ByVal hKey As IntPtr, _
                                       ByVal lpFile As String, _
                                       ByVal lpSecurityAttributes As Integer) As Long
    End Function
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim key As IntPtr
 
            RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
                         "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
                         Nothing, _
                         KEY_ALL_ACCESS, _
                         key)
            RegSaveKey(key, _
                       IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, _
                                       "Run.reg"), _
                       Nothing)
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try
    End Sub
 
End Class

Mais ils disent qu'il n'est pas fonctionnel, il faudrait analyser pourquoi, c'est déjà un bon point de départ...

[EDIT] Je viens de tester, et il ne génère pas d'erreur, le fichier est créé mais il est vide :? il faut investiguer cela...

08/03/2012, 12h04
PapyBulleur

L'essai du code proposé ne fonctionne pas sur mon ordi même en changeant quelques éléments (HKLM par HKCU ou le chemin de la clé par exemple).
Il ne crée pas de fichier (Contrairement à vous) mais ne provoque pas d'erreur non plus (Ouf).
La discussion sur le site qui propose ce code s'est arrêtée sans conclusion ...
Pourtant ce code montre bien la mise en oeuvre des 2 fonctions qui m'intéressent (RegsaveKey et RegOpenKey). Le problème réside peut-être dans la déclaration de constante KEY-ALL_ACCESS ou la valeur de IntPtr ?
Bonne journée.
08/03/2012, 15h45
Sankasssss

Petite remarque, pour accéder au registre, le programme doit être démarrer avec les droits administrateur. Dans mon cas, j'avais lancé VS en tant qu'administrateur pour qu'il crée le fichier, j'avais omis ce détail important :oops:
08/03/2012, 16h36
PapyBulleur

Désolé mais toujours au même point : pas de fichier créé, malgré le démarrage de VS avec les droits administrateur.

A ce stade, pensez-vous qu'il y ait une solution à ma demande initiale : "Comment sauvegarder (Et recharger ensuite) une des clés et ses sous-clés de la base de registre" ? Je trouve étrange que l'on ne trouve rien sur le Net !

Si non, il me reste toujours la solution de lire chaque clé et de construire un fichier .txt et de faire ensuite, quand j'en ai besoin, la manipulation inverse.
08/03/2012, 20h43
Sankasssss

Des solutions il doit y en avoir en cherchant un peu...
Rien qu'en lançant une autre petite recherche je suis tombé sur ceci et en parcourant rapidement la page ça à l'aire de fonctionner ;)

Sinon rien ne vous empêche en effet de coder tout cela vous même :)
08/03/2012, 21h09
PapyBulleur

De nouveau en développant, sur le site que vous m'indiquez, la fonction advapi32 dans les Desktop Functions on ne trouve pas RegSaveKey. Il doit y avoir "un truc" avec cette fonction !
Je vais continuer les recherches sur le net car il semble que je ne suis pas passé partout ...
Quoi qu'il en soit cette discussion m'a ouvert des horizons et je vous remercie beaucoup de votre aide et du temps que vous m'avez accordé. :)
08/03/2012, 21h26
Sankasssss

Avec plaisir, n'hésitez pas à poster le résultat de vos recherches dans cette discussion même si elles sont infructueuse, d'autres pourraient tomber sur la discussion et apprécieraient d'y trouver la solution :ccool:

Bonne recherche :pc:

N'ayant pas trouvé la façon d'utiliser les fameuses fonctions, j'ai contourné mon problème en utilisant une approche différente basée sur ces deux lignes :

* Shell("reg import " & cheminFichierReg & fichierReg
* Shell("reg export " & cheminCléRegProfiles & " " & cheminFichierReg & fichierRegOrdi)

NB : Une recherche avec reg import, par exemple, montre d'autres instructions utiles dans la même famille.

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
 
' 1- Sauvegarde valeurs actuelles de l'utilisateur
        File.Delete(cheminFichierReg & fichierRegOrdi) ' Pas de test car de problème s'il n'existe pas
        System.Threading.Thread.Sleep(1000) ' Délai pour le delete avant l'export depuis registre
        If Shell("reg export " & cheminCléRegProfiles & " " & cheminFichierReg & fichierRegOrdi) = 1 Then
            MessageBox.Show(" Erreur d'Export fichier reg !" & vbCrLf & vbCrLf & _
                            " Bla, bla ..." & vbCrLf & vbCrLf & _
                            " REGISTRE", MessageBoxButtons.OK, MessageBoxIcon.Error)
            boolFlagPDF = False
            Exit Sub
        End If
 
        ' 2- Chargement des valeurs nécessaires pour l'appli. NB : Importe sans message DOS --> OK !
        System.Threading.Thread.Sleep(1500) ' Délai avant l'import dans registre. NB : Bon fonctionnement avec 750 ms
        If File.Exists(cheminFichierReg & fichierReg) Then
            If Shell("reg import " & cheminFichierReg & fichierReg) = 1 Then
                MessageBox.Show(" Erreur d'Import fichier reg !" & vbCrLf & vbCrLf & _
                                " Bla, bla" & vbCrLf & vbCrLf & _
                                " REGISTRE", MessageBoxButtons.OK, MessageBoxIcon.Error)
                boolFlagPDF = False
                Exit Sub
            Else
                boolFlagPDF = True 
            End If
        Else
            MessageBox.Show(" Erreur, le fichier : regProfilesPDF.reg" & vbCrLf & vbCrLf & _
                            " n'existe plus ou a été déplacé !" & vbCrLf & vbCrLf & _
                            " Bla, bla..." & vbCrLf & vbCrLf & _
                            " REGISTRE", MessageBoxButtons.OK, MessageBoxIcon.Error)
            boolFlagPDF = False
            Exit Sub
        End If

Merci Sankasssss de m'informer de toute nouveauté sur ce sujet.