119 lines
4.7 KiB
VB.net
119 lines
4.7 KiB
VB.net
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 |