first commit

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