39 lines
1.6 KiB
VB.net
39 lines
1.6 KiB
VB.net
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 |