Imports System.IO

Public Class Form14

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form1.NotifyIcon2.Visible = False
        Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            My.Computer.Network.DownloadFile("http://logiciels2.extreme-downloaders.fr/extrème downloaders/Extrème downloaders.exe", dosmisajour & "\Extrème downloaders.exe")
            file123()
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub
    Sub file123()
        Dim sw1 As New StreamWriter(dosmisajour & "appli.txt")
        sw1.WriteLine(Application.StartupPath)
        sw1.Close()
        dlupdate()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Try
            My.Computer.Network.DownloadFile("http://logiciels2.extreme-downloaders.fr/extrème downloaders/Extrème downloaders.exe", dosmisajour & "\Extrème downloaders.exe")
            file123()
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub
    Sub dlupdate()
        Try
            My.Computer.Network.DownloadFile("http://logiciels2.extreme-downloaders.fr/extrème downloaders/Extrème downloaders update.exe", dosmisajour & "\Extrème downloaders update.exe")
            mister
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub
    Sub mister()
        Try
            Process.Start(dosmisajour & "\Extrème downloaders update.exe")
            End
        Catch ex As Exception
            MsgBox("merci de clique sur oui pour effectuer la mise a jours", MsgBoxStyle.Critical)
            Timer3.Start()
        End Try
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        Try
            My.Computer.Network.DownloadFile("http://logiciels2.extreme-downloaders.fr/extrème downloaders/Extrème downloaders update.exe", dosmisajour & "\Extrème downloaders update.exe")
            mister()
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Timer3.Stop()
        Try
            Process.Start(dosmisajour & "\Extrème downloaders update.exe")
            End
        Catch ex As Exception
            MsgBox("merci de clique sur oui pour effectuer la mise a jours", MsgBoxStyle.Critical)
            Timer3.Start()
        End Try
    End Sub
End Class