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

Imports System.ComponentModel
Imports System.IO
Imports System.Net
Public Class Drive2
    Dim tcon = Drive.tcon
    Private Sub Drive2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "Partager avec"

        Dim lines1a() As String = File.ReadAllLines(théme)

        If lines1a(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            Label1.BackColor = Color.FromArgb(64, 64, 64)
            Label1.ForeColor = Color.White
            ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
            ComboBox1.ForeColor = Color.White
            Button1.BackColor = Color.FromArgb(64, 64, 64)
            Button1.ForeColor = Color.White
        ElseIf lines1a(0) = 3 Then
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        End If

        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
            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)
                ComboBox1.Items.Add(str)
                ComboBox1.Items.Remove("utilisateur.txt")
                ComboBox1.Items.Remove("index.php")


                str = sr.ReadLine()

            End While

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

        ComboBox1.Items.Remove(tcon)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()
        Dim fwr2 As FtpWebRequest
        fwr2 = FtpWebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/")
        fwr2.Credentials = New NetworkCredential("yoannsafe", passftp)
        fwr2.Method = WebRequestMethods.Ftp.ListDirectory
        Dim sr2 As New StreamReader(fwr2.GetResponse().GetResponseStream())

        Dim str2 As String = sr2.ReadLine()
        While Not str2 Is Nothing


            If str2.Contains("driveattfile") = True Then
                ListBox1.Items.Add(str2)
            End If
            str2 = sr2.ReadLine()

        End While

        sr2.Close()

        If ListBox1.Items.Count = 1 Then
            If ComboBox1.SelectedItem = "" Then
                MsgBox("Merci de sélectionner un utilisateur", MsgBoxStyle.Critical)
            Else
                Drive5.ShowDialog()
            End If
        Else
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & ComboBox1.SelectedItem & "/driveattfile/"), 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()

            If ComboBox1.SelectedItem = "" Then
                MsgBox("Merci de sélectionner un utilisateur", MsgBoxStyle.Critical)
            Else
                Drive5.ShowDialog()
            End If
        End If

    End Sub

    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        Button1.Text = "Transféré à: " & ComboBox1.SelectedItem
        Me.Text = "Partager avec: " & ComboBox1.SelectedItem
    End Sub

    Private Sub Drive2_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        ComboBox1.Items.Clear()
    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 & "/" & "Utilisateur" & "/")
            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)
                ComboBox1.Items.Add(str)
                ComboBox1.Items.Remove("utilisateur.txt")


                str = sr.ReadLine()

            End While

            sr.Close()
            For Each fichier As String In IO.Directory.GetDirectories(cozip)
                Dim info As New IO.FileInfo(fichier)
                Directory.Delete(cozip & info.Name)
            Next
        Catch ex As Exception
            Timer1.Start()
        End Try
        ComboBox1.Items.Remove(tcon)
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
            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)
                ComboBox1.Items.Add(str)
                ComboBox1.Items.Remove("utilisateur.txt")
                ComboBox1.Items.Remove("index.php")


                str = sr.ReadLine()

            End While

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

        ComboBox1.Items.Remove(tcon)
    End Sub
End Class