1934 lines
96 KiB
VB.net
1934 lines
96 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
Imports AxWMPLib
|
|
|
|
Public Class Form25
|
|
Public nomutilisateur As String = ""
|
|
Dim listb2ab As Integer = 0
|
|
Private Sub Form25_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
ListBox9.Hide()
|
|
Dim lines1() As String = File.ReadAllLines(théme)
|
|
If lines1(0) = 2 Then
|
|
Me.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip2.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ContextMenuStrip1.ForeColor = Color.White
|
|
ContextMenuStrip2.ForeColor = Color.White
|
|
ComboBox1.ForeColor = Color.White
|
|
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)
|
|
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
|
|
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
|
|
Label8.ForeColor = Color.White
|
|
Label9.ForeColor = Color.White
|
|
Label10.ForeColor = Color.White
|
|
Label11.ForeColor = Color.White
|
|
MenuStrip1.BackColor = Color.FromArgb(64, 64, 64)
|
|
OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
QuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
QuitterMusiqueStreamingToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
ToutQuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
FenêtreToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
MinimiserToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
TabPage1.BackColor = Color.FromArgb(64, 64, 64)
|
|
TabPage2.BackColor = Color.FromArgb(64, 64, 64)
|
|
TabPage3.BackColor = Color.FromArgb(64, 64, 64)
|
|
TabPage4.BackColor = Color.FromArgb(64, 64, 64)
|
|
TabPage5.BackColor = Color.FromArgb(64, 64, 64)
|
|
TabPage6.BackColor = Color.FromArgb(64, 64, 64)
|
|
TabPage7.BackColor = Color.FromArgb(64, 64, 64)
|
|
MenuStrip1.ForeColor = Color.White
|
|
OuvrirLesOptionToolStripMenuItem.ForeColor = Color.White
|
|
QuitterToolStripMenuItem.ForeColor = Color.White
|
|
QuitterMusiqueStreamingToolStripMenuItem.ForeColor = Color.White
|
|
ToutQuitterToolStripMenuItem.ForeColor = Color.White
|
|
MinimiserToolStripMenuItem.ForeColor = Color.White
|
|
MisEnLigneToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
MisEnLigneToolStripMenuItem.ForeColor = Color.White
|
|
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)
|
|
Label8.BackColor = Color.FromArgb(64, 64, 64)
|
|
Label9.BackColor = Color.FromArgb(64, 64, 64)
|
|
Label10.BackColor = Color.FromArgb(64, 64, 64)
|
|
Label11.BackColor = Color.FromArgb(64, 64, 64)
|
|
ElseIf lines1(0) = 3 Then
|
|
PictureBox7.Image = Form1.PictureBox10.Image
|
|
PictureBox1.Image = Form1.PictureBox7.Image
|
|
PictureBox2.Image = Form1.PictureBox4.Image
|
|
PictureBox3.Image = Form1.PictureBox5.Image
|
|
GunaTrackBar1.TrackColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
|
|
GunaTrackBar1.TrackHoverColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
|
|
GunaTrackBar1.TrackPressedColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
|
|
GunaTrackBar1.TrackIdleColor = Color.FromArgb(Form1.trackparcolorA, Form1.trackparcolorR, Form1.trackparcolorG, Form1.trackparcolorB)
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.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)
|
|
ContextMenuStrip1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ContextMenuStrip2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
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)
|
|
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)
|
|
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)
|
|
Label8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
MenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
QuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
QuitterMusiqueStreamingToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ToutQuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
FenêtreToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MinimiserToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TabPage1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TabPage2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TabPage3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TabPage4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TabPage5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TabPage6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TabPage7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MenuStrip1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
OuvrirLesOptionToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
QuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
QuitterMusiqueStreamingToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ToutQuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
MinimiserToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
MisEnLigneToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MisEnLigneToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
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)
|
|
Label8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Label9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Label10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Label11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
End If
|
|
|
|
Dim lines2() As String = File.ReadAllLines(musiquepar)
|
|
If lines2(0) = 1 Then
|
|
PictureBox5.Show()
|
|
Else
|
|
PictureBox5.Hide()
|
|
End If
|
|
|
|
|
|
Label3.Text = AxWindowsMediaPlayer1.settings.volume & "%"
|
|
|
|
|
|
Dim lines3() As String = File.ReadAllLines(comtpeco2)
|
|
If lines3(0) = 0 Then
|
|
MisEnLigneToolStripMenuItem.Visible = False
|
|
TabControl2.TabPages.Remove(TabPage9)
|
|
ftp()
|
|
Else
|
|
MisEnLigneToolStripMenuItem.Visible = True
|
|
Dim lines4() As String = File.ReadAllLines(compteco)
|
|
nomutilisateur = lines4(0)
|
|
vérifico()
|
|
End If
|
|
End Sub
|
|
Sub ftp2()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Musique/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
|
|
|
|
ListBox2.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox2.Items.Count = 0 Then
|
|
Label5.Show()
|
|
Else
|
|
Label5.Hide()
|
|
End If
|
|
|
|
ftp3()
|
|
End Sub
|
|
Sub ftp3()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Musique/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
|
|
|
|
ListBox3.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox3.Items.Count = 0 Then
|
|
Label6.Show()
|
|
Else
|
|
Label6.Hide()
|
|
End If
|
|
|
|
ftp4()
|
|
End Sub
|
|
Sub ftp4()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Musique/Pop/")
|
|
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
|
|
Label7.Show()
|
|
Else
|
|
Label7.Hide()
|
|
End If
|
|
|
|
ftp5()
|
|
End Sub
|
|
Sub ftp5()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Musique/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
|
|
Label8.Show()
|
|
Else
|
|
Label8.Hide()
|
|
End If
|
|
|
|
ftp6()
|
|
End Sub
|
|
Sub ftp6()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Musique/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
|
|
|
|
ListBox6.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox6.Items.Count = 0 Then
|
|
Label9.Show()
|
|
Else
|
|
Label9.Hide()
|
|
End If
|
|
|
|
ftp7()
|
|
End Sub
|
|
Sub ftp7()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Musique/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
|
|
|
|
ListBox7.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If ListBox7.Items.Count = 0 Then
|
|
Label10.Show()
|
|
Else
|
|
Label10.Hide()
|
|
End If
|
|
ftp8()
|
|
End Sub
|
|
|
|
Private Sub Form25_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
Dim lines() As String = File.ReadAllLines(settings1)
|
|
If BCstart = 1 Then
|
|
e.Cancel = True
|
|
MsgBox("Une sauvegarde est en cours merci de patienter...", MsgBoxStyle.Critical)
|
|
Else
|
|
If misdlno = 1 Then
|
|
e.Cancel = True
|
|
MsgBox("Une mise à jour est en cours de téléchargement" & vbNewLine & "merci de patienter", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If opentchat = 1 Then
|
|
MsgBox("Merci de fermer le tchat", MsgBoxStyle.Information)
|
|
e.Cancel = True
|
|
Dim msg2 = MsgBox("Voulez-vous fermer le tchat ?", MsgBoxStyle.YesNo)
|
|
If msg2 = MsgBoxResult.Yes Then
|
|
tchat.Close()
|
|
Close()
|
|
Else
|
|
tchat.WindowState = FormWindowState.Normal
|
|
tchat.TopMost = True
|
|
tchat.TopMost = False
|
|
End If
|
|
Else
|
|
Dim dw8 As New StreamWriter(lançer)
|
|
dw8.WriteLine(0)
|
|
dw8.Close()
|
|
Form1.NotifyIcon1.Visible = False
|
|
fermature.Show()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub QuitterMusiqueStreamingToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterMusiqueStreamingToolStripMenuItem.Click
|
|
AxWindowsMediaPlayer1.URL = ""
|
|
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
|
AxWindowsMediaPlayer1.currentPlaylist.clear()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Form1.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Label3.Text = AxWindowsMediaPlayer1.settings.volume & "%"
|
|
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
|
|
GunaTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1
|
|
GunaTrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
|
|
Label1.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
|
|
Label2.Text = AxWindowsMediaPlayer1.currentMedia.durationString
|
|
PictureBox4.Show()
|
|
Text = "Musique streaming: " & AxWindowsMediaPlayer1.currentMedia.name
|
|
Else
|
|
Label1.Text = "00:00"
|
|
Label2.Text = "00:00"
|
|
PictureBox4.Hide()
|
|
GunaTrackBar1.Value = 0
|
|
Text = "Musique streaming"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
|
|
If ListBox1.SelectedItem = "" Then
|
|
|
|
Else
|
|
AxWindowsMediaPlayer1.URL = ipsite & "/Musique/Autre/" & ListBox1.SelectedItem & "/" & ListBox1.SelectedItem & ".mp3"
|
|
PictureBox2.Show()
|
|
PictureBox1.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
If AxWindowsMediaPlayer1.URL = "" Then
|
|
|
|
Else
|
|
AxWindowsMediaPlayer1.Ctlcontrols.play()
|
|
PictureBox2.Show()
|
|
PictureBox1.Hide()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
End Sub
|
|
|
|
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
|
If AxWindowsMediaPlayer1.URL = "" Then
|
|
|
|
Else
|
|
If FolderBrowserDialog1.ShowDialog = 1 Then
|
|
ComboBox1.Hide()
|
|
If AxWindowsMediaPlayer1.URL.Contains("Autre") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(AxWindowsMediaPlayer1.URL), (FolderBrowserDialog1.SelectedPath & "/" & ListBox1.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Rap") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(AxWindowsMediaPlayer1.URL), (FolderBrowserDialog1.SelectedPath & "/" & ListBox2.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Classique") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(AxWindowsMediaPlayer1.URL), (FolderBrowserDialog1.SelectedPath & "/" & ListBox3.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Pop") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(AxWindowsMediaPlayer1.URL), (FolderBrowserDialog1.SelectedPath & "/" & ListBox4.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Youtube") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(AxWindowsMediaPlayer1.URL), (FolderBrowserDialog1.SelectedPath & "/" & ListBox5.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Jazz") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(AxWindowsMediaPlayer1.URL), (FolderBrowserDialog1.SelectedPath & "/" & ListBox6.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Libre de droit") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(AxWindowsMediaPlayer1.URL), (FolderBrowserDialog1.SelectedPath & "/" & ListBox7.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End If
|
|
Else
|
|
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged
|
|
ProgressBar1.Show()
|
|
ProgressBar1.Value = e.ProgressPercentage
|
|
End Sub
|
|
|
|
Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
|
|
ComboBox1.Show()
|
|
ProgressBar1.Value = 0
|
|
ProgressBar1.Hide()
|
|
MsgBox("La musique a bien été télécharger", MsgBoxStyle.Information)
|
|
End Sub
|
|
|
|
Dim WithEvents téléchargerfr As WebClient
|
|
|
|
Private Sub GunaMetroTrackBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles GunaMetroTrackBar1.Scroll
|
|
AxWindowsMediaPlayer1.settings.volume = GunaMetroTrackBar1.Value
|
|
PictureBox9.Image = My.Resources.sound_157173_1280
|
|
End Sub
|
|
|
|
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
|
|
If AxWindowsMediaPlayer1.settings.mute = True Then
|
|
PictureBox9.Image = My.Resources.sound_157173_1280
|
|
AxWindowsMediaPlayer1.settings.mute = False
|
|
Else
|
|
AxWindowsMediaPlayer1.settings.mute = True
|
|
PictureBox9.Image = My.Resources.sound_157173_1280___Copie
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
|
|
If AxWindowsMediaPlayer1.URL = "" Then
|
|
|
|
Else
|
|
If AxWindowsMediaPlayer1.URL.Contains("Autre") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox1.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox1.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\video.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun clip trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site.txt", repertoire & "site.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site.txt")
|
|
File.Delete(repertoire & "site.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form27.AxWindowsMediaPlayer1.URL = url3 & "/video.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form27.Text = "Clip de: " & ListBox1.SelectedItem
|
|
Form27.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Rap") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox2.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox2.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\video.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun clip trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site.txt", repertoire & "site.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site.txt")
|
|
File.Delete(repertoire & "site.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form27.AxWindowsMediaPlayer1.URL = url3 & "/video.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form27.Text = "Clip de: " & ListBox2.SelectedItem
|
|
Form27.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Classique") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox3.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox3.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\video.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun clip trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site.txt", repertoire & "site.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site.txt")
|
|
File.Delete(repertoire & "site.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form27.AxWindowsMediaPlayer1.URL = url3 & "/video.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form27.Text = "Clip de: " & ListBox3.SelectedItem
|
|
Form27.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Pop") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox4.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox4.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\video.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun clip trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site.txt", repertoire & "site.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site.txt")
|
|
File.Delete(repertoire & "site.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form27.AxWindowsMediaPlayer1.URL = url3 & "/video.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form27.Text = "Clip de: " & ListBox4.SelectedItem
|
|
Form27.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Youtube") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox5.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox5.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\video.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun clip trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site.txt", repertoire & "site.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site.txt")
|
|
File.Delete(repertoire & "site.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form27.AxWindowsMediaPlayer1.URL = url3 & "/video.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form27.Text = "Clip de: " & ListBox5.SelectedItem
|
|
Form27.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Jazz") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox6.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox6.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\video.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun clip trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site.txt", repertoire & "site.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site.txt")
|
|
File.Delete(repertoire & "site.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form27.AxWindowsMediaPlayer1.URL = url3 & "/video.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form27.Text = "Clip de: " & ListBox6.SelectedItem
|
|
Form27.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Libre de droit") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox7.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox7.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\video.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun clip trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site.txt", repertoire & "site.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site.txt")
|
|
File.Delete(repertoire & "site.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form27.AxWindowsMediaPlayer1.URL = url3 & "/video.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form27.Text = "Clip de: " & ListBox7.SelectedItem
|
|
Form27.Show()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click
|
|
If AxWindowsMediaPlayer1.URL = "" Then
|
|
|
|
Else
|
|
If AxWindowsMediaPlayer1.URL.Contains("Autre") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox1.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox1.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
MsgBox("Nom: " & AxWindowsMediaPlayer1.currentMedia.name & vbNewLine & vbNewLine & "Durée: " & AxWindowsMediaPlayer1.currentMedia.durationString & vbNewLine & vbNewLine & "publier par: " & lines1(0), MsgBoxStyle.Information)
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Rap") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox2.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox2.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
MsgBox("Nom: " & AxWindowsMediaPlayer1.currentMedia.name & vbNewLine & vbNewLine & "Durée: " & AxWindowsMediaPlayer1.currentMedia.durationString & vbNewLine & vbNewLine & "publier par: " & lines1(0), MsgBoxStyle.Information)
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Classique") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox3.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox3.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
MsgBox("Nom: " & AxWindowsMediaPlayer1.currentMedia.name & vbNewLine & vbNewLine & "Durée: " & AxWindowsMediaPlayer1.currentMedia.durationString & vbNewLine & vbNewLine & "publier par: " & lines1(0), MsgBoxStyle.Information)
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Pop") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox4.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox4.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
MsgBox("Nom: " & AxWindowsMediaPlayer1.currentMedia.name & vbNewLine & vbNewLine & "Durée: " & AxWindowsMediaPlayer1.currentMedia.durationString & vbNewLine & vbNewLine & "publier par: " & lines1(0), MsgBoxStyle.Information)
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Youtube") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox5.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox5.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
MsgBox("Nom: " & AxWindowsMediaPlayer1.currentMedia.name & vbNewLine & vbNewLine & "Durée: " & AxWindowsMediaPlayer1.currentMedia.durationString & vbNewLine & vbNewLine & "publier par: " & lines1(0), MsgBoxStyle.Information)
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Jazz") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox6.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox6.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
MsgBox("Nom: " & AxWindowsMediaPlayer1.currentMedia.name & vbNewLine & vbNewLine & "Durée: " & AxWindowsMediaPlayer1.currentMedia.durationString & vbNewLine & vbNewLine & "publier par: " & lines1(0), MsgBoxStyle.Information)
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Libre de droit") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox7.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox7.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
MsgBox("Nom: " & AxWindowsMediaPlayer1.currentMedia.name & vbNewLine & vbNewLine & "Durée: " & AxWindowsMediaPlayer1.currentMedia.durationString & vbNewLine & vbNewLine & "publier par: " & lines1(0), MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
|
|
If AxWindowsMediaPlayer1.URL = "" Then
|
|
|
|
Else
|
|
Form26.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
|
If AxWindowsMediaPlayer1.URL = "" Then
|
|
|
|
Else
|
|
If AxWindowsMediaPlayer1.URL.Contains("Autre") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox1.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox1.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\cara.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun karaoké trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site2.txt", repertoire & "site2.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site2.txt")
|
|
File.Delete(repertoire & "site2.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form75.AxWindowsMediaPlayer1.URL = url3 & "/karaoke.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form75.Text = "karaoké de: " & ListBox1.SelectedItem
|
|
Form75.Show()
|
|
Form88.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Rap") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox2.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox2.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\cara.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun karaoké trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site2.txt", repertoire & "site2.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site2.txt")
|
|
File.Delete(repertoire & "site2.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form75.AxWindowsMediaPlayer1.URL = url3 & "/karaoke.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form75.Text = "karaoké de: " & ListBox2.SelectedItem
|
|
Form75.Show()
|
|
Form88.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Classique") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox3.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox3.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\cara.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun karaoké trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site2.txt", repertoire & "site2.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site2.txt")
|
|
File.Delete(repertoire & "site2.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form75.AxWindowsMediaPlayer1.URL = url3 & "/karaoke.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form75.Text = "karaoké de: " & ListBox3.SelectedItem
|
|
Form75.Show()
|
|
Form88.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Pop") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox4.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox4.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\cara.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun karaoké trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site2.txt", repertoire & "site2.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site2.txt")
|
|
File.Delete(repertoire & "site2.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form75.AxWindowsMediaPlayer1.URL = url3 & "/karaoke.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form75.Text = "karaoké de: " & ListBox4.SelectedItem
|
|
Form75.Show()
|
|
Form88.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Youtube") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox5.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox5.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\cara.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun karaoké trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site2.txt", repertoire & "site2.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site2.txt")
|
|
File.Delete(repertoire & "site2.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form75.AxWindowsMediaPlayer1.URL = url3 & "/karaoke.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form75.Text = "karaoké de: " & ListBox5.SelectedItem
|
|
Form75.Show()
|
|
Form88.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Jazz") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox6.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox6.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\cara.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun karaoké trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site2.txt", repertoire & "site2.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site2.txt")
|
|
File.Delete(repertoire & "site2.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form75.AxWindowsMediaPlayer1.URL = url3 & "/karaoke.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form75.Text = "karaoké de: " & ListBox6.SelectedItem
|
|
Form75.Show()
|
|
Form88.Show()
|
|
End If
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Libre de droit") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox7.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox7.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(url3 & "\cara.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("Aucun karaoké trouvez", MsgBoxStyle.Information)
|
|
ElseIf vri1 = 1 Then
|
|
My.Computer.Network.DownloadFile(url3 & "\site2.txt", repertoire & "site2.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "site2.txt")
|
|
File.Delete(repertoire & "site2.txt")
|
|
Process.Start(lines1(0))
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
ElseIf vri1 = 2 Then
|
|
Form75.AxWindowsMediaPlayer1.URL = url3 & "/karaoke.mp4"
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
Me.Enabled = False
|
|
Form75.Text = "karaoké de: " & ListBox7.SelectedItem
|
|
Form75.Show()
|
|
Form88.Show()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedValueChanged
|
|
If ListBox1.SelectedItem = "" Then
|
|
|
|
Else
|
|
AxWindowsMediaPlayer1.URL = ipsite & "/Musique/Autre/" & ListBox1.SelectedItem & "/" & ListBox1.SelectedItem & ".mp3"
|
|
PictureBox2.Show()
|
|
PictureBox1.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GunaTrackBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles GunaTrackBar1.Scroll
|
|
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
|
|
Timer1.Stop()
|
|
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = GunaTrackBar1.Value
|
|
GunaTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1
|
|
Timer1.Start()
|
|
Else
|
|
GunaTrackBar1.Value = 0
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
|
|
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedValueChanged
|
|
If ListBox2.SelectedItem = "" Then
|
|
|
|
Else
|
|
AxWindowsMediaPlayer1.URL = ipsite & "/Musique/Rap/" & ListBox2.SelectedItem & "/" & ListBox2.SelectedItem & ".mp3"
|
|
PictureBox2.Show()
|
|
PictureBox1.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListBox3_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedValueChanged
|
|
If ListBox3.SelectedItem = "" Then
|
|
|
|
Else
|
|
AxWindowsMediaPlayer1.URL = ipsite & "/Musique/Classique/" & ListBox3.SelectedItem & "/" & ListBox3.SelectedItem & ".mp3"
|
|
PictureBox2.Show()
|
|
PictureBox1.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListBox4_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedValueChanged
|
|
If ListBox4.SelectedItem = "" Then
|
|
|
|
Else
|
|
AxWindowsMediaPlayer1.URL = ipsite & "/Musique/Pop/" & ListBox4.SelectedItem & "/" & ListBox4.SelectedItem & ".mp3"
|
|
PictureBox2.Show()
|
|
PictureBox1.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox5.SelectedValueChanged
|
|
If ListBox5.SelectedItem = "" Then
|
|
|
|
Else
|
|
AxWindowsMediaPlayer1.URL = ipsite & "/Musique/Youtube/" & ListBox5.SelectedItem & "/" & ListBox5.SelectedItem & ".mp3"
|
|
PictureBox2.Show()
|
|
PictureBox1.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListBox6_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox6.SelectedValueChanged
|
|
If ListBox6.SelectedItem = "" Then
|
|
|
|
Else
|
|
AxWindowsMediaPlayer1.URL = ipsite & "/Musique/Jazz/" & ListBox6.SelectedItem & "/" & ListBox6.SelectedItem & ".mp3"
|
|
PictureBox2.Show()
|
|
PictureBox1.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ListBox7_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox7.SelectedValueChanged
|
|
If ListBox7.SelectedItem = "" Then
|
|
|
|
Else
|
|
AxWindowsMediaPlayer1.URL = ipsite & "/Musique/Libre de droit/" & ListBox7.SelectedItem & "/" & ListBox7.SelectedItem & ".mp3"
|
|
PictureBox2.Show()
|
|
PictureBox1.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OuvrirLesOptionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirLesOptionToolStripMenuItem.Click
|
|
Form76.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub ToutQuitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToutQuitterToolStripMenuItem.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub MinimiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimiserToolStripMenuItem.Click
|
|
Me.WindowState = FormWindowState.Minimized
|
|
End Sub
|
|
|
|
Private Sub MisEnLigneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MisEnLigneToolStripMenuItem.Click
|
|
Form30.ShowDialog()
|
|
End Sub
|
|
Sub ftp()
|
|
ListBox1.Items.Clear()
|
|
ListBox2.Items.Clear()
|
|
ListBox3.Items.Clear()
|
|
ListBox4.Items.Clear()
|
|
ListBox5.Items.Clear()
|
|
ListBox6.Items.Clear()
|
|
ListBox7.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Musique/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
|
|
Label4.Show()
|
|
Else
|
|
Label4.Hide()
|
|
End If
|
|
|
|
ftp2()
|
|
End Sub
|
|
Sub vérifico()
|
|
Try
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/utilisateur/" & nomutilisateur & "/modo.txt")
|
|
PictureBox11.Show()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/")
|
|
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(musique & str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
If Directory.Exists(musique & "/musique/") = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(musique)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(musique & info.Name)
|
|
Next
|
|
ftpa()
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(musique)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(musique & info.Name)
|
|
Next
|
|
creartdosmusique()
|
|
End If
|
|
End Sub
|
|
Sub ftpa()
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/musique/")
|
|
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
|
|
Label11.Show()
|
|
Else
|
|
Label11.Hide()
|
|
End If
|
|
|
|
ftp()
|
|
End Sub
|
|
Sub creartdosmusique()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/musique/"), 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()
|
|
|
|
ftpa()
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub ActualiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ActualiserToolStripMenuItem.Click
|
|
ftpa()
|
|
End Sub
|
|
|
|
Private Sub SupprimerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerToolStripMenuItem.Click
|
|
If ListBox8.SelectedItem = "" Then
|
|
MsgBox("Merci de sélectionnez une musique", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim msg = MsgBox("Voulez-vous vraiment supprimer: " & ListBox8.SelectedItem & "?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & nomutilisateur & "/musique/" & ListBox8.SelectedItem & "/url.txt", musique & "url.txt")
|
|
Dim lines1() As String = File.ReadAllLines(musique & "url.txt")
|
|
Dim upurl = lines1(0)
|
|
|
|
ListBox9.Items.Clear()
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(upurl)
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
|
|
sr.Close()
|
|
|
|
|
|
listb2ab = ListBox9.Items.Count
|
|
ListBox9.SetSelected(0, True)
|
|
For x = 1 To ListBox9.Items.Count
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(upurl & ListBox9.SelectedItem)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
listb2ab = listb2ab - 1
|
|
ListBox9.SetSelected(listb2ab, True)
|
|
Next
|
|
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(upurl)
|
|
ftreq3.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/musique/" & ListBox8.SelectedItem & "/url.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/" & nomutilisateur & "/musique/" & ListBox8.SelectedItem & "/")
|
|
ftreq5.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
|
|
Dim azaezae As String = ""
|
|
|
|
If ListBox8.SelectedItem.ToString.Contains("Autre") Then
|
|
azaezae = ListBox8.SelectedItem.ToString.Replace(" - Autre", "")
|
|
ElseIf ListBox8.SelectedItem.ToString.Contains("Rap") Then
|
|
azaezae = ListBox8.SelectedItem.ToString.Replace(" - Rap", "")
|
|
ElseIf ListBox8.SelectedItem.ToString.Contains("Classique") Then
|
|
azaezae = ListBox8.SelectedItem.ToString.Replace(" - Classique", "")
|
|
ElseIf ListBox8.SelectedItem.ToString.Contains("Pop") Then
|
|
azaezae = ListBox8.SelectedItem.ToString.Replace(" - Pop", "")
|
|
ElseIf ListBox8.SelectedItem.ToString.Contains("Youtube") Then
|
|
azaezae = ListBox8.SelectedItem.ToString.Replace(" - Youtube", "")
|
|
ElseIf ListBox8.SelectedItem.ToString.Contains("Jazz") Then
|
|
azaezae = ListBox8.SelectedItem.ToString.Replace(" - Jazz", "")
|
|
ElseIf ListBox8.SelectedItem.ToString.Contains("Libre de droit") Then
|
|
azaezae = ListBox8.SelectedItem.ToString.Replace(" - Libre de droit", "")
|
|
End If
|
|
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Musique/find/" & azaezae & ".txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
|
|
File.Delete(musique & "url.txt")
|
|
ListBox9.Items.Clear()
|
|
listb2ab = 0
|
|
MsgBox("La musique: " & ListBox8.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
ftpa()
|
|
Else
|
|
MsgBox("Action annulez", MsgBoxStyle.Information)
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_TextUpdate(sender As Object, e As EventArgs) Handles ComboBox1.TextUpdate
|
|
If ComboBox1.Text = "" Then
|
|
ComboBox1.Size = New Size(731, 22)
|
|
ComboBox1.Size = New Size(731, 22)
|
|
Else
|
|
ComboBox1.Items.Remove("Taper ici pour rechercher")
|
|
ComboBox1.Size = New Size(731, 92)
|
|
End If
|
|
End Sub
|
|
Sub ftp8()
|
|
ComboBox1.Items.Clear()
|
|
ComboBox1.Items.Add("Taper ici pour rechercher")
|
|
ComboBox1.Text = "Taper ici pour rechercher"
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Musique/find/")
|
|
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
|
|
|
|
Dim str2 = str.Replace(".txt", "")
|
|
|
|
ComboBox1.Items.Add(str2)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
|
|
If ComboBox1.SelectedItem = "" Then
|
|
ComboBox1.Items.Add("Taper ici pour rechercher")
|
|
ComboBox1.Text = "Taper ici pour rechercher"
|
|
ComboBox1.Size = New Size(731, 22)
|
|
TabControl1.Focus()
|
|
ElseIf ComboBox1.SelectedItem = "Taper ici pour rechercher" Then
|
|
TabControl1.Focus()
|
|
Else
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/Musique/find/" & ComboBox1.SelectedItem & ".txt")
|
|
If vri1 = 1 Then
|
|
TabControl1.SelectTab(TabPage1)
|
|
ListBox1.SelectedItem = ComboBox1.SelectedItem
|
|
ListBox1.Focus()
|
|
ElseIf vri1 = 2 Then
|
|
ListBox2.SelectedItem = ComboBox1.SelectedItem
|
|
ListBox2.Focus()
|
|
ElseIf vri1 = 3 Then
|
|
TabControl1.SelectTab(TabPage3)
|
|
ListBox3.SelectedItem = ComboBox1.SelectedItem
|
|
ListBox3.Focus()
|
|
ElseIf vri1 = 4 Then
|
|
TabControl1.SelectTab(TabPage4)
|
|
ListBox4.SelectedItem = ComboBox1.SelectedItem
|
|
ListBox4.Focus()
|
|
ElseIf vri1 = 5 Then
|
|
TabControl1.SelectTab(TabPage5)
|
|
ListBox5.SelectedItem = ComboBox1.SelectedItem
|
|
ListBox5.Focus()
|
|
ElseIf vri1 = 6 Then
|
|
TabControl1.SelectTab(TabPage6)
|
|
ListBox6.SelectedItem = ComboBox1.SelectedItem
|
|
ListBox6.Focus()
|
|
ElseIf vri1 = 7 Then
|
|
TabControl1.SelectTab(TabPage7)
|
|
ListBox7.SelectedItem = ComboBox1.SelectedItem
|
|
ListBox7.Focus()
|
|
End If
|
|
ComboBox1.Items.Add("Taper ici pour rechercher")
|
|
ComboBox1.Text = "Taper ici pour rechercher"
|
|
ComboBox1.Size = New Size(731, 22)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
|
|
If ComboBox1.SelectedItem = "Taper ici pour rechercher" Then
|
|
ComboBox1.SelectedText = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click
|
|
If AxWindowsMediaPlayer1.URL = "" Then
|
|
|
|
Else
|
|
Dim msg = MsgBox("Voulez-vous vraiment supprimer: " & AxWindowsMediaPlayer1.currentMedia.name & " ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
srupperadmin()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub srupperadmin()
|
|
If AxWindowsMediaPlayer1.URL = "" Then
|
|
|
|
Else
|
|
If AxWindowsMediaPlayer1.URL.Contains("Autre") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox1.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox1.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
My.Computer.Network.DownloadFile(url3 & "\url.txt", repertoire & "url.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
Dim upurl() As String = File.ReadAllLines(repertoire & "url.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "url.txt")
|
|
ListBox9.Items.Clear()
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(upurl(0))
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
|
|
sr.Close()
|
|
|
|
|
|
listb2ab = ListBox9.Items.Count
|
|
ListBox9.SetSelected(0, True)
|
|
For x = 1 To ListBox9.Items.Count
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(upurl(0) & ListBox9.SelectedItem)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
listb2ab = listb2ab - 1
|
|
ListBox9.SetSelected(listb2ab, True)
|
|
Next
|
|
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(upurl(0))
|
|
ftreq3.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox1.SelectedItem & " - " & "Autre" & "/url.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Musique/find/" & ListBox1.SelectedItem & ".txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox1.SelectedItem & " - " & "Autre" & "/")
|
|
ftreq5.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
ListBox9.Items.Clear()
|
|
listb2ab = 0
|
|
MsgBox("La musique: " & ListBox1.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous vraiment prévenir le personne que sa musique a êtê supprimer ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.nomfile = ListBox1.SelectedItem
|
|
mailsuppr.typfile = "Musique"
|
|
mailsuppr.userdladmin = nomutilisateur
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.ShowDialog()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
ftpa()
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Rap") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox2.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox2.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
My.Computer.Network.DownloadFile(url3 & "\url.txt", repertoire & "url.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
Dim upurl() As String = File.ReadAllLines(repertoire & "url.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "url.txt")
|
|
ListBox9.Items.Clear()
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(upurl(0))
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
|
|
sr.Close()
|
|
|
|
|
|
listb2ab = ListBox9.Items.Count
|
|
ListBox9.SetSelected(0, True)
|
|
For x = 1 To ListBox9.Items.Count
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(upurl(0) & ListBox9.SelectedItem)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
listb2ab = listb2ab - 1
|
|
ListBox9.SetSelected(listb2ab, True)
|
|
Next
|
|
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(upurl(0))
|
|
ftreq3.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox2.SelectedItem & " - " & "Rap" & "/url.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Musique/find/" & ListBox2.SelectedItem & ".txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox2.SelectedItem & " - " & "Rap" & "/")
|
|
ftreq5.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
ListBox9.Items.Clear()
|
|
listb2ab = 0
|
|
MsgBox("La musique: " & ListBox2.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous vraiment prévenir le personne que sa musique a êtê supprimer ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.nomfile = ListBox2.SelectedItem
|
|
mailsuppr.typfile = "Musique"
|
|
mailsuppr.userdladmin = nomutilisateur
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.ShowDialog()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
ftpa()
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Classique") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox3.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox3.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
My.Computer.Network.DownloadFile(url3 & "\url.txt", repertoire & "url.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
Dim upurl() As String = File.ReadAllLines(repertoire & "url.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "url.txt")
|
|
ListBox9.Items.Clear()
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(upurl(0))
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
|
|
sr.Close()
|
|
|
|
|
|
listb2ab = ListBox9.Items.Count
|
|
ListBox9.SetSelected(0, True)
|
|
For x = 1 To ListBox9.Items.Count
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(upurl(0) & ListBox9.SelectedItem)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
listb2ab = listb2ab - 1
|
|
ListBox9.SetSelected(listb2ab, True)
|
|
Next
|
|
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(upurl(0))
|
|
ftreq3.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox3.SelectedItem & " - " & "Classique" & "/url.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Musique/find/" & ListBox3.SelectedItem & ".txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox3.SelectedItem & " - " & "Classique" & "/")
|
|
ftreq5.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
ListBox9.Items.Clear()
|
|
listb2ab = 0
|
|
MsgBox("La musique: " & ListBox3.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous vraiment prévenir le personne que sa musique a êtê supprimer ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.nomfile = ListBox3.SelectedItem
|
|
mailsuppr.typfile = "Musique"
|
|
mailsuppr.userdladmin = nomutilisateur
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.ShowDialog()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
ftpa()
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Pop") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox4.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox4.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
My.Computer.Network.DownloadFile(url3 & "\url.txt", repertoire & "url.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
Dim upurl() As String = File.ReadAllLines(repertoire & "url.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "url.txt")
|
|
ListBox9.Items.Clear()
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(upurl(0))
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
|
|
sr.Close()
|
|
|
|
|
|
listb2ab = ListBox9.Items.Count
|
|
ListBox9.SetSelected(0, True)
|
|
For x = 1 To ListBox9.Items.Count
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(upurl(0) & ListBox9.SelectedItem)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
listb2ab = listb2ab - 1
|
|
ListBox9.SetSelected(listb2ab, True)
|
|
Next
|
|
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(upurl(0))
|
|
ftreq3.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox4.SelectedItem & " - " & "Pop" & "/url.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Musique/find/" & ListBox4.SelectedItem & ".txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox4.SelectedItem & " - " & "Pop" & "/")
|
|
ftreq5.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
ListBox9.Items.Clear()
|
|
listb2ab = 0
|
|
MsgBox("La musique: " & ListBox4.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous vraiment prévenir le personne que sa musique a êtê supprimer ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.nomfile = ListBox4.SelectedItem
|
|
mailsuppr.typfile = "Musique"
|
|
mailsuppr.userdladmin = nomutilisateur
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.ShowDialog()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
ftpa()
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Youtube") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox5.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox5.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
My.Computer.Network.DownloadFile(url3 & "\url.txt", repertoire & "url.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
Dim upurl() As String = File.ReadAllLines(repertoire & "url.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "url.txt")
|
|
ListBox9.Items.Clear()
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(upurl(0))
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
|
|
sr.Close()
|
|
|
|
|
|
listb2ab = ListBox9.Items.Count
|
|
ListBox9.SetSelected(0, True)
|
|
For x = 1 To ListBox9.Items.Count
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(upurl(0) & ListBox9.SelectedItem)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
listb2ab = listb2ab - 1
|
|
ListBox9.SetSelected(listb2ab, True)
|
|
Next
|
|
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(upurl(0))
|
|
ftreq3.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox5.SelectedItem & " - " & "Youtube" & "/url.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Musique/find/" & ListBox5.SelectedItem & ".txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox5.SelectedItem & " - " & "Youtube" & "/")
|
|
ftreq5.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
ListBox9.Items.Clear()
|
|
listb2ab = 0
|
|
MsgBox("La musique: " & ListBox5.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous vraiment prévenir le personne que sa musique a êtê supprimer ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.nomfile = ListBox5.SelectedItem
|
|
mailsuppr.typfile = "Musique"
|
|
mailsuppr.userdladmin = nomutilisateur
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.ShowDialog()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
ftpa()
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Jazz") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox6.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox6.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
My.Computer.Network.DownloadFile(url3 & "\url.txt", repertoire & "url.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
Dim upurl() As String = File.ReadAllLines(repertoire & "url.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "url.txt")
|
|
ListBox9.Items.Clear()
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(upurl(0))
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
|
|
sr.Close()
|
|
|
|
|
|
listb2ab = ListBox9.Items.Count
|
|
ListBox9.SetSelected(0, True)
|
|
For x = 1 To ListBox9.Items.Count
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(upurl(0) & ListBox9.SelectedItem)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
listb2ab = listb2ab - 1
|
|
ListBox9.SetSelected(listb2ab, True)
|
|
Next
|
|
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(upurl(0))
|
|
ftreq3.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox6.SelectedItem & " - " & "Jazz" & "/url.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Musique/find/" & ListBox6.SelectedItem & ".txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox6.SelectedItem & " - " & "Jazz" & "/")
|
|
ftreq5.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
ListBox9.Items.Clear()
|
|
listb2ab = 0
|
|
MsgBox("La musique: " & ListBox6.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous vraiment prévenir le personne que sa musique a êtê supprimer ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.nomfile = ListBox6.SelectedItem
|
|
mailsuppr.typfile = "Musique"
|
|
mailsuppr.userdladmin = nomutilisateur
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.ShowDialog()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
ftpa()
|
|
ElseIf AxWindowsMediaPlayer1.URL.Contains("Libre de droit") Then
|
|
Dim url = AxWindowsMediaPlayer1.URL.Replace(ListBox7.SelectedItem, "")
|
|
Dim url2 = url.ToString.Replace(".mp3", "")
|
|
Dim url3 = url2 & ListBox1.SelectedItem
|
|
Dim maj1 As New WebClient
|
|
My.Computer.Network.DownloadFile(url3 & "\publier.txt", repertoire & "publier.txt")
|
|
My.Computer.Network.DownloadFile(url3 & "\url.txt", repertoire & "url.txt")
|
|
Dim lines1() As String = File.ReadAllLines(repertoire & "publier.txt")
|
|
Dim upurl() As String = File.ReadAllLines(repertoire & "url.txt")
|
|
File.Delete(repertoire & "publier.txt")
|
|
File.Delete(repertoire & "url.txt")
|
|
ListBox9.Items.Clear()
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(upurl(0))
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
|
|
|
|
sr.Close()
|
|
|
|
|
|
listb2ab = ListBox9.Items.Count
|
|
ListBox9.SetSelected(0, True)
|
|
For x = 1 To ListBox9.Items.Count
|
|
Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(upurl(0) & ListBox9.SelectedItem)
|
|
ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
|
|
listb2ab = listb2ab - 1
|
|
ListBox9.SetSelected(listb2ab, True)
|
|
Next
|
|
|
|
Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(upurl(0))
|
|
ftreq3.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
|
|
|
|
Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox7.SelectedItem & " - " & "Libre de droit" & "/url.txt")
|
|
ftreq4.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse
|
|
|
|
Dim ftreq6 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Musique/find/" & ListBox7.SelectedItem & ".txt")
|
|
ftreq6.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq6.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp6 As FtpWebResponse = ftreq6.GetResponse
|
|
|
|
Dim ftreq5 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & lines1(0) & "/musique/" & ListBox7.SelectedItem & " - " & "Libre de droit" & "/")
|
|
ftreq5.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
Dim ftpresp5 As FtpWebResponse = ftreq5.GetResponse
|
|
ListBox9.Items.Clear()
|
|
listb2ab = 0
|
|
MsgBox("La musique: " & ListBox7.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous vraiment prévenir le personne que sa musique a êtê supprimer ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
mailsuppr.nomfile = ListBox7.SelectedItem
|
|
mailsuppr.typfile = "Musique"
|
|
mailsuppr.userdladmin = nomutilisateur
|
|
mailsuppr.publier = lines1(0)
|
|
mailsuppr.ShowDialog()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
ftpa()
|
|
End If
|
|
End If
|
|
End Sub
|
|
End Class |