92 lines
4.1 KiB
VB.net
92 lines
4.1 KiB
VB.net
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 |