first commit

2026-06-18 14:07:09 +02:00
commit 210c34ac8b
310 changed files with 222490 additions and 0 deletions
@@ -0,0 +1,39 @@
+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