NOTIFYICON

Option Explicit On
Imports System.IO
Imports System.Text
Imports Microsoft.Win32
Public Class Form1
    Public url(100) As String
    Public texte(100) As String
    Public categorie(100) As Integer
    Public p As Integer
    Public numchaine As Integer
    'Lancer au démarrage
    Private o_ClefRegistre As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
    Private o_CR As Object = o_ClefRegistre.GetValue("NotifyIcon")
    Private Const CS_NOCLOSE As Integer = &H200
#Region " Chemins URL et Clés registre"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       NotifyIcon1.Visible = True
        NotifyIcon1.Text = "NotifyIcon"
        Actualiser() 'on affiche les infos
        'Check si la clef de registre "NotifyIcon" existe dans le run
        ToolStripMenuItemdemarrage.Checked = (o_CR IsNot Nothing)
        'on enlève le formulaire principal de la barre de tâche
        Me.Hide()
    End Sub
    Private Sub Actualiser() 'on affiche les infos
        'Afficher les URL
        Dim fichier As String
        Dim ligne As String ' Variable contenant le texte de la ligne
        Dim champs(3) As String
        Dim SubItem As ToolStripMenuItem
        fichier = My.Application.Info.DirectoryPath & "\Favoris.txt"
        Dim monStreamReader As StreamReader = New System.IO.StreamReader(fichier, Encoding.Default) 'Stream pour la lecture avec caractères accentués du fichier
        AdresseToolStripMenuItem.DropDownItems.Clear() 'on nettoie la liste déroulante
        FichierToolStripMenuItem.DropDownItems.Clear() 'on nettoie la liste déroulante
        p = 0
        Do
            ligne = monStreamReader.ReadLine
            If (ligne > "") Then
                champs = ligne.Split(",")
                texte(p) = champs(0)
                url(p) = champs(1)
                categorie(p) = champs(2)
                Select Case categorie(p)
                    Case 0 ' URL
                        SubItem = New ToolStripMenuItem(champs(0), Nothing, Nothing, "M" & p)
                        AdresseToolStripMenuItem.DropDownItems.Add(SubItem)
                        AddHandler SubItem.Click, AddressOf AdresseToolStripMenuItem_subitem_Click
                    Case 1 ' Clés registre
                        SubItem = New ToolStripMenuItem(champs(0), Nothing, Nothing, "M" & p)
                        FichierToolStripMenuItem.DropDownItems.Add(SubItem)
                        AddHandler SubItem.Click, AddressOf FichierToolStripMenuItem_subitem_Click
                End Select
                p += 1
            End If
        Loop Until ligne Is Nothing
        monStreamReader.Close()
    End Sub
    Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click
        ' On ouvre le formulaire Ajoutadresse
        Ajoutadresses.ShowDialog()
        Me.Hide()
    End Sub
    Private Sub Actu_ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Actu_ToolStripMenuItem1.Click
        Actualiser() 'on actualise la liste déroulante
        Me.Hide()
    End Sub
#End Region
#Region "Ouvrir URL"
    Private Sub AdresseToolStripMenuItem_subitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdresseToolStripMenuItem.Click
        'On ouvre l'adresse URL
        Call cliquersurmenu(sender.text)
        Me.AdresseToolStripMenuItem.Enabled = True
        'on enlève le formulaire principal de la barre de tâche
        Me.Hide()
    End Sub
    Public Sub cliquersurmenu(ByVal sender)
        Dim o As Integer
        For o = 0 To p - 1
            If texte(o) = sender Then
                numchaine = o ' On enregistre le numéro de chaine pour le mettre en favoris
                System.Diagnostics.Process.Start(url(o)) 'ouvre le chemin de l'url
            End If
        Next
    End Sub
#End Region
#Region "Ouvrir clés registre"
    Private Sub FichierToolStripMenuItem_subitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FichierToolStripMenuItem.Click
        'On ouvre l'adresse clés
        Call clicksurmenu(sender.text)
        Me.FichierToolStripMenuItem.Enabled = True
        'on enlève le formulaire principal de la barre de tâche
        Me.Hide()
    End Sub
    Public Sub clicksurmenu(ByVal sender)
        Dim o As Integer
        For o = 0 To p - 1
            If texte(o) = sender Then
                numchaine = o ' On enregistre le numéro de chaine 
                lblkey.Text = (url(o))
                ouvrir_clé()
            End If
        Next
    End Sub
    Private Sub ouvrir_clé()
        Dim WshShell As Object
        WshShell = CreateObject("WScript.Shell")
        Dim MyKey
        MyKey = lblkey.Text 'chemin de la clé
        MyKey = "My Computer\" & MyKey
        WshShell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Lastkey", MyKey, "REG_SZ")
        WshShell.Run("regedit", 1, True)
        WshShell = Nothing
    End Sub
#End Region
#Region "Lancer au démarrage"
    Private Sub LancerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemdemarrage.Click
        If ToolStripMenuItemdemarrage.Checked Then
            ToolStripMenuItemdemarrage.Checked = False
            If o_CR IsNot Nothing Then
                o_ClefRegistre.DeleteValue("NotifyIcon")
                o_CR = Nothing
            End If
        Else
            o_ClefRegistre.SetValue("NotifyIcon", My.Application.Info.DirectoryPath & "\NotifyIcon.exe")
            o_CR = o_ClefRegistre.GetValue("NotifyIcon")
            ToolStripMenuItemdemarrage.Checked = True
        End If
    End Sub
    Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Left Then Me.NotifyIcon1.ShowBalloonTip(5000)
    End Sub
   #End Region
    Private Sub QuitterToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem1.Click
        'On ferme le programme en demandant une réponse
        Dim answer As MsgBoxResult
        answer = MsgBox("Avez-vous terminé?", MsgBoxStyle.YesNo)
        If answer = MsgBoxResult.Yes Then
            MsgBox(" à Bientôt")
            ' on enlève l'icône de la zone de notification
            NotifyIcon1.Visible = False
            End
        End If

    End Sub
End Class