MENU CONTEXTUEL

Option Strict Off
Option Explicit On
Imports System.io
Public Class Form1
    'Fonction API pour ouvrir l'utilitaire
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    Dim fichier As String
    Dim whole_file As String
    Dim nom() As String
    Dim chemin() As String
    Dim i As Short
    Dim txt As String
    Dim fnum As Short
#Region "Ouverture"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        UserStrip.Text = My.User.Name 'nom du propriétaire
        dateStrip.Text = Now.Date.ToLongDateString 'on affiche la date
        heureStrip.Text = TimeOfDay 'On affiche l'heure
        Me.btndelete.Enabled = False 'Inactif à l'ouverture
        Me.btnval.Enabled = False 'Inactif à l'ouverture

        'On remplit le comboBox2 nom à l'ouverture
        ComboBox2.Items.Clear()
        ' Recevez le dossier entier.
        whole_file = GrabFile(My.Application.Info.DirectoryPath & "\nom.txt")
        'Cassez le dossier dans les lignes.
        nom = Split(whole_file, vbCrLf)
        ' Ajoutez les lignes au ComboBox.
        For i = LBound(nom, 1) To UBound(nom, 1)
            txt = Trim(nom(i))
            If Len(txt) > 0 Then ComboBox2.Items.Add(txt)
        Next i

        'On remplit le comboBox1 chemin à l'ouverture
        ComboBox1.Items.Clear()
        ' Recevez le dossier entier.
        whole_file = GrabFile(My.Application.Info.DirectoryPath & "\chemin.txt")
        'Cassez le dossier dans les lignes.
        chemin = Split(whole_file, vbCrLf)
        ' Ajoutez les lignes au ComboBox.
        For i = LBound(chemin, 1) To UBound(chemin, 1)
            txt = Trim(chemin(i))
            If Len(txt) > 0 Then ComboBox1.Items.Add(txt)
        Next i
    End Sub
