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

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

Public Class Form31
    Private Sub Form31_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lines1a() As String = File.ReadAllLines(théme)

        If lines1a(0) = 2 Then
            BackColor = Color.FromArgb(64, 64, 64)
            ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
            ComboBox1.ForeColor = Color.White
        ElseIf lines1a(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)
            ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        End If
        For Each fichier As String In IO.Directory.GetDirectories(radio)
            Dim info As New IO.FileInfo(fichier)
            ComboBox1.Items.Add(info.Name)
        Next

        If ComboBox1.Items.Count = 0 Then
            MsgBox("Aucune radio trouvez", MsgBoxStyle.Critical)
            Close()
        End If
    End Sub

    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        Dim msg = MsgBox("Voulez-vous vraiment envoyer: " & ComboBox1.SelectedItem & " ?", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            Directory.CreateDirectory(repertoire & "\temps\")
            vérifi()
        Else
            Close()
        End If
    End Sub

    Private Sub Form31_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        ComboBox1.Items.Clear()
        radiostore.ftp2()
    End Sub
    Sub vérifi()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/radio/")
            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(repertoire & "\temps\" & str)


                str = sr.ReadLine()
            End While

            sr.Close()

            If Directory.Exists(repertoire & "\temps\" & ComboBox1.SelectedItem) = True Then
                MsgBox("La radio: " & ComboBox1.SelectedItem & " existe déjà", MsgBoxStyle.Critical)
            Else
                creatradio()
            End If

            For Each fichier As String In IO.Directory.GetDirectories(repertoire & "\temps\")
                Dim info As New IO.FileInfo(fichier)
                Directory.Delete(repertoire & "\temps\" & info.Name)
            Next
            Directory.Delete(repertoire & "\temps\")

        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
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/radio/")
            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(repertoire & "\temps\" & str)


                str = sr.ReadLine()
            End While

            sr.Close()

            If Directory.Exists(repertoire & "\temps\" & ComboBox1.SelectedItem) = True Then
                MsgBox("La radio: " & ComboBox1.SelectedItem & " existe déjà", MsgBoxStyle.Critical)
                For Each fichier As String In IO.Directory.GetDirectories(repertoire & "\temps\")
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                Directory.Delete(repertoire & "\temps\")
            End If

        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub
    Sub creatradio()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/radio/" & ComboBox1.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(radio & "/" & ComboBox1.SelectedItem & "/flux.txt", ipserver & "/radio/" & ComboBox1.SelectedItem & "/flux.txt")

            If File.Exists(radio & "/" & ComboBox1.SelectedItem & "/photo.png") = True Then
                My.Computer.Network.UploadFile(radio & "/" & ComboBox1.SelectedItem & "/photo.png", ipserver & "/radio/" & ComboBox1.SelectedItem & "/photo.png")
            End If

            Dim sw1 As New StreamWriter(radio & "/auteur.txt")
            sw1.WriteLine(Form3.Label21.Text)
            sw1.Close()

            My.Computer.Network.UploadFile(radio & "/auteur.txt", ipserver & "/radio/" & ComboBox1.SelectedItem & "/auteur.txt")
            File.Delete(radio & "/auteur.txt")
            creadeuser()


        Catch ex As Exception

        End Try
    End Sub
    Sub creadeuser()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/utilisateur/" & Form3.Label21.Text & "/radio/" & ComboBox1.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()

            MsgBox("La radio: " & ComboBox1.SelectedItem & " a bien été mis en ligne", MsgBoxStyle.Information)

            Close()

        Catch ex As Exception

        End Try
    End Sub
End Class