first commit

2026-06-18 14:15:48 +02:00
commit da234e4c63
5567 changed files with 4284011 additions and 0 deletions
@@ -0,0 +1,46 @@
+Imports System.ComponentModel
+Imports System.IO
+Public Class Form176
+    Dim dl As Integer = 1
+    Private Sub Form176_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim lines1a() As String = File.ReadAllLines(théme)
+
+        If lines1a(0) = 2 Then
+            Me.BackColor = Color.FromArgb(64, 64, 64)
+        ElseIf lines1a(0) = 3 Then
+            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+        Else
+
+        End If
+        BackgroundWorker1.RunWorkerAsync()
+    End Sub
+
+    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
+        For Each fichier As String In IO.Directory.GetFiles(repertoireavis)
+            Dim info As New IO.FileInfo(fichier)
+            File.Delete(fichier)
+        Next
+
+        For Each fichier1 As String In IO.Directory.GetDirectories(repertoireavis)
+            Dim info As New IO.FileInfo(fichier1)
+            Directory.Delete(fichier1, recursive:=True)
+        Next
+        Compression.ZipFile.ExtractToDirectory(importconfig, repertoireavis)
+        dl = 0
+    End Sub
+
+    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
+        MsgBox("Importation terminer, un redémarrage est nécessaire", MsgBoxStyle.Information)
+        Process.Start("rememarage.exe")
+        End
+    End Sub
+
+    Private Sub Form176_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If dl = 1 Then
+            e.Cancel = True
+            MsgBox("L’importation est en cours merci de patientez", MsgBoxStyle.Exclamation)
+        Else
+
+        End If
+    End Sub
+End Class