#End Region
#Region "Bouton"
    Private Sub btnval_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnval.Click
        'On entre le chemin
        If Me.ComboBox1.Text = "" Or Me.ComboBox2.Text = "" Then
            MsgBox("Vous devez remplir les deux champs")
            Exit Sub
        End If
        'On crée la clé
        Dim wsh As Object
        wsh = CreateObject("WScript.Shell")
        wsh.RegWrite("HKCR\Folder\shell\" & ComboBox2.Text & "\Command\", (ComboBox1.Text))
        MsgBox(" Votre clé est crée à l'emplacement:HKCR\Folder\shell\" & ComboBox2.Text)

    End Sub

    Private Sub btnopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen.Click
        'On cherche le chemin de l'exe
        Dim dialog As New OpenFileDialog
        dialog.InitialDirectory = System.Environment.CurrentDirectory
        dialog.ShowDialog()
        If dialog.FileName <> "" Then
            Me.ComboBox1.Text = dialog.FileName
        End If
    End Sub

    Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
        'Message d'erreur si l'on ne sélectionne pas une clé
        If ListBox1.Text = "" Then
            MsgBox("Sélectionnez une clé", MsgBoxStyle.Critical, )
            Exit Sub
        End If
        'on supprime la clé sélectionnée
        Dim rep As DialogResult
        rep = MsgBox("Supprimer la clé?", MessageBoxButtons.YesNo, )
        If rep = MsgBoxResult.No Then
            Exit Sub
        End If
        Dim s As String
        s = Me.ListBox1.SelectedItem
        Dim key As Microsoft.Win32.RegistryKey
        key = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("Folder\shell\", True)
        key.DeleteSubKeyTree(s)
        Me.ListBox1.Items.Clear()
        charger()
    End Sub


    Private Sub btncle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncle.Click
        'On affiche la clé
        Me.ListBox1.Items.Clear()
        charger()
    End Sub
    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        'On nettoie
        Me.ListBox1.Items.Clear()
        Me.ComboBox1.Text = ""
        Me.ComboBox2.Text = ""
        Me.btnval.Enabled = False 'Inactif
    End Sub
#End Region
#Region "ComboBox"
    ' Rendez les contenus du dossier.
    Private Function GrabFile(ByVal file_name As String) As String
        On Error GoTo NoFile
        fnum = FreeFile()
        FileOpen(fnum, file_name, OpenMode.Input)
        GrabFile = InputString(fnum, LOF(fnum))
        FileClose(fnum)
        Exit Function

NoFile:
        GrabFile = ""
    End Function

    ' Écrivez le chemin du dossier.
    Private Sub WriteFile(ByVal file_name As String, ByVal txt As String)
        fnum = FreeFile()
        FileOpen(fnum, file_name, OpenMode.Output)
        Print(fnum, txt)
        FileClose(fnum)
    End Sub

    Private Sub ComboBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.TextChanged
        'On affiche le bouton
        Me.btnval.Enabled = True 'Actif
    End Sub
    Private Sub SaveToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem1.Click
        'On entre le chemin
        If Me.ComboBox1.Text = "" Then
            MsgBox("Vous devez remplir le champs")
            Exit Sub
        End If
        sauvegarder_chemin() 'On sauvegarde dans le fichier chemin
        MsgBox(ComboBox1.Text & " est sauvegardé dans le fichier chemin")
    End Sub

    Private Sub DeleteToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteToolStripMenuItem2.Click
        If ComboBox1.SelectedIndex > -1 Then
            ComboBox1.Items.RemoveAt(ComboBox1.SelectedIndex)
        Else
            ComboBox1.Text = "" 'On supprime dans le fichier chemin
        End If
        MsgBox("supprimé du fichier chemin")
        'Sauvez les données pour la fois suivante.
        sauvegarder_chemin()
    End Sub
    Private Sub SauverToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SauverToolStripMenuItem1.Click
        'On entre le nom
        If Me.ComboBox2.Text = "" Then
            MsgBox("Vous devez remplir le champs")
            Exit Sub
        End If
        sauver_nom() 'On sauvegarde dans le fichier nom
        MsgBox(ComboBox2.Text & " est sauvegardé dans le fichier nom")

    End Sub
    Private Sub SupprimerToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupprimerToolStripMenuItem2.Click
        If ComboBox2.SelectedIndex > -1 Then
            ComboBox2.Items.RemoveAt(ComboBox2.SelectedIndex)
        Else
            ComboBox2.Text = "" 'On supprime dans le fichier nom
        End If
        MsgBox("supprimé du fichier nom")
        'Sauvez les données pour la fois suivante.
        sauver_nom()
    End Sub
#End Region
#Region "Registre"
    'Ouvrir le registre
    Dim hInst, hWndApp As Integer
    Private Sub btnreg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreg.Click
        hInst = Shell("Regedit.exe", AppWinStyle.NormalFocus) 'lance regedit et récup de l'Id
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        'On affiche le bouton
        Me.btndelete.Enabled = True 'Actif
    End Sub

    Private Sub charger()
        'On charge les clés
        Dim key As Microsoft.Win32.RegistryKey
        key = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("Folder\shell\", True)
        Dim t() As String = key.GetSubKeyNames
        Dim i As Integer
        For i = 0 To t.Length - 1
            If t(i) <> "" Then
                Me.ListBox1.Items.Add(t(i))
            End If
        Next
    End Sub
#End Region
#Region "Test"
    'Ouvre l'utilitaire
    Public Function OpenFile(ByRef File As String, Optional ByRef Parametres As String = "") As Object
        ShellExecute(Handle.ToInt32, "Open", File, Parametres, My.Application.Info.DirectoryPath, 1)
        OpenFile = 1
    End Function

    Private Sub OpenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem1.Click
        'On entre le chemin
        If Me.ComboBox1.Text = "" Then
            MsgBox("Vous devez remplir le champs")
            Exit Sub
        End If
        fichier = ComboBox1.Text 'chemin de l'utilitaire
        Try
            OpenFile(fichier) 'Ouvre l'utilitaire
        Catch ex As Exception
        End Try
    End Sub
#End Region
#Region "DLL et OCX"
    Private Sub btnenreg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenreg.Click
        Shell("regsvr32 " & ComboBox1.Text)
    End Sub

    Private Sub btnsup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsup.Click
        Shell("regsvr32 /u " & ComboBox1.Text)
    End Sub
#End Region
#Region "Quitter"
    Private Sub btnquit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquit.Click
        Dim answer As MsgBoxResult
        answer = MsgBox("Avez-vous terminé?", MsgBoxStyle.YesNo)
        If answer = MsgBoxResult.Yes Then
            MsgBox("à Bientôt")
            'Sauvez les données pour la fois suivante.
            sauver_nom()
            sauvegarder_chemin()
            End
        End If
    End Sub
    'Sauvez les données pour la fois suivante.
    Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        sauver_nom()
        sauvegarder_chemin()
    End Sub
#End Region

   
  
End Class

Télécharger le zip

19 novembre 2007 17:50:20 :

J'ai ajouté une suppression de la clé "Mon Favori". Attention car vous entrez dans le registre ne supprimez que cette clé!!! Merci à "simoneo" pour son code de suppression.

26 novembre 2007 10:20:26 :

Mettre le "Gestionnaire des tâches" dans le menu contextuel: Copier et coller la source en remplacement. Le processus est le même que précédemment. Le chemin est le suivant: Classes_Root\Folder\shell\Gestionnaire des tâches\Command

29 mai 2008 12:29:54 :

Ajout du code en VBA Excel grâce au module de "Tom Pouce" que je remercie

30 mai 2008 21:17:37 :

Suppression du copier-coller dans les 2 codes VB2005 et VBA. Il suffit de chercher le chemin et de valider et votre application est dans le menu contextuel.

30 mai 2008 21:23:08 :

J'ai oublié de changer le code

31 mai 2008 12:03:02 :

Vous pouvez nommer vos exe et de ce fait en mettre autant que vous voulez et les supprimer de la même manière en entrant le nom de l'exe. Le code de l'écriture dans le registre est en VBA je l'ai trouvé sur http://frederic.sigonneau.free.fr/ . Je remercie l'auteur

31 mai 2008 12:05:30 :

J'ai encore oublié le nouveau code

05 juin 2008 12:20:31 :

Ajout de ComboBox pour garder en mémoire dans des fichiers textes les noms et les chemins des exe. Des exe utilitaires sont préprogrammés: Editeur du registre, Gestionnaire des Tâches etc.De ce fait l'emplacement dans le registre a changé il est avec "Ouvrir" et "Explorer".Les codes sont en VB2005 et en VBA Excel

07 juin 2008 16:05:13 :

VB2005: Modifié la suppression dans les fichiers textes pour la rendre plus simple, directe sans ouvrir le fichier.

19 juillet 2008 16:00:12 :

Ajout en VB2005 et en VBA Excel de l'enregistrement et le désenregistrement des DLL et des OCX.

19 juillet 2008 17:10:30 :

Un petit problème avec un fichier texte.