Imports System.ComponentModel
Imports System.IO
Imports System.Net

Public Class Form162
    Public form162misdev As Integer = 0
    Private Sub Form162_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If form162misdev = 0 And vrportable = 0 Then
            My.Computer.Network.DownloadFile("http://lecteur2.lecteur-media.fr/lecteur/newversion.txt", misajours & "versiontemps.txt")
            misdlno = 1
            Dim maj As New WebClient
            Dim download As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/telechargement%20v2.txt")
            téléchargerfr = New WebClient
            téléchargerfr.DownloadFileTaskAsync(New Uri(download), (misajours & "mis a jours.zip"))
        ElseIf vrportable = 1 Then
            misdlno = 1
            téléchargerfr = New WebClient
            téléchargerfr.DownloadFileTaskAsync(New Uri("http://lecteur2.lecteur-media.fr/lecteur/version portable.zip"), (misajours & "mis a jours.zip"))
        Else
            My.Computer.Network.DownloadFile("http://lecteur2.lecteur-media.fr/lecteur/newversion.txt", misajours & "versiontemps.txt")
            misdlno = 1
            téléchargerfr = New WebClient
            téléchargerfr.DownloadFileTaskAsync(New Uri("http://lecteur2.lecteur-media.fr/lecteur/mis a jours dev.zip"), (misajours & "mis a jours.zip"))
        End If
    End Sub

    Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
        My.Computer.Network.DownloadFile("http://lecteur2.lecteur-media.fr/lecteur/lecteur média update.exe", misajours & "lecteur média update.exe")
        misdlno = 0
        misdlok = 1
        Form1.NotifyIcon3.Visible = True
        Form1.NotifyIcon3.BalloonTipTitle = "Mise à jour"
        Form1.NotifyIcon3.BalloonTipText = "Une mise à jour est prête a été installer"
        Form1.NotifyIcon3.ShowBalloonTip(0)
        Close()
    End Sub

    Dim WithEvents téléchargerfr As WebClient
End Class