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

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

Public Class Form30
    Dim nom As String = ""
    Private Sub Form30_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lines1() As String = File.ReadAllLines(théme)
        If lines1(0) = 2 Then
            BackColor = Color.FromArgb(64, 64, 64)
            ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
            ComboBox2.BackColor = Color.FromArgb(64, 64, 64)
            ComboBox3.BackColor = Color.FromArgb(64, 64, 64)
            TextBox1.BackColor = Color.FromArgb(64, 64, 64)
            TextBox2.BackColor = Color.FromArgb(64, 64, 64)
            Label1.BackColor = Color.FromArgb(64, 64, 64)
            Label2.BackColor = Color.FromArgb(64, 64, 64)
            Label3.BackColor = Color.FromArgb(64, 64, 64)
            Button1.BackColor = Color.FromArgb(64, 64, 64)
            ComboBox1.ForeColor = Color.White
            ComboBox2.ForeColor = Color.White
            ComboBox3.ForeColor = Color.White
            TextBox1.ForeColor = Color.White
            TextBox2.ForeColor = Color.White
            Label1.ForeColor = Color.White
            Label2.ForeColor = Color.White
            Label3.ForeColor = Color.White
            Button1.ForeColor = Color.White
        ElseIf lines1(0) = 3 Then
            BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        End If





        If Directory.Exists(musique & "\temps\") = True Then
            For Each fichier As String In IO.Directory.GetFiles(musique & "\temps\")
                Dim info As New IO.FileInfo(fichier)
                File.Delete(musique & "\temps\" & info.Name)
            Next
            Directory.Delete(musique & "\temps\")
        End If

        If Directory.Exists(musique & "\temps\") = True Then

        Else
            Directory.CreateDirectory(musique & "\temps\")

        End If
        If OpenFileDialog1.ShowDialog = 1 Then
            File.Copy(OpenFileDialog1.FileName, musique & "\temps\" & OpenFileDialog1.SafeFileName)
            Dim nom1 = OpenFileDialog1.SafeFileName.Replace(".mp3", "")
            nom = nom1
            Text = "Mis en ligne: " & nom
            ComboBox1.SelectedItem = "Non"
            ComboBox2.SelectedItem = "Non"
            ComboBox3.SelectedItem = "Autre"
            Button1.Text = "Envoyer: " & nom
        Else
            Close()
        End If
    End Sub


    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        If ComboBox1.SelectedItem = "En ligne" Then
            If File.Exists(musique & "\temps\video.mp4") = True Then
                File.Delete(musique & "\temps\video.mp4")
            End If
            TextBox2.Clear()
            TextBox2.ReadOnly = False
            TextBox2.Show()
        ElseIf ComboBox1.SelectedItem = "Depuis mon ordinateur" Then
            If OpenFileDialog2.ShowDialog = 1 Then
                TextBox2.Text = OpenFileDialog2.FileName
                File.Copy(OpenFileDialog2.FileName, musique & "\temps\video.mp4")
                TextBox2.ReadOnly = True
                TextBox2.Show()
            Else
                If File.Exists(musique & "\temps\video.mp4") = True Then
                    File.Delete(musique & "\temps\video.mp4")
                End If
                ComboBox1.SelectedItem = "En ligne"
                TextBox2.Clear()
            End If
        Else
            If File.Exists(musique & "\temps\video.mp4") = True Then
                File.Delete(musique & "\temps\video.mp4")
            End If
            TextBox2.Clear()
            TextBox2.Hide()
        End If
    End Sub
    Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
        If ComboBox2.SelectedItem = "En ligne" Then
            If File.Exists(musique & "\temps\karaoke.mp4") = True Then
                File.Delete(musique & "\temps\karaoke.mp4")
            End If
            TextBox1.Clear()
            TextBox1.ReadOnly = False
            TextBox1.Show()
        ElseIf ComboBox2.SelectedItem = "Depuis mon ordinateur" Then
            If OpenFileDialog3.ShowDialog = 1 Then
                TextBox1.Text = OpenFileDialog3.FileName
                File.Copy(OpenFileDialog3.FileName, musique & "\temps\karaoke.mp4")
                TextBox1.ReadOnly = True
                TextBox1.Show()
            Else
                If File.Exists(musique & "\temps\karaoke.mp4") = True Then
                    File.Delete(musique & "\temps\karaoke.mp4")
                End If
                ComboBox2.SelectedItem = "En ligne"
                TextBox1.Clear()
            End If
        Else
            If File.Exists(musique & "\temps\karaoke.mp4") = True Then
                File.Delete(musique & "\temps\karaoke.mp4")
            End If
            TextBox1.Clear()
            TextBox1.Hide()
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("Une fois envoyer vous ne pouvez plus modifier", MsgBoxStyle.Information)
        Dim msg = MsgBox("Voulez-vous vraiment envoyer ?", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            up1()
        Else
            MsgBox("Action annuler", MsgBoxStyle.Information)
        End If
    End Sub
    Sub up1()
        Try
            Dim maj1 As New WebClient
            Dim vri1 As String = maj1.DownloadString(ipsite & "/Musique/find/" & nom & ".txt")
            MsgBox("La musique: " & nom & " existe déjà", MsgBoxStyle.Exclamation)
        Catch ex As Exception
            up2()
        End Try
    End Sub
    Sub up2()
        Text = "Mis en ligne..."
        If ComboBox1.SelectedItem = "Non" Then
            Dim sw1 As New StreamWriter(musique & "\temps\video.txt")
            sw1.WriteLine(0)
            sw1.Close()
        End If
        vérifif1()
    End Sub
    Sub up3a()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Musique/" & ComboBox3.SelectedItem & "/" & nom & "/"), 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()

            up3a1()

        Catch ex As Exception

        End Try
    End Sub
    Sub up3a1()
        Dim sw2 As New StreamWriter(musique & "\temps\url.txt")
        sw2.WriteLine(ipserver & "/Musique/" & ComboBox3.SelectedItem & "/" & nom & "/")
        sw2.Close()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/utilisateur/" & Form25.nomutilisateur & "/musique/" & nom & " - " & ComboBox3.SelectedItem & "/"), 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(musique & "\temps\url.txt", ipserver & "/utilisateur/" & Form25.nomutilisateur & "/musique/" & nom & " - " & ComboBox3.SelectedItem & "/url.txt")
            My.Computer.Network.UploadFile(musique & "\temps\" & nom & ".txt", ipserver & "/Musique/find/" & nom & ".txt")
            File.Delete(musique & "\temps\" & nom & ".txt")

            Dim sw3 As New StreamWriter(musique & "\temps\" & nom & ".txt")
            sw3.WriteLine(0)
            sw3.Close()

            My.Computer.Network.UploadFile(musique & "\temps\" & nom & ".txt", ipserver & "/new/Musique/" & nom & ".txt")
            File.Delete(musique & "\temps\" & nom & ".txt")

            up3a2()

        Catch ex As Exception

        End Try

    End Sub
    Sub vérifif1()
        If ComboBox2.SelectedItem = "Non" Then
            Dim sw1 As New StreamWriter(musique & "\temps\cara.txt")
            sw1.WriteLine(0)
            sw1.Close()
        End If
        vérifif2()
    End Sub
    Sub vérifif2()
        If ComboBox1.SelectedItem = "En ligne" Then
            Dim sw1 As New StreamWriter(musique & "\temps\video.txt")
            sw1.WriteLine(1)
            sw1.Close()
            Dim sw2 As New StreamWriter(musique & "\temps\site.txt")
            sw2.WriteLine(TextBox2.Text)
            sw2.Close()
        End If
        vérifif3()
    End Sub
    Sub vérifif3()
        If ComboBox2.SelectedItem = "En ligne" Then
            Dim sw1 As New StreamWriter(musique & "\temps\cara.txt")
            sw1.WriteLine(1)
            sw1.Close()
            Dim sw2 As New StreamWriter(musique & "\temps\site2.txt")
            sw2.WriteLine(TextBox1.Text)
            sw2.Close()
        End If
        vérifif4()
    End Sub
    Sub vérifif4()
        If ComboBox1.SelectedItem = "Depuis mon ordinateur" Then
            Dim sw1 As New StreamWriter(musique & "\temps\video.txt")
            sw1.WriteLine(2)
            sw1.Close()
        End If
        vérifif5()
    End Sub
    Sub vérifif5()
        If ComboBox2.SelectedItem = "Depuis mon ordinateur" Then
            Dim sw1 As New StreamWriter(musique & "\temps\cara.txt")
            sw1.WriteLine(2)
            sw1.Close()
        End If
        vérifif6()
    End Sub
    Sub vérifif6()
        Dim fincat As Integer = 0
        Dim lines1() As String = File.ReadAllLines(compteco)
        Dim sw1 As New StreamWriter(musique & "\temps\publier.txt")
        sw1.WriteLine(lines1(0))
        sw1.Close()
        If ComboBox3.SelectedItem = "Autre" Then
            fincat = 1
        ElseIf ComboBox3.SelectedItem = "Rap" Then
            fincat = 2
        ElseIf ComboBox3.SelectedItem = "Classique" Then
            fincat = 3
        ElseIf ComboBox3.SelectedItem = "Pop" Then
            fincat = 4
        ElseIf ComboBox3.SelectedItem = "Youtube" Then
            fincat = 5
        ElseIf ComboBox3.SelectedItem = "Jazz" Then
            fincat = 6
        ElseIf ComboBox3.SelectedItem = "Libre de droit" Then
            fincat = 7
        End If

        Dim sw2 As New StreamWriter(musique & "\temps\" & nom & ".txt")
        sw2.WriteLine(fincat)
        sw2.Close()
        up3a()
    End Sub

    Private Sub Form30_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Text = "Mis en ligne"
        ComboBox1.SelectedItem = "Non"
        ComboBox2.SelectedItem = "Non"
        ComboBox3.SelectedItem = "Autre"
        OpenFileDialog1.FileName = ""
        OpenFileDialog2.FileName = ""
        OpenFileDialog3.FileName = ""
        nom = ""
        For Each fichier As String In IO.Directory.GetFiles(musique & "\temps\")
            Dim info As New IO.FileInfo(fichier)
            File.Delete(musique & "\temps\" & info.Name)
        Next

        If Directory.Exists(musique & "\temps\") = True Then
            Directory.Delete(musique & "\temps\")
        End If
    End Sub
    Sub up3a2()
        For Each fichier As String In IO.Directory.GetFiles(musique & "\temps\")
            Dim info As New IO.FileInfo(fichier)
            My.Computer.Network.UploadFile(musique & "\temps\" & info.Name, ipserver & "/Musique/" & ComboBox3.SelectedItem & "/" & nom & "/" & info.Name)
        Next
        Text = "Mis en ligne Terminer"
        MsgBox("La musique: " & nom & " a bien été mis en ligne", MsgBoxStyle.Information)
        Form25.ftpa()
        Close()
    End Sub
End Class