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

Public Class nouvelle_série
    Dim npsé As Integer = 0
    Dim Épisode As Integer = 1
    Dim lisintex As Integer = 0
    Dim dl As Integer = 0
    Private Sub nouvelle_série_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.BackColor = Form1.BackColor
        Me.ForeColor = Form1.ForeColor
        ListBox1.BackColor = BackColor
        TextBox1.BackColor = BackColor
        TextBox2.BackColor = BackColor
        Button1.BackColor = BackColor
        Button2.BackColor = BackColor
        TextBox1.ForeColor = ForeColor
        TextBox2.ForeColor = ForeColor
        ListBox2.Hide()
        Directory.CreateDirectory(tempup)
        Dim fwr As FtpWebRequest
        fwr = FtpWebRequest.Create(ipserver & "/Série/pages/")
        fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
        fwr.Method = WebRequestMethods.Ftp.ListDirectory
        Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

        Dim str As String = sr.ReadLine()
        While Not str Is Nothing

            ListBox2.Items.Add(str)

            str = sr.ReadLine()

        End While

        sr.Close()

        If ListBox2.Items.Count = 0 Then
            ListBox2.SetSelected(ListBox2.Items.Count - 1, True)
        Else
            ListBox2.SelectedItem = "page" & ListBox2.Items.Count
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = 1 Then
            musiquexist()
        Else

        End If
    End Sub
    Sub musiquexist()
        Dim index As Integer = 0
        Dim fichier2 As String = "" & vbNewLine
        ListBox1.Items.Clear()


        For Each fileselected1 As String In OpenFileDialog1.FileNames
            ListBox1.Items.Add(OpenFileDialog1.SafeFileNames(index))
            FileCopy(fileselected1, tempup & "\" & OpenFileDialog1.SafeFileNames(index))
            fichier2 = fichier2 & " " & OpenFileDialog1.SafeFileNames(index) & vbNewLine
            index = index + 1
        Next


        If index > 1 Then
            index = 0

            MsgBox("les fichiers: " & fichier2 & "on bien êtê importer", MsgBoxStyle.Information)

        Else
            index = 0
            MsgBox("le fichier: " & OpenFileDialog1.SafeFileName & " a bien êtê importer", MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("merci d'enterer un nom", MsgBoxStyle.Exclamation)
        Else
            dl = 1
            Button1.Enabled = False
            Try
                Directory.CreateDirectory(tempup & "/" & TextBox1.Text & "/")
            Catch ex As Exception
                MsgBox(ex.ToString, MsgBoxStyle.Exclamation)
                Exit Sub
            End Try
            Directory.Delete(tempup & "/" & TextBox1.Text & "/")
            If ListBox1.Items.Count = 0 Then
                MsgBox("merci d'importer les épisode de la saison 1", MsgBoxStyle.Exclamation)
            Else
                TextBox1.Enabled = False
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString(ipsite & "Série/pages/" & ListBox2.SelectedItem & "/série.txt")
                npsé = vri + 1
                If vri = 8 Then
                    créetpage()
                Else
                    createsérie()
                End If
            End If
        End If
    End Sub
    Sub créetpage()
        Dim pagecreate = ListBox2.Items.Count + 1
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/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(tempup & "\série.txt")
            sw1.WriteLine(0)
            sw1.Close()

            My.Computer.Network.UploadFile(tempup & "\série.txt", ipserver & "Série/pages/page" & pagecreate & "/série.txt")
            File.Delete(tempup & "\série.txt")

            ListBox2.Items.Add("page" & pagecreate)
            ListBox2.SelectedItem = "page" & pagecreate

            npsé = 1

            createsérie()

        Catch ex As Exception

        End Try
    End Sub
    Sub createsérie()
        Me.Text = "création de la série sur le serveur..."
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/"), 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()
        Catch ex As Exception

        End Try

        PictureBox1.Image.Save(tempup & "image.jpg")


        Dim sw1 As New StreamWriter(tempup & "\like.txt")
        sw1.WriteLine(0)
        sw1.Close()

        Dim sw2 As New StreamWriter(tempup & "\nom.txt")
        sw2.WriteLine(TextBox1.Text)
        sw2.Close()

        Using writer As System.IO.StreamWriter = New System.IO.StreamWriter(dosparamètres & "\resum.txt", True)
            Dim curLine As String = TextBox2.Text
            If (TextBox2.Lines.Count > 1) Then
                curLine = ""
                For Each line As String In TextBox2.Lines
                    curLine = curLine & " " & line
                Next
                curLine = curLine.Trim()
            End If
            writer.WriteLine(curLine)
        End Using

        My.Computer.Network.UploadFile(tempup & "\like.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/like.txt")
        My.Computer.Network.UploadFile(tempup & "\nom.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/nom.txt")
        My.Computer.Network.UploadFile(tempup & "\image.jpg", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/image.jpg")
        My.Computer.Network.UploadFile(dosparamètres & "\resum.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/resum.txt")

        File.Delete(tempup & "\like.txt")
        File.Delete(tempup & "\nom.txt")
        File.Delete(tempup & "\image.jpg")
        File.Delete(dosparamètres & "\resum.txt")

        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/"), 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()
        Catch ex As Exception

        End Try

        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/"), 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()
        Catch ex As Exception

        End Try


        Me.Text = "Envoie des épisodes..."

        ProgressBar1.Show()

        Try
            ListBox1.SelectedIndex = lisintex
            Me.Text = "Envoie de: " & ListBox1.SelectedItem & "..."
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/Épisode " & Épisode & "/"), 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()


            téléchargerfr = New WebClient
            téléchargerfr.UploadFileTaskAsync(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/Épisode " & Épisode & "/" & ListBox1.SelectedItem, tempup & "\" & ListBox1.SelectedItem)


            Épisode = Épisode + 1

            lisintex = lisintex + 1

        Catch ex As Exception

        End Try
    End Sub

    Dim WithEvents téléchargerfr As WebClient
    Dim WithEvents téléchargerfr2 As WebClient

    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 nouvelle_série_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        If dl = 1 Then
            e.Cancel = True
            MsgBox("Merci d'attendre le fin de l'envoie de " & TextBox1.Text, MsgBoxStyle.Critical)
        Else
            Text = "nouvelle série"
            OpenFileDialog1.FileName = ""
            OpenFileDialog2.FileName = ""
            TextBox1.Clear()
            TextBox2.Clear()
        End If

    End Sub
    Sub fin()

        File.Delete(dosier & "/Saison 1.zip")

        Dim sw4 As New StreamWriter(tempup & "\ep.txt")
        sw4.WriteLine(ListBox1.Items.Count)
        sw4.Close()

        My.Computer.Network.UploadFile(tempup & "\ep.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/ep.txt")

        File.Delete(tempup & "\ep.txt")
        Dim maj As New WebClient
        Dim vri As String = maj.DownloadString(ipsite & "Série/pages/" & ListBox2.SelectedItem & "/série.txt")
        Dim nombreséries As Integer = vri + 1

        Dim sw5 As New StreamWriter(tempup & "\série.txt")
        sw5.WriteLine(nombreséries)
        sw5.Close()

        My.Computer.Network.UploadFile(tempup & "\série.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/série.txt")
        File.Delete(tempup & "\série.txt")

        Dim sw6 As New StreamWriter(tempup & "\" & TextBox1.Text & ".txt")
        sw6.WriteLine(ListBox2.Items.Count)
        sw6.Close()

        My.Computer.Network.UploadFile(tempup & "\" & TextBox1.Text & ".txt", ipserver & "Série/find/" & TextBox1.Text & ".txt")

        My.Computer.Network.UploadFile(tempup & "\" & TextBox1.Text & ".txt", ipserver & "/new/Séries/" & TextBox1.Text & ".txt")

        Me.Text = "Envoie terminer"

        TextBox1.Enabled = True

        ProgressBar1.Hide()
        ProgressBar1.Value = 0
        Button1.Enabled = True


        MsgBox("La séries: " & TextBox1.Text & " a bien êtê créer et la Saison 1 envoyer !", MsgBoxStyle.Information)

        upséries.ListBox1.Items.Clear()
        upséries.pages = 1
        upséries.pagesacctuel = 1
        upséries.Button3.Text = upséries.pagesacctuel

        Text = ""
        npsé = 0
        Épisode = 1
        lisintex = 0
        dl = 0

        npsé = 0

        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        Close()
        upséries.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
        Me.Text = "Envoie de: " & ListBox1.SelectedItem & " " & disctédossier & " / " & disctédossier2 & " " & ProgressBar1.Value & "%"
        ProgressBar1.Value = bc
    End Sub

    Private Sub téléchargerfr_UploadFileCompleted(sender As Object, e As UploadFileCompletedEventArgs) Handles téléchargerfr.UploadFileCompleted
        If Épisode = ListBox1.Items.Count + 1 Then
            ProgressBar1.Style = ProgressBarStyle.Marquee
            Me.Text = "création du fichier hors ligne..."
            BackgroundWorker1.RunWorkerAsync()
        Else

            Try
                ListBox1.SelectedIndex = lisintex
                Me.Text = "Envoie de: " & ListBox1.SelectedItem & "..."
                Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/Épisode " & Épisode & "/"), 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()


                téléchargerfr = New WebClient
                téléchargerfr.UploadFileTaskAsync(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/Épisode " & Épisode & "/" & ListBox1.SelectedItem, tempup & "\" & ListBox1.SelectedItem)


                Épisode = Épisode + 1

                lisintex = lisintex + 1

            Catch ex As Exception

            End Try
        End If
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        IO.Compression.ZipFile.CreateFromDirectory(tempup, dosier & "/Saison 1.zip")
    End Sub

    Private Sub téléchargerfr2_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs) Handles téléchargerfr2.UploadProgressChanged
        Dim disctédossier = func_RoundTaille(e.BytesSent)
        Dim disctédossier2 = func_RoundTaille(e.TotalBytesToSend)
        Dim bc = e.BytesSent / e.TotalBytesToSend * 100
        Me.Text = "Envoie du fichier hors ligne " & disctédossier & " / " & disctédossier2 & " " & ProgressBar1.Value & "%"
        ProgressBar1.Value = bc
    End Sub

    Private Sub téléchargerfr2_UploadFileCompleted(sender As Object, e As UploadFileCompletedEventArgs) Handles téléchargerfr2.UploadFileCompleted
        fin()
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        ProgressBar1.Style = ProgressBarStyle.Continuous
        Me.Text = "Envoie du fichier hors ligne..."
        téléchargerfr2 = New WebClient
        téléchargerfr2.UploadFileTaskAsync(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/" & "/Série" & npsé & "/saison/Saison 1/Saison 1.zip", dosier & "/Saison 1.zip")
    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