325 lines
14 KiB
VB.net
325 lines
14 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class Form30
|
|
Dim nom As String = ""
|
|
Private Sub Form30_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim lines1() As String = File.ReadAllLines(théme)
|
|
If lines1(0) = 2 Then
|
|
BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox2.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox3.BackColor = Color.FromArgb(64, 64, 64)
|
|
TextBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
TextBox2.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)
|
|
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.ForeColor = Color.White
|
|
ComboBox2.ForeColor = Color.White
|
|
ComboBox3.ForeColor = Color.White
|
|
TextBox1.ForeColor = Color.White
|
|
TextBox2.ForeColor = Color.White
|
|
Label1.ForeColor = Color.White
|
|
Label2.ForeColor = Color.White
|
|
Label3.ForeColor = Color.White
|
|
Button1.ForeColor = Color.White
|
|
ElseIf lines1(0) = 3 Then
|
|
BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TextBox2.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)
|
|
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ComboBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ComboBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
TextBox2.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)
|
|
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
End If
|
|
|
|
|
|
|
|
|
|
|
|
If Directory.Exists(musique & "\temps\") = True Then
|
|
For Each fichier As String In IO.Directory.GetFiles(musique & "\temps\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(musique & "\temps\" & info.Name)
|
|
Next
|
|
Directory.Delete(musique & "\temps\")
|
|
End If
|
|
|
|
If Directory.Exists(musique & "\temps\") = True Then
|
|
|
|
Else
|
|
Directory.CreateDirectory(musique & "\temps\")
|
|
|
|
End If
|
|
If OpenFileDialog1.ShowDialog = 1 Then
|
|
File.Copy(OpenFileDialog1.FileName, musique & "\temps\" & OpenFileDialog1.SafeFileName)
|
|
Dim nom1 = OpenFileDialog1.SafeFileName.Replace(".mp3", "")
|
|
nom = nom1
|
|
Text = "Mis en ligne: " & nom
|
|
ComboBox1.SelectedItem = "Non"
|
|
ComboBox2.SelectedItem = "Non"
|
|
ComboBox3.SelectedItem = "Autre"
|
|
Button1.Text = "Envoyer: " & nom
|
|
Else
|
|
Close()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
|
|
If ComboBox1.SelectedItem = "En ligne" Then
|
|
If File.Exists(musique & "\temps\video.mp4") = True Then
|
|
File.Delete(musique & "\temps\video.mp4")
|
|
End If
|
|
TextBox2.Clear()
|
|
TextBox2.ReadOnly = False
|
|
TextBox2.Show()
|
|
ElseIf ComboBox1.SelectedItem = "Depuis mon ordinateur" Then
|
|
If OpenFileDialog2.ShowDialog = 1 Then
|
|
TextBox2.Text = OpenFileDialog2.FileName
|
|
File.Copy(OpenFileDialog2.FileName, musique & "\temps\video.mp4")
|
|
TextBox2.ReadOnly = True
|
|
TextBox2.Show()
|
|
Else
|
|
If File.Exists(musique & "\temps\video.mp4") = True Then
|
|
File.Delete(musique & "\temps\video.mp4")
|
|
End If
|
|
ComboBox1.SelectedItem = "En ligne"
|
|
TextBox2.Clear()
|
|
End If
|
|
Else
|
|
If File.Exists(musique & "\temps\video.mp4") = True Then
|
|
File.Delete(musique & "\temps\video.mp4")
|
|
End If
|
|
TextBox2.Clear()
|
|
TextBox2.Hide()
|
|
End If
|
|
End Sub
|
|
Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
|
|
If ComboBox2.SelectedItem = "En ligne" Then
|
|
If File.Exists(musique & "\temps\karaoke.mp4") = True Then
|
|
File.Delete(musique & "\temps\karaoke.mp4")
|
|
End If
|
|
TextBox1.Clear()
|
|
TextBox1.ReadOnly = False
|
|
TextBox1.Show()
|
|
ElseIf ComboBox2.SelectedItem = "Depuis mon ordinateur" Then
|
|
If OpenFileDialog3.ShowDialog = 1 Then
|
|
TextBox1.Text = OpenFileDialog3.FileName
|
|
File.Copy(OpenFileDialog3.FileName, musique & "\temps\karaoke.mp4")
|
|
TextBox1.ReadOnly = True
|
|
TextBox1.Show()
|
|
Else
|
|
If File.Exists(musique & "\temps\karaoke.mp4") = True Then
|
|
File.Delete(musique & "\temps\karaoke.mp4")
|
|
End If
|
|
ComboBox2.SelectedItem = "En ligne"
|
|
TextBox1.Clear()
|
|
End If
|
|
Else
|
|
If File.Exists(musique & "\temps\karaoke.mp4") = True Then
|
|
File.Delete(musique & "\temps\karaoke.mp4")
|
|
End If
|
|
TextBox1.Clear()
|
|
TextBox1.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
MsgBox("Une fois envoyer vous ne pouvez plus modifier", MsgBoxStyle.Information)
|
|
Dim msg = MsgBox("Voulez-vous vraiment envoyer ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
up1()
|
|
Else
|
|
MsgBox("Action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End Sub
|
|
Sub up1()
|
|
Try
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/Musique/find/" & nom & ".txt")
|
|
MsgBox("La musique: " & nom & " existe déjà", MsgBoxStyle.Exclamation)
|
|
Catch ex As Exception
|
|
up2()
|
|
End Try
|
|
End Sub
|
|
Sub up2()
|
|
Text = "Mis en ligne..."
|
|
If ComboBox1.SelectedItem = "Non" Then
|
|
Dim sw1 As New StreamWriter(musique & "\temps\video.txt")
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
End If
|
|
vérifif1()
|
|
End Sub
|
|
Sub up3a()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Musique/" & ComboBox3.SelectedItem & "/" & nom & "/"), 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()
|
|
|
|
up3a1()
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub up3a1()
|
|
Dim sw2 As New StreamWriter(musique & "\temps\url.txt")
|
|
sw2.WriteLine(ipserver & "/Musique/" & ComboBox3.SelectedItem & "/" & nom & "/")
|
|
sw2.Close()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/utilisateur/" & Form25.nomutilisateur & "/musique/" & nom & " - " & ComboBox3.SelectedItem & "/"), 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()
|
|
|
|
My.Computer.Network.UploadFile(musique & "\temps\url.txt", ipserver & "/utilisateur/" & Form25.nomutilisateur & "/musique/" & nom & " - " & ComboBox3.SelectedItem & "/url.txt")
|
|
My.Computer.Network.UploadFile(musique & "\temps\" & nom & ".txt", ipserver & "/Musique/find/" & nom & ".txt")
|
|
File.Delete(musique & "\temps\" & nom & ".txt")
|
|
|
|
Dim sw3 As New StreamWriter(musique & "\temps\" & nom & ".txt")
|
|
sw3.WriteLine(0)
|
|
sw3.Close()
|
|
|
|
My.Computer.Network.UploadFile(musique & "\temps\" & nom & ".txt", ipserver & "/new/Musique/" & nom & ".txt")
|
|
File.Delete(musique & "\temps\" & nom & ".txt")
|
|
|
|
up3a2()
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
Sub vérifif1()
|
|
If ComboBox2.SelectedItem = "Non" Then
|
|
Dim sw1 As New StreamWriter(musique & "\temps\cara.txt")
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
End If
|
|
vérifif2()
|
|
End Sub
|
|
Sub vérifif2()
|
|
If ComboBox1.SelectedItem = "En ligne" Then
|
|
Dim sw1 As New StreamWriter(musique & "\temps\video.txt")
|
|
sw1.WriteLine(1)
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(musique & "\temps\site.txt")
|
|
sw2.WriteLine(TextBox2.Text)
|
|
sw2.Close()
|
|
End If
|
|
vérifif3()
|
|
End Sub
|
|
Sub vérifif3()
|
|
If ComboBox2.SelectedItem = "En ligne" Then
|
|
Dim sw1 As New StreamWriter(musique & "\temps\cara.txt")
|
|
sw1.WriteLine(1)
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(musique & "\temps\site2.txt")
|
|
sw2.WriteLine(TextBox1.Text)
|
|
sw2.Close()
|
|
End If
|
|
vérifif4()
|
|
End Sub
|
|
Sub vérifif4()
|
|
If ComboBox1.SelectedItem = "Depuis mon ordinateur" Then
|
|
Dim sw1 As New StreamWriter(musique & "\temps\video.txt")
|
|
sw1.WriteLine(2)
|
|
sw1.Close()
|
|
End If
|
|
vérifif5()
|
|
End Sub
|
|
Sub vérifif5()
|
|
If ComboBox2.SelectedItem = "Depuis mon ordinateur" Then
|
|
Dim sw1 As New StreamWriter(musique & "\temps\cara.txt")
|
|
sw1.WriteLine(2)
|
|
sw1.Close()
|
|
End If
|
|
vérifif6()
|
|
End Sub
|
|
Sub vérifif6()
|
|
Dim fincat As Integer = 0
|
|
Dim lines1() As String = File.ReadAllLines(compteco)
|
|
Dim sw1 As New StreamWriter(musique & "\temps\publier.txt")
|
|
sw1.WriteLine(lines1(0))
|
|
sw1.Close()
|
|
If ComboBox3.SelectedItem = "Autre" Then
|
|
fincat = 1
|
|
ElseIf ComboBox3.SelectedItem = "Rap" Then
|
|
fincat = 2
|
|
ElseIf ComboBox3.SelectedItem = "Classique" Then
|
|
fincat = 3
|
|
ElseIf ComboBox3.SelectedItem = "Pop" Then
|
|
fincat = 4
|
|
ElseIf ComboBox3.SelectedItem = "Youtube" Then
|
|
fincat = 5
|
|
ElseIf ComboBox3.SelectedItem = "Jazz" Then
|
|
fincat = 6
|
|
ElseIf ComboBox3.SelectedItem = "Libre de droit" Then
|
|
fincat = 7
|
|
End If
|
|
|
|
Dim sw2 As New StreamWriter(musique & "\temps\" & nom & ".txt")
|
|
sw2.WriteLine(fincat)
|
|
sw2.Close()
|
|
up3a()
|
|
End Sub
|
|
|
|
Private Sub Form30_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
Text = "Mis en ligne"
|
|
ComboBox1.SelectedItem = "Non"
|
|
ComboBox2.SelectedItem = "Non"
|
|
ComboBox3.SelectedItem = "Autre"
|
|
OpenFileDialog1.FileName = ""
|
|
OpenFileDialog2.FileName = ""
|
|
OpenFileDialog3.FileName = ""
|
|
nom = ""
|
|
For Each fichier As String In IO.Directory.GetFiles(musique & "\temps\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(musique & "\temps\" & info.Name)
|
|
Next
|
|
|
|
If Directory.Exists(musique & "\temps\") = True Then
|
|
Directory.Delete(musique & "\temps\")
|
|
End If
|
|
End Sub
|
|
Sub up3a2()
|
|
For Each fichier As String In IO.Directory.GetFiles(musique & "\temps\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
My.Computer.Network.UploadFile(musique & "\temps\" & info.Name, ipserver & "/Musique/" & ComboBox3.SelectedItem & "/" & nom & "/" & info.Name)
|
|
Next
|
|
Text = "Mis en ligne Terminer"
|
|
MsgBox("La musique: " & nom & " a bien été mis en ligne", MsgBoxStyle.Information)
|
|
Form25.ftpa()
|
|
Close()
|
|
End Sub
|
|
End Class |