Imports System.IO
Imports System.Net
Imports System.Reflection.Emit
Imports System.Threading
Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class Form40
    Private Sub Form40_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            ListBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "signalement/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", 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

                ListBox1.Items.Add(str)


                str = sr.ReadLine()
            End While
            sr.Close()
        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
            ListBox1.Items.Clear()
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "signalement/")
            fwr.Credentials = New NetworkCredential("extremedownloaders", 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

                ListBox1.Items.Add(str)


                str = sr.ReadLine()
            End While
            sr.Close()
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
        If ListBox1.SelectedItem = "" Then

        Else
            Dim maj1 As New WebClient
            Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/signalement/" & ListBox1.SelectedItem & "/signalement.txt")
            MsgBox("Nombre de signalement: " & vri1, MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub NomDeSignalementToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NomDeSignalementToolStripMenuItem.Click
        If ListBox1.SelectedItem = "" Then

        Else
            Dim maj1 As New WebClient
            Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/signalement/" & ListBox1.SelectedItem & "/signalement.txt")
            MsgBox("Nombre de signalement: " & vri1, MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub SupprimerLeSignalementToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerLeSignalementToolStripMenuItem.Click
        If ListBox1.SelectedItem = "" Then

        Else
            Dim msg = MsgBox("voulez vous supprimer le signalement ?", MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/signalement/" & ListBox1.SelectedItem & "/signalement.txt")
                ftreq.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
                Dim ftpresp As FtpWebResponse = ftreq.GetResponse
                Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/signalement/" & ListBox1.SelectedItem & "/")
                ftreq2.Method = WebRequestMethods.Ftp.RemoveDirectory
                ftreq2.Credentials = New NetworkCredential("extremedownloaders", passftp)
                Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
                MsgBox("Le signalement a bien êtê supprimer", MsgBoxStyle.Information)
                Try
                    ListBox1.Items.Clear()
                    Dim fwr As FtpWebRequest
                    fwr = FtpWebRequest.Create(ipserver & "signalement/")
                    fwr.Credentials = New NetworkCredential("extremedownloaders", 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

                        ListBox1.Items.Add(str)


                        str = sr.ReadLine()
                    End While
                    sr.Close()
                Catch ex As Exception
                    Timer1.Start()
                End Try
            Else
                MsgBox("action annulez", MsgBoxStyle.Information)
            End If
        End If
    End Sub
End Class