248 lines
12 KiB
VB.net
248 lines
12 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
Imports System.Math
|
|
|
|
Public Class upfilm2
|
|
Dim filmnumbre As String = ""
|
|
Public crearpages As Integer = 0
|
|
Private Sub upfilm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.BackColor = Form1.BackColor
|
|
Me.ForeColor = Form1.ForeColor
|
|
TextBox1.BackColor = BackColor
|
|
TextBox2.BackColor = BackColor
|
|
TextBox3.BackColor = BackColor
|
|
TextBox4.BackColor = BackColor
|
|
TextBox5.BackColor = BackColor
|
|
TextBox6.BackColor = BackColor
|
|
TextBox1.ForeColor = ForeColor
|
|
TextBox2.ForeColor = ForeColor
|
|
TextBox3.ForeColor = ForeColor
|
|
TextBox4.ForeColor = ForeColor
|
|
TextBox5.ForeColor = ForeColor
|
|
TextBox6.ForeColor = ForeColor
|
|
Button1.BackColor = BackColor
|
|
Button1.ForeColor = ForeColor
|
|
If OpenFileDialog1.ShowDialog = 1 Then
|
|
Dim rezr As String = OpenFileDialog1.SafeFileName.Replace(".mkv", "")
|
|
TextBox1.Text = rezr
|
|
Else
|
|
Close()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
If OpenFileDialog2.ShowDialog = 1 Then
|
|
PictureBox1.Image = Image.FromFile(OpenFileDialog2.FileName)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If TextBox2.Text = "" Then
|
|
MsgBox("Merci d'enterer le réalisateur", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If TextBox3.Text = "" Then
|
|
MsgBox("Merci d'enterer la durée du film", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If TextBox4.Text = "" Then
|
|
MsgBox("Merci d'enterer la date de sortie", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If TextBox5.Text = "" Then
|
|
MsgBox("Merci d'enterer l'url du la bd", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If TextBox6.Text = "" Then
|
|
MsgBox("Merci d'enterer le résumer", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If crearpages = 0 Then
|
|
Me.Enabled = False
|
|
upfile()
|
|
Else
|
|
Me.Enabled = False
|
|
upfile2()
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub upfile()
|
|
upfilm3.Show()
|
|
upfilm3.Text = "coppie du fichier...."
|
|
BackgroundWorker1.RunWorkerAsync()
|
|
End Sub
|
|
|
|
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
|
|
Directory.CreateDirectory(dosparamètres & "\temps\")
|
|
System.IO.File.Copy(OpenFileDialog1.FileName, dosparamètres & "\temps\" & OpenFileDialog1.SafeFileName)
|
|
End Sub
|
|
|
|
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
|
|
upfilm3.Text = "création des fichier supplémantaire...."
|
|
Using writer As System.IO.StreamWriter = New System.IO.StreamWriter(dosparamètres & "\resum.txt", True)
|
|
Dim curLine As String = TextBox6.Text
|
|
If (TextBox6.Lines.Count > 1) Then
|
|
curLine = ""
|
|
For Each line As String In TextBox6.Lines
|
|
curLine = curLine & " " & line
|
|
Next
|
|
curLine = curLine.Trim()
|
|
End If
|
|
writer.WriteLine(curLine)
|
|
End Using
|
|
|
|
PictureBox1.Image.Save(dosparamètres & "\temps\image.jpg")
|
|
Dim sw1 As New StreamWriter(dosparamètres & "\temps\nom.txt")
|
|
sw1.WriteLine(TextBox1.Text)
|
|
sw1.WriteLine()
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(dosparamètres & "\temps\auteur.txt")
|
|
sw2.WriteLine(TextBox2.Text, System.Text.Encoding.Default)
|
|
sw2.Close()
|
|
Dim sw3 As New StreamWriter(dosparamètres & "\temps\time.txt")
|
|
sw3.WriteLine(TextBox3.Text)
|
|
sw3.Close()
|
|
Dim sw4 As New StreamWriter(dosparamètres & "\temps\date.txt")
|
|
sw4.WriteLine(TextBox4.Text, System.Text.Encoding.Default)
|
|
sw4.Close()
|
|
Dim sw5 As New StreamWriter(dosparamètres & "\temps\like.txt")
|
|
sw5.WriteLine(0)
|
|
sw5.Close()
|
|
Dim sw6 As New StreamWriter(dosparamètres & "\temps\bd.txt")
|
|
sw6.WriteLine(TextBox5.Text, System.Text.Encoding.Default)
|
|
sw6.Close()
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film.txt")
|
|
filmnumbre = vri + 1
|
|
createdos()
|
|
End Sub
|
|
Sub createdos()
|
|
upfilm3.Text = "création du dossier serveur"
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/"), 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(dosparamètres & "\temps\nom.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/nom.txt")
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\date.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/date.txt")
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\time.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/time.txt")
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\auteur.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/auteur.txt")
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\image.jpg", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/image.jpg")
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\like.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/like.txt")
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\bd.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/bd.txt")
|
|
My.Computer.Network.UploadFile(dosparamètres & "\resum.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/resum.txt")
|
|
|
|
File.Delete(dosparamètres & "\resum.txt")
|
|
|
|
Try
|
|
upfilm3.ProgressBar1.Style = ProgressBarStyle.Continuous
|
|
upfilm3.Text = "mis en ligne: 0%"
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.UploadFileTaskAsync(ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film" & filmnumbre & "/" & OpenFileDialog1.SafeFileName, dosparamètres & "\temps\" & OpenFileDialog1.SafeFileName)
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Dim WithEvents téléchargerfr As WebClient
|
|
Private Sub téléchargerfr_UploadFileCompleted(sender As Object, e As UploadFileCompletedEventArgs) Handles téléchargerfr.UploadFileCompleted
|
|
Dim sw1 As New StreamWriter(dosparamètres & "\temps\film.txt")
|
|
sw1.WriteLine(filmnumbre)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\film.txt", ipserver & "Film/pages/" & upfilm.ListBox1.SelectedItem & "/film.txt")
|
|
Dim sw2 As New StreamWriter(dosparamètres & "\temps\" & TextBox1.Text & ".txt")
|
|
sw2.WriteLine(upfilm.ListBox1.Items.Count)
|
|
sw2.Close()
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\" & TextBox1.Text & ".txt", ipserver & "Film/find/" & TextBox1.Text & ".txt")
|
|
For Each fichier As String In IO.Directory.GetFiles(dosparamètres & "\temps\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dosparamètres & "\temps\" & info.Name)
|
|
Next
|
|
Dim sw3 As New StreamWriter(dosparamètres & "\temps\" & TextBox1.Text & ".txt")
|
|
sw3.WriteLine(0)
|
|
sw3.Close()
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\" & TextBox1.Text & ".txt", ipserver & "/new/Film/" & TextBox1.Text & ".txt")
|
|
File.Delete(dosparamètres & "\temps\" & TextBox1.Text & ".txt")
|
|
upfilm3.dl = 0
|
|
upfilm3.Close()
|
|
MsgBox("Le film: " & TextBox1.Text & " a bien êtes envoyer", MsgBoxStyle.Information)
|
|
Directory.Delete(dosparamètres & "\temps\")
|
|
Close()
|
|
upfilm.Close()
|
|
End Sub
|
|
Private Sub téléchargerfr_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs) Handles téléchargerfr.UploadProgressChanged
|
|
Dim disctédossier = func_RoundTaille(e.BytesSent)
|
|
Dim disctédossier2 = func_RoundTaille(e.TotalBytesToSend)
|
|
Dim bc = e.BytesSent / e.TotalBytesToSend * 100
|
|
upfilm3.ProgressBar1.Value = bc
|
|
upfilm3.Text = "mis en ligne: " & disctédossier & " / " & disctédossier2
|
|
End Sub
|
|
Sub upfile2()
|
|
Directory.CreateDirectory(dosparamètres & "\temps\")
|
|
Dim pagecreate = upfilm.ListBox1.Items.Count + 1
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Film/pages/page" & pagecreate & "/"), 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()
|
|
|
|
Dim sw1 As New StreamWriter(dosparamètres & "\temps\film.txt")
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
|
|
My.Computer.Network.UploadFile(dosparamètres & "\temps\film.txt", ipserver & "Film/pages/page" & pagecreate & "/film.txt")
|
|
File.Delete(dosparamètres & "\temps\film.txt")
|
|
|
|
upfilm.ListBox1.Items.Add("page" & pagecreate)
|
|
upfilm.ListBox1.SelectedItem = "page" & pagecreate
|
|
|
|
upfile()
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub upfilm2_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
filmnumbre = ""
|
|
crearpages = 0
|
|
TextBox1.Clear()
|
|
TextBox2.Clear()
|
|
TextBox3.Clear()
|
|
TextBox4.Clear()
|
|
TextBox5.Clear()
|
|
TextBox6.Clear()
|
|
OpenFileDialog1.FileName = ""
|
|
OpenFileDialog2.FileName = ""
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox1.Image = My.Resources._39837401b03c65e8417ad48feae80b66_icon
|
|
End Sub
|
|
Public Function func_RoundTaille(ByVal LaTaille As Long) As String
|
|
Select Case LaTaille
|
|
Case Is < 1024
|
|
Return Round(LaTaille) & " Octets"
|
|
Case Is < 1048576
|
|
Return Round(LaTaille / 2 ^ 10, 3) & " Ko"
|
|
Case Is < 1073741824
|
|
Return Round(LaTaille / 2 ^ 20, 3) & " Mo"
|
|
Case Else
|
|
Return Round(LaTaille / 2 ^ 30, 3) & " Go"
|
|
End Select
|
|
End Function
|
|
End Class |