2017 lines
93 KiB
VB.net
2017 lines
93 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class playliststore
|
|
|
|
Dim listselected As String = ""
|
|
Dim dl As Integer = 0
|
|
Dim utilisateurnom As String = ""
|
|
Dim delplaylistnom As String = ""
|
|
Private Sub playliststore_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If File.Exists(compte & "\photo.png") = True Then
|
|
File.Delete(compte & "\photo.png")
|
|
Else
|
|
|
|
End If
|
|
|
|
Dim lines1a() As String = File.ReadAllLines(théme)
|
|
|
|
If lines1a(0) = 2 Then
|
|
Me.BackColor = Color.FromArgb(64, 64, 64)
|
|
ListBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ListBox2.BackColor = Color.FromArgb(64, 64, 64)
|
|
ListBox3.BackColor = Color.FromArgb(64, 64, 64)
|
|
ListBox4.BackColor = Color.FromArgb(64, 64, 64)
|
|
ListBox5.BackColor = Color.FromArgb(64, 64, 64)
|
|
ListBox6.BackColor = Color.FromArgb(64, 64, 64)
|
|
ListBox7.BackColor = Color.FromArgb(64, 64, 64)
|
|
ListBox8.BackColor = Color.FromArgb(64, 64, 64)
|
|
PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip2.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip3.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip4.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip5.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip6.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip7.BackColor = Color.FromArgb(64, 64, 64)
|
|
ProgressBar1.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)
|
|
Label4.BackColor = Color.FromArgb(64, 64, 64)
|
|
Label5.BackColor = Color.FromArgb(64, 64, 64)
|
|
Label6.BackColor = Color.FromArgb(64, 64, 64)
|
|
Label7.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button1.ForeColor = Color.White
|
|
ListBox1.ForeColor = Color.White
|
|
ListBox2.ForeColor = Color.White
|
|
ListBox3.ForeColor = Color.White
|
|
ListBox4.ForeColor = Color.White
|
|
ListBox5.ForeColor = Color.White
|
|
ListBox6.ForeColor = Color.White
|
|
ListBox7.ForeColor = Color.White
|
|
ListBox8.ForeColor = Color.White
|
|
ContextMenuStrip1.ForeColor = Color.White
|
|
ContextMenuStrip2.ForeColor = Color.White
|
|
ContextMenuStrip3.ForeColor = Color.White
|
|
ContextMenuStrip4.ForeColor = Color.White
|
|
ContextMenuStrip5.ForeColor = Color.White
|
|
ContextMenuStrip6.ForeColor = Color.White
|
|
ContextMenuStrip7.ForeColor = Color.White
|
|
Label1.ForeColor = Color.White
|
|
Label2.ForeColor = Color.White
|
|
Label3.ForeColor = Color.White
|
|
Label4.ForeColor = Color.White
|
|
Label5.ForeColor = Color.White
|
|
Label6.ForeColor = Color.White
|
|
Label7.ForeColor = Color.White
|
|
ElseIf lines1a(0) = 3 Then
|
|
TéléchargeLaPlaylistSelectionnezToolStripMenuItem.Image = Form1.PictureBox10.Image
|
|
ToolStripMenuItem1.Image = Form1.PictureBox10.Image
|
|
ToolStripMenuItem3.Image = Form1.PictureBox10.Image
|
|
ToolStripMenuItem5.Image = Form1.PictureBox10.Image
|
|
ToolStripMenuItem7.Image = Form1.PictureBox10.Image
|
|
ToolStripMenuItem9.Image = Form1.PictureBox10.Image
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ListBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ListBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ListBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ListBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ListBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ListBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ListBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ListBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ContextMenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ContextMenuStrip2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ContextMenuStrip3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ContextMenuStrip4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ContextMenuStrip5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ContextMenuStrip6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ContextMenuStrip7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ProgressBar1.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)
|
|
Label4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Label5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Label6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Label7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ListBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ListBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ListBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ListBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ListBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ListBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ListBox7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ListBox8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ContextMenuStrip1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ContextMenuStrip2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ContextMenuStrip3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ContextMenuStrip4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ContextMenuStrip5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ContextMenuStrip6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ContextMenuStrip7.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)
|
|
Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Else
|
|
|
|
End If
|
|
|
|
ListBox7.Items.Clear()
|
|
Try
|
|
If My.Computer.Network.Ping("www.google.com") = True Then
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
|
|
If vri = 1 Then
|
|
MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical)
|
|
Close()
|
|
Else
|
|
|
|
End If
|
|
Else
|
|
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
|
|
Try
|
|
PictureBox1.Image.Dispose()
|
|
File.Delete(compte & "\photo.png")
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Close()
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
|
|
Try
|
|
PictureBox1.Image.Dispose()
|
|
File.Delete(compte & "\photo.png")
|
|
Catch ex2 As Exception
|
|
|
|
End Try
|
|
Close()
|
|
End Try
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
ListBox7.Items.Add(info.Name)
|
|
Next
|
|
|
|
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
|
If lines1(0) = 0 Then
|
|
TabControl2.TabPages.Remove(TabPage9)
|
|
ftp()
|
|
Exit Sub
|
|
Else
|
|
co()
|
|
End If
|
|
End Sub
|
|
Sub ftp()
|
|
Try
|
|
ListBox1.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/autre/")
|
|
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
|
|
|
|
ListBox1.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox1.Items.Count = 0 Then
|
|
Label1.Show()
|
|
Else
|
|
Label1.Hide()
|
|
End If
|
|
ftp2()
|
|
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 & "/playlist/autre/")
|
|
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
|
|
|
|
ListBox1.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox1.Items.Count = 0 Then
|
|
Label1.Show()
|
|
Else
|
|
Label1.Hide()
|
|
End If
|
|
ftp2()
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
Sub ftp2()
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/classique/")
|
|
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
|
|
|
|
ListBox2.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox2.Items.Count = 0 Then
|
|
Label2.Show()
|
|
Else
|
|
Label2.Hide()
|
|
End If
|
|
ftp3()
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
Timer2.Stop()
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/classique/")
|
|
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
|
|
|
|
ListBox2.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox2.Items.Count = 0 Then
|
|
Label2.Show()
|
|
Else
|
|
Label2.Hide()
|
|
End If
|
|
ftp3()
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
Sub ftp3()
|
|
Try
|
|
ListBox3.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/jazz/")
|
|
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
|
|
|
|
ListBox3.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox3.Items.Count = 0 Then
|
|
Label3.Show()
|
|
Else
|
|
Label3.Hide()
|
|
End If
|
|
ftp4()
|
|
Catch ex As Exception
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
|
Timer3.Stop()
|
|
Try
|
|
ListBox3.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/jazz/")
|
|
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
|
|
|
|
ListBox3.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox3.Items.Count = 0 Then
|
|
Label3.Show()
|
|
Else
|
|
Label3.Hide()
|
|
End If
|
|
ftp4()
|
|
Catch ex As Exception
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
Sub ftp4()
|
|
Try
|
|
ListBox4.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/rap/")
|
|
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
|
|
|
|
ListBox4.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox4.Items.Count = 0 Then
|
|
Label4.Show()
|
|
Else
|
|
Label4.Hide()
|
|
End If
|
|
ftp5()
|
|
Catch ex As Exception
|
|
Timer4.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
|
|
Timer4.Stop()
|
|
|
|
Try
|
|
ListBox4.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/rap/")
|
|
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
|
|
|
|
ListBox4.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox4.Items.Count = 0 Then
|
|
Label4.Show()
|
|
Else
|
|
Label4.Hide()
|
|
End If
|
|
ftp5()
|
|
Catch ex As Exception
|
|
Timer4.Start()
|
|
End Try
|
|
End Sub
|
|
Sub ftp5()
|
|
Try
|
|
ListBox5.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/youtube/")
|
|
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
|
|
|
|
ListBox5.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox5.Items.Count = 0 Then
|
|
Label5.Show()
|
|
Else
|
|
Label5.Hide()
|
|
End If
|
|
ftp6()
|
|
Catch ex As Exception
|
|
Timer5.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
|
|
Timer5.Stop()
|
|
Try
|
|
ListBox5.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/youtube/")
|
|
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
|
|
|
|
ListBox5.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox5.Items.Count = 0 Then
|
|
Label5.Show()
|
|
Else
|
|
Label5.Hide()
|
|
End If
|
|
ftp6()
|
|
Catch ex As Exception
|
|
Timer5.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
|
If lines1(0) = 0 Then
|
|
MsgBox("Vous devez être connecter à un compte lecteur média", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form192.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TéléchargeLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TéléchargeLaPlaylistSelectionnezToolStripMenuItem.Click
|
|
listselected = ListBox1.SelectedItem
|
|
If ListBox1.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
listselected = ""
|
|
Else
|
|
If Directory.Exists(dosplaylist & listselected) = True Then
|
|
MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
|
|
listselected = ""
|
|
Else
|
|
dl = 1
|
|
Button1.Enabled = False
|
|
ListBox1.Enabled = False
|
|
ListBox2.Enabled = False
|
|
ListBox3.Enabled = False
|
|
ListBox4.Enabled = False
|
|
ListBox5.Enabled = False
|
|
ListBox6.Enabled = False
|
|
ProgressBar1.Value = 0
|
|
Directory.CreateDirectory(dosplaylist & listselected)
|
|
listselected = ListBox1.SelectedItem
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/autre/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
|
|
ProgressBar1.Show()
|
|
Catch ex As Exception
|
|
MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
|
|
Directory.Delete(dosplaylist & listselected)
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub InformationSurLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InformationSurLaPlaylistSelectionnezToolStripMenuItem.Click
|
|
If ListBox1.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
payliststorelit = 0
|
|
informationplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
|
listselected = ListBox2.SelectedItem
|
|
If ListBox2.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
listselected = ""
|
|
Else
|
|
If Directory.Exists(dosplaylist & listselected) = True Then
|
|
MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
|
|
listselected = ""
|
|
Else
|
|
dl = 1
|
|
Button1.Enabled = False
|
|
ListBox1.Enabled = False
|
|
ListBox2.Enabled = False
|
|
ListBox3.Enabled = False
|
|
ListBox4.Enabled = False
|
|
ListBox5.Enabled = False
|
|
ListBox6.Enabled = False
|
|
ProgressBar1.Value = 0
|
|
Directory.CreateDirectory(dosplaylist & listselected)
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/classique/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
|
|
ProgressBar1.Show()
|
|
Catch ex As Exception
|
|
MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
|
|
Directory.Delete(dosplaylist & listselected)
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
|
|
If ListBox2.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
payliststorelit = 1
|
|
informationplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
|
|
listselected = ListBox3.SelectedItem
|
|
If ListBox3.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If Directory.Exists(dosplaylist & listselected) = True Then
|
|
MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
|
|
listselected = ""
|
|
Else
|
|
dl = 1
|
|
Button1.Enabled = False
|
|
ListBox1.Enabled = False
|
|
ListBox2.Enabled = False
|
|
ListBox3.Enabled = False
|
|
ListBox4.Enabled = False
|
|
ListBox5.Enabled = False
|
|
ListBox6.Enabled = False
|
|
ProgressBar1.Value = 0
|
|
Directory.CreateDirectory(dosplaylist & listselected)
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/jazz/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
|
|
ProgressBar1.Show()
|
|
Catch ex As Exception
|
|
MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
|
|
Directory.Delete(dosplaylist & listselected)
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
|
If ListBox3.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
payliststorelit = 2
|
|
informationplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
|
|
listselected = ListBox4.SelectedItem
|
|
If ListBox4.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If Directory.Exists(dosplaylist & listselected) = True Then
|
|
MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
|
|
listselected = ""
|
|
Else
|
|
dl = 1
|
|
Button1.Enabled = False
|
|
ListBox1.Enabled = False
|
|
ListBox2.Enabled = False
|
|
ListBox3.Enabled = False
|
|
ListBox4.Enabled = False
|
|
ListBox5.Enabled = False
|
|
ListBox6.Enabled = False
|
|
ProgressBar1.Value = 0
|
|
Directory.CreateDirectory(dosplaylist & listselected)
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/rap/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
|
|
ProgressBar1.Show()
|
|
Catch ex As Exception
|
|
MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
|
|
Directory.Delete(dosplaylist & listselected)
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
|
If ListBox4.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
payliststorelit = 3
|
|
informationplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
|
|
listselected = ListBox5.SelectedItem
|
|
If ListBox5.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If Directory.Exists(dosplaylist & listselected) = True Then
|
|
MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
|
|
listselected = ""
|
|
Else
|
|
dl = 1
|
|
Button1.Enabled = False
|
|
ListBox1.Enabled = False
|
|
ListBox2.Enabled = False
|
|
ListBox3.Enabled = False
|
|
ListBox4.Enabled = False
|
|
ListBox5.Enabled = False
|
|
ListBox6.Enabled = False
|
|
ProgressBar1.Value = 0
|
|
Directory.CreateDirectory(dosplaylist & listselected)
|
|
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/youtube/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
|
|
ProgressBar1.Show()
|
|
Catch ex As Exception
|
|
MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
|
|
Directory.Delete(dosplaylist & listselected)
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
|
|
If ListBox5.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
payliststorelit = 4
|
|
informationplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
Sub ftp6()
|
|
Try
|
|
ListBox6.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/")
|
|
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
|
|
|
|
ListBox6.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox6.Items.Count = 0 Then
|
|
Label6.Show()
|
|
Else
|
|
Label6.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer6.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
|
|
Timer6.Stop()
|
|
Try
|
|
ListBox6.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/")
|
|
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
|
|
|
|
ListBox6.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox6.Items.Count = 0 Then
|
|
Label6.Show()
|
|
Else
|
|
Label6.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer6.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
|
|
listselected = ListBox6.SelectedItem
|
|
If ListBox6.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If Directory.Exists(dosplaylist & listselected) = True Then
|
|
MsgBox("La playlist: " & listselected & " existe déjà", MsgBoxStyle.Critical)
|
|
listselected = ""
|
|
Else
|
|
dl = 1
|
|
Button1.Enabled = False
|
|
ListBox1.Enabled = False
|
|
ListBox2.Enabled = False
|
|
ListBox3.Enabled = False
|
|
ListBox4.Enabled = False
|
|
ListBox5.Enabled = False
|
|
ListBox6.Enabled = False
|
|
ProgressBar1.Value = 0
|
|
Directory.CreateDirectory(dosplaylist & listselected)
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "/playlist/libre de droit/" & listselected & "/" & listselected & ".zip"), (dosplaylist & "\" & listselected & ".zip"))
|
|
ProgressBar1.Show()
|
|
Catch ex As Exception
|
|
MsgBox("Une erreur est survenue", MsgBoxStyle.Critical)
|
|
Directory.Delete(dosplaylist & listselected)
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
|
|
If ListBox6.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
payliststorelit = 5
|
|
informationplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged
|
|
ProgressBar1.Value = e.ProgressPercentage
|
|
Me.Text = "Playlist store - téléchargement de " & listselected & ": " & e.ProgressPercentage & "%"
|
|
End Sub
|
|
|
|
Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
|
|
Me.Text = "Playliste store - installation de " & listselected
|
|
ProgressBar1.Value = 0
|
|
ProgressBar1.Style = ProgressBarStyle.Marquee
|
|
BackgroundWorker1.RunWorkerAsync()
|
|
End Sub
|
|
|
|
Dim WithEvents téléchargerfr As WebClient
|
|
|
|
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
|
|
Compression.ZipFile.ExtractToDirectory(dosplaylist & "\" & listselected & ".zip", dosplaylist & "\" & listselected)
|
|
End Sub
|
|
|
|
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
|
|
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
|
If lines1(0) = 0 Then
|
|
Text = "Playliste store"
|
|
Else
|
|
Text = "Playliste store - " & utilisateurnom
|
|
End If
|
|
dl = 0
|
|
ProgressBar1.Style = ProgressBarStyle.Blocks
|
|
ProgressBar1.Value = 100
|
|
File.Delete(dosplaylist & listselected & ".zip")
|
|
Button1.Enabled = True
|
|
ListBox1.Enabled = True
|
|
ListBox2.Enabled = True
|
|
ListBox3.Enabled = True
|
|
ListBox4.Enabled = True
|
|
ListBox5.Enabled = True
|
|
ListBox6.Enabled = True
|
|
ListBox7.Items.Clear()
|
|
For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
ListBox7.Items.Add(info.Name)
|
|
Next
|
|
|
|
|
|
MsgBox("La playlist: " & listselected & " a bien été télécharger", MsgBoxStyle.Information)
|
|
listselected = ""
|
|
ProgressBar1.Value = 0
|
|
ProgressBar1.Hide()
|
|
End Sub
|
|
|
|
Private Sub playliststore_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
If dl = 1 Then
|
|
e.Cancel = True
|
|
MsgBox("Le téléchargement de la playlist: " & listselected & " est en cours", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
|
If lines1(0) = 0 Then
|
|
Timer1.Stop()
|
|
Timer2.Stop()
|
|
Timer3.Stop()
|
|
Timer4.Stop()
|
|
Timer5.Stop()
|
|
Timer6.Stop()
|
|
Timer7.Stop()
|
|
Timer8.Stop()
|
|
Timer9.Stop()
|
|
Timer10.Stop()
|
|
Timer11.Stop()
|
|
ListBox1.Items.Clear()
|
|
ListBox2.Items.Clear()
|
|
ListBox3.Items.Clear()
|
|
ListBox4.Items.Clear()
|
|
ListBox5.Items.Clear()
|
|
ListBox6.Items.Clear()
|
|
ListBox7.Items.Clear()
|
|
ListBox8.Items.Clear()
|
|
Else
|
|
Try
|
|
PictureBox1.Image.Dispose()
|
|
File.Delete(compte & "\photo.png")
|
|
Catch ex As Exception
|
|
File.Delete(compte & "\photo.png")
|
|
End Try
|
|
Timer1.Stop()
|
|
Timer2.Stop()
|
|
Timer3.Stop()
|
|
Timer4.Stop()
|
|
Timer5.Stop()
|
|
Timer6.Stop()
|
|
Timer7.Stop()
|
|
Timer8.Stop()
|
|
Timer9.Stop()
|
|
Timer10.Stop()
|
|
Timer11.Stop()
|
|
ListBox1.Items.Clear()
|
|
ListBox2.Items.Clear()
|
|
ListBox3.Items.Clear()
|
|
ListBox4.Items.Clear()
|
|
ListBox5.Items.Clear()
|
|
ListBox6.Items.Clear()
|
|
ListBox7.Items.Clear()
|
|
ListBox8.Items.Clear()
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub co()
|
|
Dim lines1() As String = File.ReadAllLines(compteco)
|
|
utilisateurnom = lines1(0)
|
|
|
|
|
|
Try
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & utilisateurnom & "/modo.txt")
|
|
SupprimerLaPlaylistSelectionnezToolStripMenuItem.Visible = True
|
|
SupprimerLaPlaylistSelectionnezToolStripMenuItem1.Visible = True
|
|
SupprimerLaPlaylistSelectionnezToolStripMenuItem2.Visible = True
|
|
SupprimerLaPlaylistSelectionnezToolStripMenuItem3.Visible = True
|
|
SupprimerLaPlaylistSelectionnezToolStripMenuItem4.Visible = True
|
|
SupprimerLaPlaylistSelectionnezToolStripMenuItem5.Visible = True
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
|
|
Text = "Playliste store - " & utilisateurnom
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & lines1(0) & "/photo.png", compte & "\photo.png")
|
|
PictureBox1.Image = Image.FromFile(compte & "\photo.png")
|
|
co2()
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
|
|
Timer8.Stop()
|
|
Dim lines1() As String = File.ReadAllLines(compteco)
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & lines1(0) & "/photo.png", compte & "\photo.png")
|
|
PictureBox1.Image = Image.FromFile(compte & "\photo.png")
|
|
co2()
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub SupprimerLaPlaylisteSelectionnezDuStoreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylisteSelectionnezDuStoreToolStripMenuItem.Click
|
|
If ListBox8.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim msg = MsgBox("Voulez-vous vraiment supprimer: " & ListBox8.SelectedItem, MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
Enabled = False
|
|
delplaylist()
|
|
Else
|
|
MsgBox("Action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
Sub co2()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/")
|
|
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)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If Directory.Exists(cozip & "\playlist\") = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
ftpcompte()
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
addplaylistcompte()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Timer9.Start()
|
|
End Try
|
|
End Sub
|
|
Sub addplaylistcompte()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/playlist/"), 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()
|
|
ftpcompte()
|
|
Catch ex As Exception
|
|
Timer10.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
|
|
Timer10.Stop()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & utilisateurnom & "/playlist/"), 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()
|
|
ftpcompte()
|
|
Catch ex As Exception
|
|
Timer10.Start()
|
|
End Try
|
|
End Sub
|
|
Sub ftpcompte()
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/")
|
|
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
|
|
|
|
ListBox8.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox8.Items.Count = 0 Then
|
|
Label7.Show()
|
|
Else
|
|
Label7.Hide()
|
|
End If
|
|
ftp()
|
|
Catch ex As Exception
|
|
Timer11.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
|
|
Timer9.Stop()
|
|
Try
|
|
ListBox1.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/")
|
|
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)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If Directory.Exists(compte & "\playlist\") = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
ftpcompte()
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(cozip)
|
|
Dim info As New IO.DirectoryInfo(fichier)
|
|
Directory.Delete(cozip & info.Name)
|
|
Next
|
|
addplaylistcompte()
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
Timer9.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
|
|
Timer11.Stop()
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/")
|
|
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
|
|
|
|
ListBox8.Items.Add(str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox8.Items.Count = 0 Then
|
|
Label7.Show()
|
|
Else
|
|
Label7.Hide()
|
|
End If
|
|
ftp()
|
|
Catch ex As Exception
|
|
Timer11.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ImformationDeLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ImformationDeLaPlaylistSelectionnezToolStripMenuItem.Click
|
|
If ListBox8.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form194.ShowDialog()
|
|
End If
|
|
End Sub
|
|
Sub delplaylist()
|
|
Try
|
|
Dim lines4() As String = File.ReadAllLines(compteco)
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/cheminplaylist.txt")
|
|
delplaylistnom = vri
|
|
delplaylist3()
|
|
Catch ex As Exception
|
|
Timer12.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
|
|
Timer12.Stop()
|
|
Try
|
|
Dim lines4() As String = File.ReadAllLines(compteco)
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/cheminplaylist.txt")
|
|
delplaylistnom = vri
|
|
delplaylist3()
|
|
Catch ex As Exception
|
|
Timer12.Start()
|
|
End Try
|
|
End Sub
|
|
Sub delplaylist3()
|
|
Dim lines4() As String = File.ReadAllLines(compteco)
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info3.txt")
|
|
If vri = "" Then
|
|
Timer14.Start()
|
|
Else
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist5()
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
Timer14.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
|
|
Timer14.Stop()
|
|
Dim lines4() As String = File.ReadAllLines(compteco)
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info3.txt")
|
|
If vri = "" Then
|
|
Timer14.Start()
|
|
Else
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist5()
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
Timer14.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
|
|
Timer15.Stop()
|
|
Dim lines4() As String = File.ReadAllLines(compteco)
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info4.txt")
|
|
If vri = "" Then
|
|
Timer14.Start()
|
|
Else
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist6()
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
Timer15.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
Sub delplaylist5()
|
|
Dim lines4() As String = File.ReadAllLines(compteco)
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info4.txt")
|
|
If vri = "" Then
|
|
Timer15.Start()
|
|
Else
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist6()
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
Timer15.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick
|
|
Timer16.Stop()
|
|
Dim lines4() As String = File.ReadAllLines(compteco)
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info5.txt")
|
|
If vri = "" Then
|
|
Timer16.Start()
|
|
Else
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist7()
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
Timer16.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
Sub delplaylist6()
|
|
Dim lines4() As String = File.ReadAllLines(compteco)
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & lines4(0) & "/playlist/" & ListBox8.SelectedItem & "/info5.txt")
|
|
If vri = "" Then
|
|
Timer16.Start()
|
|
Else
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(vri)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist7()
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
Timer16.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
|
|
Timer17.Stop()
|
|
Try
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(delplaylistnom)
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
delplaylist8()
|
|
Catch ex As Exception
|
|
Timer17.Start()
|
|
End Try
|
|
End Sub
|
|
Sub delplaylist7()
|
|
Try
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(delplaylistnom)
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
delplaylist8()
|
|
Catch ex As Exception
|
|
Timer17.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
|
|
Timer18.Stop()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/cheminplaylist.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist9()
|
|
Catch ex As Exception
|
|
Timer18.Start()
|
|
End Try
|
|
End Sub
|
|
Sub delplaylist8()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/cheminplaylist.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist9()
|
|
Catch ex As Exception
|
|
Timer18.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
|
|
Timer19.Stop()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info2.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist10()
|
|
Catch ex As Exception
|
|
Timer19.Start()
|
|
End Try
|
|
End Sub
|
|
Sub delplaylist9()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info2.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist10()
|
|
Catch ex As Exception
|
|
Timer19.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
|
|
Timer20.Stop()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info3.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist12()
|
|
Catch ex As Exception
|
|
Timer20.Start()
|
|
End Try
|
|
End Sub
|
|
Sub delplaylist10()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info3.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist12()
|
|
Catch ex As Exception
|
|
Timer20.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
|
|
Timer21.Stop()
|
|
|
|
Try
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
Enabled = True
|
|
MsgBox("La playlist: " & ListBox8.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
ftpcompte()
|
|
Catch ex As Exception
|
|
Timer21.Start()
|
|
End Try
|
|
End Sub
|
|
Sub delplaylist11()
|
|
Try
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
Enabled = True
|
|
MsgBox("La playlist: " & ListBox8.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
ftpcompte()
|
|
Catch ex As Exception
|
|
Timer21.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
|
|
Timer22.Stop()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info4.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist13()
|
|
Catch ex As Exception
|
|
Timer22.Start()
|
|
End Try
|
|
End Sub
|
|
Sub delplaylist12()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info4.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist13()
|
|
Catch ex As Exception
|
|
Timer22.Start()
|
|
End Try
|
|
End Sub
|
|
Sub delplaylist13()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info5.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist11()
|
|
Catch ex As Exception
|
|
Timer23.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
|
|
Timer23.Stop()
|
|
Try
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & utilisateurnom & "/playlist/" & ListBox8.SelectedItem & "/info5.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
delplaylist11()
|
|
Catch ex As Exception
|
|
Timer22.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem.Click
|
|
If ListBox1.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
|
|
Else
|
|
payliststorelit = 1
|
|
signalezplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem1.Click
|
|
If ListBox2.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
|
|
Else
|
|
payliststorelit = 2
|
|
signalezplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem2.Click
|
|
If ListBox3.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
|
|
Else
|
|
payliststorelit = 3
|
|
signalezplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem3.Click
|
|
If ListBox4.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
|
|
Else
|
|
payliststorelit = 4
|
|
signalezplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem4.Click
|
|
If ListBox5.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
|
|
Else
|
|
payliststorelit = 5
|
|
signalezplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SignalezLaPlaylistSelectionnezToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles SignalezLaPlaylistSelectionnezToolStripMenuItem5.Click
|
|
If ListBox6.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une playlist", MsgBoxStyle.Critical)
|
|
Else
|
|
payliststorelit = 6
|
|
signalezplaylist.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ActualiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem.Click
|
|
actualiser()
|
|
End Sub
|
|
Sub actualiser()
|
|
Timer24.Start()
|
|
Try
|
|
If My.Computer.Network.Ping("www.google.com") = True Then
|
|
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
|
If lines1(0) = 0 Then
|
|
ftp()
|
|
Else
|
|
ftpcompte()
|
|
End If
|
|
Else
|
|
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Critical)
|
|
Close()
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Critical)
|
|
Close()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ActualiserToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem1.Click
|
|
actualiser()
|
|
End Sub
|
|
|
|
Private Sub ActualiserToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem3.Click
|
|
actualiser()
|
|
End Sub
|
|
|
|
Private Sub ActualiserToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem2.Click
|
|
actualiser()
|
|
End Sub
|
|
|
|
Private Sub ActualiserToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem4.Click
|
|
actualiser()
|
|
End Sub
|
|
|
|
Private Sub ActualiserToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem5.Click
|
|
actualiser()
|
|
End Sub
|
|
|
|
Private Sub ListBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ListBox1.KeyDown
|
|
If e.KeyData = Keys.F5 Then
|
|
actualiser()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub playliststore_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
|
|
If e.KeyData = Keys.F5 Then
|
|
actualiser()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick
|
|
Timer24.Stop()
|
|
actualiser()
|
|
End Sub
|
|
|
|
Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem.Click
|
|
If ListBox1.SelectedItem = "" Then
|
|
MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox1.SelectedItem, MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
delplayliste1()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub delplayliste1()
|
|
My.Computer.Network.DownloadFile(ipsite & "/playlist/autre/" & ListBox1.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
|
|
File.Delete(dosparamètres & "\infotemps.txt")
|
|
Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/autre/" & ListBox1.SelectedItem & "/info.txt")
|
|
ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/autre/" & ListBox1.SelectedItem & "/musique.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/autre/" & ListBox1.SelectedItem & "/" & ListBox1.SelectedItem & ".zip")
|
|
ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/autre/" & ListBox1.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/cheminplaylist.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/info2.txt")
|
|
ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/info3.txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/info4.txt")
|
|
ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
|
|
Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/info5.txt")
|
|
ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
|
|
Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox1.SelectedItem & " - catégorie - autre/")
|
|
ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse
|
|
|
|
MsgBox("la playlist: " & ListBox1.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.nomfile = ListBox1.SelectedItem
|
|
mailsuppr.typfile = "Playlist"
|
|
mailsuppr.userdladmin = utilisateurnom
|
|
mailsuppr.ShowDialog()
|
|
End If
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem1.Click
|
|
If ListBox2.SelectedItem = "" Then
|
|
MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox2.SelectedItem, MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
delplayliste2()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub delplayliste2()
|
|
My.Computer.Network.DownloadFile(ipsite & "/playlist/classique/" & ListBox2.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
|
|
File.Delete(dosparamètres & "\infotemps.txt")
|
|
Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/classique/" & ListBox2.SelectedItem & "/info.txt")
|
|
ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/classique/" & ListBox2.SelectedItem & "/musique.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/classique/" & ListBox2.SelectedItem & "/" & ListBox2.SelectedItem & ".zip")
|
|
ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/classique/" & ListBox2.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/cheminplaylist.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/info2.txt")
|
|
ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/info3.txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/info4.txt")
|
|
ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
|
|
Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/info5.txt")
|
|
ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
|
|
Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox2.SelectedItem & " - catégorie - classique/")
|
|
ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse
|
|
|
|
MsgBox("la playlist: " & ListBox2.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.nomfile = ListBox2.SelectedItem
|
|
mailsuppr.typfile = "Playlist"
|
|
mailsuppr.userdladmin = utilisateurnom
|
|
mailsuppr.ShowDialog()
|
|
End If
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem2.Click
|
|
If ListBox3.SelectedItem = "" Then
|
|
MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox3.SelectedItem, MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
delplayliste3()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub delplayliste3()
|
|
My.Computer.Network.DownloadFile(ipsite & "/playlist/jazz/" & ListBox3.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
|
|
File.Delete(dosparamètres & "\infotemps.txt")
|
|
Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/jazz/" & ListBox3.SelectedItem & "/info.txt")
|
|
ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/jazz/" & ListBox3.SelectedItem & "/musique.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/jazz/" & ListBox3.SelectedItem & "/" & ListBox3.SelectedItem & ".zip")
|
|
ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/jazz/" & ListBox3.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/cheminplaylist.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/info2.txt")
|
|
ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/info3.txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/info4.txt")
|
|
ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
|
|
Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/info5.txt")
|
|
ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
|
|
Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox3.SelectedItem & " - catégorie - jazz/")
|
|
ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse
|
|
|
|
MsgBox("la playlist: " & ListBox3.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.nomfile = ListBox3.SelectedItem
|
|
mailsuppr.typfile = "Playlist"
|
|
mailsuppr.userdladmin = utilisateurnom
|
|
mailsuppr.ShowDialog()
|
|
End If
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem3.Click
|
|
If ListBox4.SelectedItem = "" Then
|
|
MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox4.SelectedItem, MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
delplayliste4()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub delplayliste4()
|
|
My.Computer.Network.DownloadFile(ipsite & "/playlist/rap/" & ListBox4.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
|
|
File.Delete(dosparamètres & "\infotemps.txt")
|
|
Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/rap/" & ListBox4.SelectedItem & "/info.txt")
|
|
ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/rap/" & ListBox4.SelectedItem & "/musique.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/rap/" & ListBox4.SelectedItem & "/" & ListBox4.SelectedItem & ".zip")
|
|
ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/rap/" & ListBox4.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/cheminplaylist.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/info2.txt")
|
|
ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/info3.txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/info4.txt")
|
|
ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
|
|
Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/info5.txt")
|
|
ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
|
|
Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox4.SelectedItem & " - catégorie - rap/")
|
|
ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse
|
|
|
|
MsgBox("la playlist: " & ListBox4.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.nomfile = ListBox4.SelectedItem
|
|
mailsuppr.typfile = "Playlist"
|
|
mailsuppr.userdladmin = utilisateurnom
|
|
mailsuppr.ShowDialog()
|
|
End If
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem4.Click
|
|
If ListBox5.SelectedItem = "" Then
|
|
MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox5.SelectedItem, MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
delplayliste5()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub delplayliste5()
|
|
My.Computer.Network.DownloadFile(ipsite & "/playlist/youtube/" & ListBox5.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
|
|
File.Delete(dosparamètres & "\infotemps.txt")
|
|
Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/youtube/" & ListBox5.SelectedItem & "/info.txt")
|
|
ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/youtube/" & ListBox5.SelectedItem & "/musique.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/youtube/" & ListBox5.SelectedItem & "/" & ListBox5.SelectedItem & ".zip")
|
|
ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/youtube/" & ListBox5.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/cheminplaylist.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/info2.txt")
|
|
ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/info3.txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/info4.txt")
|
|
ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
|
|
Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/info5.txt")
|
|
ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
|
|
Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox5.SelectedItem & " - catégorie - youtube/")
|
|
ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse
|
|
|
|
MsgBox("la playlist: " & ListBox5.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.nomfile = ListBox5.SelectedItem
|
|
mailsuppr.typfile = "Playlist"
|
|
mailsuppr.userdladmin = utilisateurnom
|
|
mailsuppr.ShowDialog()
|
|
End If
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub SupprimerLaPlaylistSelectionnezToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles SupprimerLaPlaylistSelectionnezToolStripMenuItem5.Click
|
|
If ListBox6.SelectedItem = "" Then
|
|
MsgBox("merci de selectionnez une playlist", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim msg = MsgBox("Voulez-vous vraiment supprimer la playlist: " & ListBox6.SelectedItem, MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
delplayliste6()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub delplayliste6()
|
|
My.Computer.Network.DownloadFile(ipsite & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/info.txt", dosparamètres & "\infotemps.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dosparamètres & "\infotemps.txt")
|
|
File.Delete(dosparamètres & "\infotemps.txt")
|
|
Dim ftreq1 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/info.txt")
|
|
ftreq1.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq1.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp1 As FtpWebResponse = ftreq1.GetResponse
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/musique.txt")
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/" & ListBox6.SelectedItem & ".zip")
|
|
ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/playlist/libre de droit/" & ListBox6.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/cheminplaylist.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/info2.txt")
|
|
ftreq5.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/info3.txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
Dim ftreq7 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/info4.txt")
|
|
ftreq7.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq7.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp7 As FtpWebResponse = ftreq7.GetResponse
|
|
Dim ftreq8 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/info5.txt")
|
|
ftreq8.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq8.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp8 As FtpWebResponse = ftreq8.GetResponse
|
|
Dim ftreq9 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/playlist/" & ListBox6.SelectedItem & " - catégorie - libre de droit/")
|
|
ftreq9.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq9.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp9 As FtpWebResponse = ftreq9.GetResponse
|
|
|
|
MsgBox("la playlist: " & ListBox6.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous envoyer un mail a " & lines1(0) & " pour prévenir de la supprétion", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.nomfile = ListBox6.SelectedItem
|
|
mailsuppr.typfile = "Playlist"
|
|
mailsuppr.userdladmin = utilisateurnom
|
|
mailsuppr.ShowDialog()
|
|
End If
|
|
ftp()
|
|
End Sub
|
|
End Class |