Imports System.Net

Public Class Form6
    Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Visible = False
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Try
            If My.Computer.Network.Ping("www.google.com") = True Then
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server temps.txt")
                If vri = 1 Then
                    Form1.NotifyIcon1.BalloonTipText = "Le serveur de extrème downloaders est en maintence, merci de relancer Extrème Downloaders plus tard"
                    Form1.NotifyIcon1.BalloonTipTitle = "serveur"
                    Form1.NotifyIcon1.ShowBalloonTip(1)
                    Timer2.Start()
                Else
                    Timer1.Start()
                End If
            Else
                Form1.NotifyIcon1.BalloonTipText = "vous êtes pas connecter a internet"
                Form1.NotifyIcon1.BalloonTipTitle = "connection"
                Form1.NotifyIcon1.ShowBalloonTip(1)
                Timer2.Start()
            End If
        Catch ex As Exception
            Form1.NotifyIcon1.BalloonTipText = "vous êtes pas connecter a internet"
            Form1.NotifyIcon1.BalloonTipTitle = "connection"
            Form1.NotifyIcon1.ShowBalloonTip(1)
            Timer2.Start()
        End Try
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        End
    End Sub
End Class