first commit

2026-06-18 14:15:48 +02:00
commit da234e4c63
5567 changed files with 4284011 additions and 0 deletions
@@ -0,0 +1,92 @@
+Imports System.IO
+Imports System.Net
+Public Class drive7
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        Button1.Text = "Créer: " & TextBox1.Text
+    End Sub
+
+    Private Sub drive7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim lines() As String = File.ReadAllLines(théme)
+        If lines(0) = 2 Then
+            Button1.BackColor = Color.FromArgb(64, 64, 64)
+            Label1.BackColor = Color.FromArgb(64, 64, 64)
+            Me.BackColor = Color.FromArgb(64, 64, 64)
+            Button1.ForeColor = Color.White
+            Label1.ForeColor = Color.White
+            TextBox1.BackColor = Color.FromArgb(64, 64, 64)
+            TextBox1.ForeColor = Color.White
+        ElseIf lines(0) = 3 Then
+            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+            TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+            TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
+        End If
+
+
+        TextBox1.Clear()
+        Button1.Text = "Créer: "
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Try
+            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & Drive.tcon & "/dirve/" & TextBox1.Text), System.Net.FtpWebRequest)
+            Dim ftpStream As Stream = Nothing
+
+            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
+            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
+
+            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
+            ftpStream = response.GetResponseStream
+            ftpStream.Close()
+            response.Close()
+
+            Dim sw1 As New StreamWriter(cozip & "index.php")
+            sw1.WriteLine("<?php")
+            sw1.WriteLine("echo ""Erreur 404 page non trouvez"";")
+            sw1.WriteLine("?>")
+            sw1.Close()
+
+            intedadd()
+
+        Catch ex As Exception
+            MsgBox("Une erreur est survenue, ou le dossier existe déjà", MsgBoxStyle.Critical)
+            Drive.ftp()
+            Close()
+        End Try
+    End Sub
+    Dim WithEvents téléchargerfr As WebClient
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Timer1.Stop()
+        Try
+            téléchargerfr = New WebClient
+            téléchargerfr.UploadFileTaskAsync(ipserver & "/Utilisateur/" & Drive.tcon & "/dirve/" & TextBox1.Text & "/index.php", cozip & "index.php")
+        Catch ex As Exception
+            Timer1.Start()
+        End Try
+    End Sub
+    Sub intedadd()
+        Try
+            téléchargerfr = New WebClient
+            téléchargerfr.UploadFileTaskAsync(ipserver & "/Utilisateur/" & Drive.tcon & "/dirve/" & TextBox1.Text & "/index.php", cozip & "/index.php")
+        Catch ex As Exception
+            Timer1.Start()
+        End Try
+    End Sub
+
+    Private Sub téléchargerfr_UploadFileCompleted(sender As Object, e As UploadFileCompletedEventArgs) Handles téléchargerfr.UploadFileCompleted
+        File.Delete(cozip & "/index.php")
+        MsgBox("Le dossier: " & TextBox1.Text & " a bien été créer", MsgBoxStyle.Information)
+        Drive.ftp()
+        Close()
+    End Sub
+
+    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
+        If e.KeyChar = "." Then
+            e.Handled = True
+        End If
+    End Sub
+End Class