Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Math

Public Class upfilm2
    Dim filmnumbre As String = ""
    Public crearpages As Integer = 0
    Private Sub upfilm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.BackColor = Form1.BackColor
        Me.ForeColor = Form1.ForeColor
        TextBox1.BackColor = BackColor
        TextBox2.BackColor = BackColor
        TextBox3.BackColor = BackColor
        TextBox4.BackColor = BackColor
        TextBox5.BackColor = BackColor
        TextBox6.BackColor = BackColor
        TextBox1.ForeColor = ForeColor
        TextBox2.ForeColor = ForeColor
        TextBox3.ForeColor = ForeColor
        TextBox4.ForeColor = ForeColor
        TextBox5.ForeColor = ForeColor
        TextBox6.ForeColor = ForeColor
        Button1.BackColor = BackColor
        Button1.ForeColor = ForeColor
        If OpenFileDialog1.ShowDialog = 1 Then
            Dim rezr As String = OpenFileDialog1.SafeFileName.Replace(".mkv", "")
            TextBox1.Text = rezr
        Else
            Close()
        End If
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        If OpenFileDialog2.ShowDialog = 1 Then
            PictureBox1.Image = Image.FromFile(OpenFileDialog2.FileName)
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox2.Text = "" Then
            MsgBox("Merci d'enterer le réalisateur", MsgBoxStyle.Exclamation)
        Else
            If TextBox3.Text = "" Then
                MsgBox("Merci d'enterer la durée du film", MsgBoxStyle.Exclamation)
            Else
                If TextBox4.Text = "" Then
                    MsgBox("Merci d'enterer la date de sortie", MsgBoxStyle.Exclamation)
                Else
                    If TextBox5.Text = "" Then
                        MsgBox("Merci d'enterer l'url du la bd", MsgBoxStyle.Exclamation)
                    Else
                        If TextBox6.Text = "" Then
                            MsgBox("Merci d'enterer le résumer", MsgBoxStyle.Exclamation)
                        Else
                            If crearpages = 0 Then
                                Me.Enabled = False
                                upfile()
                            Else
                                Me.Enabled = False
                                upfile2()
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub
    Sub upfile()
        upfilm3.Show()
        upfilm3.Text = "coppie du fichier...."
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Directory.CreateDirectory(dosparamètres & "\temps\")
        System.IO.File.Copy(OpenFileDialog1.FileName, dosparamètres & "\temps\" & OpenFileDialog1.SafeFileName)
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        upfilm3.Text = "création des fichier supplémantaire...."
        Using writer As System.IO.StreamWriter = New System.IO.StreamWriter(dosparamètres & "\resum.txt", True)
            Dim curLine As String = TextBox6.Text
            If (TextBox6.Lines.Count > 1) Then
                curLine = ""
                For Each line As String In TextBox6.Lines
                    curLine = curLine & " " & line
                Next
                curLine = curLine.Trim()
            End If
            writer.WriteLine(curLine)
        End Using

        PictureBox1.Image.Save(dosparamètres & "\temps\image.jpg")
        Dim sw1 As New StreamWriter(dosparamètres & "\temps\nom.txt")
        sw1.WriteLine(TextBox1.Text)
        sw1.WriteLine()
        sw1.Close()
        Dim sw2 As New StreamWriter(dosparamètres & "\temps\auteur.txt")
        sw2.WriteLine(TextBox2.Text, System.Text.Encoding.Default)
        sw2.Close()
        Dim sw3 As New StreamWriter(dosparamètres & "\temps\time.txt")
        sw3.WriteLine(TextBox3.Text)
        sw3.Close()
        Dim sw4 As New StreamWriter(dosparamètres & "\temps\date.txt")
        sw4.WriteLine(TextBox4.Text, System.Text.Encoding.Default)
        sw4.Close()
        Dim sw5 As New StreamWriter(dosparamètres & "\temps\like.txt")
        sw5.WriteLine(0)
        sw5.Close()
        Dim sw6 As New StreamWriter(dosparamètres & "\temps\bd.txt")
        sw6.WriteLine(TextBox5.Text, System.Text.Encoding.Default)
        sw6.Close()
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film.txt")
        filmnumbre = vri + 1
        createdos()
    End Sub
    Sub createdos()
        upfilm3.Text = "création du dossier serveur"
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/"), 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()

            My.Computer.Network.UploadFile(dosparamètres & "\temps\nom.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/nom.txt")
            My.Computer.Network.UploadFile(dosparamètres & "\temps\date.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/date.txt")
            My.Computer.Network.UploadFile(dosparamètres & "\temps\time.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/time.txt")
            My.Computer.Network.UploadFile(dosparamètres & "\temps\auteur.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/auteur.txt")
            My.Computer.Network.UploadFile(dosparamètres & "\temps\image.jpg", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/image.jpg")
            My.Computer.Network.UploadFile(dosparamètres & "\temps\like.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/like.txt")
            My.Computer.Network.UploadFile(dosparamètres & "\temps\bd.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/bd.txt")
            My.Computer.Network.UploadFile(dosparamètres & "\resum.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/resum.txt")

            File.Delete(dosparamètres & "\resum.txt")

            Try
                upfilm3.ProgressBar1.Style = ProgressBarStyle.Continuous
                upfilm3.Text = "mis en ligne: 0%"
                téléchargerfr = New WebClient
                téléchargerfr.UploadFileTaskAsync(ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/" & OpenFileDialog1.SafeFileName, dosparamètres & "\temps\" & OpenFileDialog1.SafeFileName)
            Catch ex As Exception

            End Try

        Catch ex As Exception

        End Try
    End Sub
    Dim WithEvents téléchargerfr As WebClient
    Private Sub téléchargerfr_UploadFileCompleted(sender As Object, e As UploadFileCompletedEventArgs) Handles téléchargerfr.UploadFileCompleted
        Dim sw1 As New StreamWriter(dosparamètres & "\temps\film.txt")
        sw1.WriteLine(filmnumbre)
        sw1.Close()
        My.Computer.Network.UploadFile(dosparamètres & "\temps\film.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film.txt")
        Dim sw2 As New StreamWriter(dosparamètres & "\temps\" & TextBox1.Text & ".txt")
        sw2.WriteLine(upfilm.ListBox1.Items.Count)
        sw2.Close()
        My.Computer.Network.UploadFile(dosparamètres & "\temps\" & TextBox1.Text & ".txt", ipserver & "Film/find/" & TextBox1.Text & ".txt")
        For Each fichier As String In IO.Directory.GetFiles(dosparamètres & "\temps\")
            Dim info As New IO.FileInfo(fichier)
            File.Delete(dosparamètres & "\temps\" & info.Name)
        Next
        Dim sw3 As New StreamWriter(dosparamètres & "\temps\" & TextBox1.Text & ".txt")
        sw3.WriteLine(0)
        sw3.Close()
        My.Computer.Network.UploadFile(dosparamètres & "\temps\" & TextBox1.Text & ".txt", ipserver & "/new/Film/" & TextBox1.Text & ".txt")
        File.Delete(dosparamètres & "\temps\" & TextBox1.Text & ".txt")
        upfilm3.dl = 0
        upfilm3.Close()
        MsgBox("Le film: " & TextBox1.Text & " a bien êtes envoyer", MsgBoxStyle.Information)
        Directory.Delete(dosparamètres & "\temps\")
        Close()
        upfilm.Close()
    End Sub
    Private Sub téléchargerfr_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs) Handles téléchargerfr.UploadProgressChanged
        Dim disctédossier = func_RoundTaille(e.BytesSent)
        Dim disctédossier2 = func_RoundTaille(e.TotalBytesToSend)
        Dim bc = e.BytesSent / e.TotalBytesToSend * 100
        upfilm3.ProgressBar1.Value = bc
        upfilm3.Text = "mis en ligne: " & disctédossier & " / " & disctédossier2
    End Sub
    Sub upfile2()
        Directory.CreateDirectory(dosparamètres & "\temps\")
        Dim pagecreate = upfilm.ListBox1.Items.Count + 1
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Film/pages/page" & pagecreate & "/"), 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(dosparamètres & "\temps\film.txt")
            sw1.WriteLine(0)
            sw1.Close()

            My.Computer.Network.UploadFile(dosparamètres & "\temps\film.txt", ipserver & "Film/pages/page" & pagecreate & "/film.txt")
            File.Delete(dosparamètres & "\temps\film.txt")

            upfilm.ListBox1.Items.Add("page" & pagecreate)
            upfilm.ListBox1.SelectedItem = "page" & pagecreate

            upfile()

        Catch ex As Exception

        End Try
    End Sub

    Private Sub upfilm2_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        filmnumbre = ""
        crearpages = 0
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        OpenFileDialog1.FileName = ""
        OpenFileDialog2.FileName = ""
        PictureBox1.Image.Dispose()
        PictureBox1.Image = My.Resources._39837401b03c65e8417ad48feae80b66_icon
    End Sub
    Public Function func_RoundTaille(ByVal LaTaille As Long) As String
        Select Case LaTaille
            Case Is < 1024
                Return Round(LaTaille) & " Octets"
            Case Is < 1048576
                Return Round(LaTaille / 2 ^ 10, 3) & " Ko"
            Case Is < 1073741824
                Return Round(LaTaille / 2 ^ 20, 3) & " Mo"
            Case Else
                Return Round(LaTaille / 2 ^ 30, 3) & " Go"
        End Select
    End Function
End Class