first commit

2026-06-18 14:07:09 +02:00
commit 210c34ac8b
310 changed files with 222490 additions and 0 deletions
@@ -0,0 +1,58 @@
+Imports System.IO
+Imports System.Threading
+Imports System.Timers
+
+Public Class Form15
+    Private Sub Form15_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Form1.misdl = 1
+        Me.Visible = False
+        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
+    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
+
+    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
+
+    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
+    Sub mister()
+        Form1.NotifyIcon1.BalloonTipTitle = "mis a jour"
+        Form1.NotifyIcon1.BalloonTipText = "téléchargement de la mis a jour est terminer" & vbNewLine & "la mis a jour vas s'intaller après la fermature de Extrème downloaders"
+        Form1.NotifyIcon1.ShowBalloonTip(1)
+        Form1.misdl = 0
+        Form1.misdlfini = 1
+        Close()
+    End Sub
+End Class