none
Meilleur article de 15/07/2010 - 15/08/2010 RRS feed

  • Discussion générale

  • Base de registre par le code : lire, écrire, supprimer une clef

    ' Accès BDR (regEdit.exe) par le code : lire, écrire, supprimer
    Option Explicit On
    Public Class Form1 ' objets = 3 (form1 + button1 + button2
    
     ' exemple de gestion du lancement d'un programme au démarrage
     ' Avant l'installation le répertoir par défaut de l'exe est "BIN" ... 
    
     Dim clefExiste As Boolean = False
     Dim laClef As String = "EhJoeTest" ' nom identifiant libre
     '
     Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Call TestClefExistante() ' écrit la clef si inexistante
      If clefExiste = True Then Exit Sub
      Dim ecrit As Microsoft.Win32.RegistryKey
      ecrit = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
      ecrit.SetValue("EhJoeTest", My.Application.Info.DirectoryPath & "\TestJoe.exe")
      MsgBox(laClef & vbLf & "Vient d'être enregistré (en démarrage) dans la BDR", vbInformation)
      ecrit.Close()
     End Sub
    
     Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      Call TestClefExistante() ' supprime la clef si existante
      If clefExiste = False Then Exit Sub
      Dim detruit As Microsoft.Win32.RegistryKey
      detruit = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
      detruit.DeleteValue(laClef)
      MsgBox(laClef & vbLf & "A été détruite de la BDR ", vbExclamation)
      detruit.Close()
     End Sub
    
     Sub TestClefExistante() ' Teste si une clef existe
      Dim teste = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
      Dim lit As String = CType(teste.GetValue(laClef), String)
      Select Case lit
       Case Is <> "" 'existe
        clefExiste = True
        MsgBox("La clef existe déjà", vbExclamation)
       Case "" ' n'existe pas
        clefExiste = False
        MsgBox("La clef n'existe pas", vbExclamation)
      End Select
      teste.Close()
     End Sub
    
    End Class


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire

    • Modifié EhJoe jeudi 12 août 2010 19:55 1 ajout code
    • Fractionné Alex Petrescu lundi 16 août 2010 07:49 meilleur article
    jeudi 12 août 2010 10:55