Lecteur-media/lecteur/lecteur média/Form193.vb

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

Public Class Form193
    Dim up As Integer = 1
    Private Sub Form193_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)
            ProgressBar1.BackColor = Color.FromArgb(64, 64, 64)
        ElseIf lines1a(0) = 3 Then
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ProgressBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
        Else

        End If
        ProgressBar1.Style = ProgressBarStyle.Marquee
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Compression.ZipFile.CreateFromDirectory(dosplaylist & playlistnom, dosplaylist & "/" & playlistnom & ".zip")
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Try
            My.Computer.Network.UploadFile(dosplaylist & "\info.txt", ipserver & "/playlist/" & Form191.ComboBox1.SelectedItem & "/" & playlistnom & "/info.txt")
            File.Delete(dosplaylist & "\info.txt")
            upplaylist()
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Try
            My.Computer.Network.UploadFile(dosplaylist & "\info.txt", ipserver & "/playlist/" & Form191.ComboBox1.SelectedItem & "/" & playlistnom & "/info.txt")
            File.Delete(dosplaylist & "\info.txt")
            upplaylist()
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub
    Sub upplaylist()
        Try
            My.Computer.Network.UploadFile(dosplaylist & "\musique.txt", ipserver & "/playlist/" & Form191.ComboBox1.SelectedItem & "/" & playlistnom & "/musique.txt")
            File.Delete(dosplaylist & "\musique.txt")
            upplaylist3()
        Catch ex As Exception
            Timer2.Start()
        End Try

    End Sub
    Sub upplaylist2()
        Try
            ProgressBar1.Style = ProgressBarStyle.Blocks
            téléchargerfr = New WebClient
            téléchargerfr.UploadFileTaskAsync(New Uri(ipserver & "/playlist/" & Form191.ComboBox1.SelectedItem & "/" & playlistnom & "/" & playlistnom & ".zip"), (dosplaylist & playlistnom & ".zip"))
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        Try
            My.Computer.Network.UploadFile(dosplaylist & "\musique.txt", ipserver & "/playlist/" & Form191.ComboBox1.SelectedItem & "/" & playlistnom & "/musique.txt")
            File.Delete(dosplaylist & "\musique.txt")
            upplaylist3()
        Catch ex As Exception
            Timer2.Start()
        End Try
    End Sub

    Private Sub téléchargerfr_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs) Handles téléchargerfr.UploadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        Me.Text = "Playlist store - mis en ligne: " & e.ProgressPercentage & "%"
    End Sub

    Private Sub téléchargerfr_UploadFileCompleted(sender As Object, e As UploadFileCompletedEventArgs) Handles téléchargerfr.UploadFileCompleted
        vérfifi()

    End Sub

    Dim WithEvents téléchargerfr As WebClient

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Timer3.Stop()
        Try
            ProgressBar1.Style = ProgressBarStyle.Blocks
            téléchargerfr = New WebClient
            téléchargerfr.UploadFileTaskAsync(New Uri(ipserver & "/playlist/" & Form191.ComboBox1.SelectedItem & "/" & playlistnom & "/" & playlistnom & ".zip"), (dosplaylist & playlistnom & ".zip"))
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub

    Private Sub Form193_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        If up = 1 Then
            e.Cancel = True
            MsgBox("Merci de patienter la playlist: " & playlistnom & " est en cours d'envoie", MsgBoxStyle.Critical)
        Else

        End If
    End Sub
    Sub upplaylist3()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            MsgBox(dosplaylist & "\info2.txt", ipsite & ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/info2.txt")
            My.Computer.Network.UploadFile(dosplaylist & "\info2.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/info2.txt")
            File.Delete(dosplaylist & "\info2.txt")
            upplaylist4()
        Catch ex As Exception
            Timer4.Start()
        End Try
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        Timer4.Stop()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            My.Computer.Network.UploadFile(dosplaylist & "\info2.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/info2.txt")
            File.Delete(dosplaylist & "\info2.txt")
            upplaylist4()
        Catch ex As Exception
            Timer4.Start()
        End Try
    End Sub
    Sub upplaylist4()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            My.Computer.Network.UploadFile(dosplaylist & "\cheminplaylist.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/cheminplaylist.txt")
            File.Delete(dosplaylist & "\cheminplaylist.txt")
            upplaylist5()
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Timer5.Stop()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            My.Computer.Network.UploadFile(dosplaylist & "\cheminplaylist.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/cheminplaylist.txt")
            File.Delete(dosplaylist & "\cheminplaylist.txt")
            upplaylist5()
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub
    Sub upplaylist5()
        Timer6.Stop()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            My.Computer.Network.UploadFile(dosplaylist & "\info3.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/info3.txt")
            File.Delete(dosplaylist & "\info3.txt")
            upplaylist6()
        Catch ex As Exception
            Timer6.Start()
        End Try
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Timer6.Stop()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            My.Computer.Network.UploadFile(dosplaylist & "\info3.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/info3.txt")
            File.Delete(dosplaylist & "\info3.txt")
            upplaylist6()
        Catch ex As Exception
            Timer6.Start()
        End Try
    End Sub
    Sub upplaylist6()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            My.Computer.Network.UploadFile(dosplaylist & "\info4.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/info4.txt")
            File.Delete(dosplaylist & "\info4.txt")
            upplaylist7()
        Catch ex As Exception
            Timer7.Start()
        End Try
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        Timer7.Stop()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            My.Computer.Network.UploadFile(dosplaylist & "\info4.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/info4.txt")
            File.Delete(dosplaylist & "\info4.txt")
            upplaylist7()
        Catch ex As Exception
            Timer7.Start()
        End Try
    End Sub
    Sub upplaylist7()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            My.Computer.Network.UploadFile(dosplaylist & "\info5.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/info5.txt")
            File.Delete(dosplaylist & "\info5.txt")
            upplaylist2()
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub

    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        Timer8.Stop()
        Try
            Dim lines4() As String = File.ReadAllLines(compteco)
            My.Computer.Network.UploadFile(dosplaylist & "\info5.txt", ipserver & "/utilisateur/" & lines4(0) & "/playlist/" & playlistnom & " - catégorie - " & Form191.ComboBox1.SelectedItem & "/info5.txt")
            File.Delete(dosplaylist & "\info5.txt")
            upplaylist2()
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub
    Sub vérfifi()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/" & Form191.ComboBox1.SelectedItem & "/" & playlistnom & "/")
            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

                Directory.CreateDirectory(cozip & str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If Directory.Exists(cozip & playlistnom & ".zip") = True Then
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                fini
            Else
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                Timer9.Start()
            End If

        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetDirectories(cozip)
                Dim info As New IO.FileInfo(fichier)
                Directory.Delete(cozip & info.Name)
            Next
            Timer10.Start()
        End Try
    End Sub
    Sub fini()
        up = 0
        File.Delete(dosplaylist & playlistnom & ".zip")
        Me.Text = "Playlist store"
        MsgBox("La playlist: " & playlistnom & " a bien été mis en ligne", MsgBoxStyle.Information)
        Form191.Close()
        Form192.Close()
        playlistnom = ""
        playliststore.ftpcompte()
        Close()
    End Sub

    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
        Timer9.Stop()
        Try
            ProgressBar1.Style = ProgressBarStyle.Blocks
            téléchargerfr = New WebClient
            téléchargerfr.UploadFileTaskAsync(New Uri(ipserver & "/playlist/" & Form191.ComboBox1.SelectedItem & "/" & playlistnom & "/" & playlistnom & ".zip"), (dosplaylist & playlistnom & ".zip"))
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub

    Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        Timer10.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/playlist/" & Form191.ComboBox1.SelectedItem & "/" & playlistnom & "/")
            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

                Directory.CreateDirectory(cozip & str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If Directory.Exists(cozip & playlistnom & ".zip") = True Then
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                fini()
            Else
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                Timer9.Start()
            End If

        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetDirectories(cozip)
                Dim info As New IO.FileInfo(fichier)
                Directory.Delete(cozip & info.Name)
            Next
            Timer10.Start()
        End Try
    End Sub
End Class