408 lines
16 KiB
VB.net
408 lines
16 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
Imports System.Math
|
|
|
|
Public Class nouvelle_série
|
|
Dim npsé As Integer = 0
|
|
Dim Épisode As Integer = 1
|
|
Dim lisintex As Integer = 0
|
|
Dim dl As Integer = 0
|
|
Private Sub nouvelle_série_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.BackColor = Form1.BackColor
|
|
Me.ForeColor = Form1.ForeColor
|
|
ListBox1.BackColor = BackColor
|
|
TextBox1.BackColor = BackColor
|
|
TextBox2.BackColor = BackColor
|
|
Button1.BackColor = BackColor
|
|
Button2.BackColor = BackColor
|
|
TextBox1.ForeColor = ForeColor
|
|
TextBox2.ForeColor = ForeColor
|
|
ListBox2.Hide()
|
|
Directory.CreateDirectory(tempup)
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Série/pages/")
|
|
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
|
|
ListBox2.SetSelected(ListBox2.Items.Count - 1, True)
|
|
Else
|
|
ListBox2.SelectedItem = "page" & ListBox2.Items.Count
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If OpenFileDialog1.ShowDialog = 1 Then
|
|
musiquexist()
|
|
Else
|
|
|
|
End If
|
|
End Sub
|
|
Sub musiquexist()
|
|
Dim index As Integer = 0
|
|
Dim fichier2 As String = "" & vbNewLine
|
|
ListBox1.Items.Clear()
|
|
|
|
|
|
For Each fileselected1 As String In OpenFileDialog1.FileNames
|
|
ListBox1.Items.Add(OpenFileDialog1.SafeFileNames(index))
|
|
FileCopy(fileselected1, tempup & "\" & OpenFileDialog1.SafeFileNames(index))
|
|
fichier2 = fichier2 & " " & OpenFileDialog1.SafeFileNames(index) & vbNewLine
|
|
index = index + 1
|
|
Next
|
|
|
|
|
|
If index > 1 Then
|
|
index = 0
|
|
|
|
MsgBox("les fichiers: " & fichier2 & "on bien êtê importer", MsgBoxStyle.Information)
|
|
|
|
Else
|
|
index = 0
|
|
MsgBox("le fichier: " & OpenFileDialog1.SafeFileName & " a bien êtê importer", MsgBoxStyle.Information)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
If TextBox1.Text = "" Then
|
|
MsgBox("merci d'enterer un nom", MsgBoxStyle.Exclamation)
|
|
Else
|
|
dl = 1
|
|
Button1.Enabled = False
|
|
Try
|
|
Directory.CreateDirectory(tempup & "/" & TextBox1.Text & "/")
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString, MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
End Try
|
|
Directory.Delete(tempup & "/" & TextBox1.Text & "/")
|
|
If ListBox1.Items.Count = 0 Then
|
|
MsgBox("merci d'importer les épisode de la saison 1", MsgBoxStyle.Exclamation)
|
|
Else
|
|
TextBox1.Enabled = False
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Série/pages/" & ListBox2.SelectedItem & "/série.txt")
|
|
npsé = vri + 1
|
|
If vri = 8 Then
|
|
créetpage()
|
|
Else
|
|
createsérie()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub créetpage()
|
|
Dim pagecreate = ListBox2.Items.Count + 1
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/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(tempup & "\série.txt")
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
|
|
My.Computer.Network.UploadFile(tempup & "\série.txt", ipserver & "Série/pages/page" & pagecreate & "/série.txt")
|
|
File.Delete(tempup & "\série.txt")
|
|
|
|
ListBox2.Items.Add("page" & pagecreate)
|
|
ListBox2.SelectedItem = "page" & pagecreate
|
|
|
|
npsé = 1
|
|
|
|
createsérie()
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub createsérie()
|
|
Me.Text = "création de la série sur le serveur..."
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/"), 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()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
PictureBox1.Image.Save(tempup & "image.jpg")
|
|
|
|
|
|
Dim sw1 As New StreamWriter(tempup & "\like.txt")
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
|
|
Dim sw2 As New StreamWriter(tempup & "\nom.txt")
|
|
sw2.WriteLine(TextBox1.Text)
|
|
sw2.Close()
|
|
|
|
Using writer As System.IO.StreamWriter = New System.IO.StreamWriter(dosparamètres & "\resum.txt", True)
|
|
Dim curLine As String = TextBox2.Text
|
|
If (TextBox2.Lines.Count > 1) Then
|
|
curLine = ""
|
|
For Each line As String In TextBox2.Lines
|
|
curLine = curLine & " " & line
|
|
Next
|
|
curLine = curLine.Trim()
|
|
End If
|
|
writer.WriteLine(curLine)
|
|
End Using
|
|
|
|
My.Computer.Network.UploadFile(tempup & "\like.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/like.txt")
|
|
My.Computer.Network.UploadFile(tempup & "\nom.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/nom.txt")
|
|
My.Computer.Network.UploadFile(tempup & "\image.jpg", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/image.jpg")
|
|
My.Computer.Network.UploadFile(dosparamètres & "\resum.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/resum.txt")
|
|
|
|
File.Delete(tempup & "\like.txt")
|
|
File.Delete(tempup & "\nom.txt")
|
|
File.Delete(tempup & "\image.jpg")
|
|
File.Delete(dosparamètres & "\resum.txt")
|
|
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/"), 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()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/"), 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()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
|
|
Me.Text = "Envoie des épisodes..."
|
|
|
|
ProgressBar1.Show()
|
|
|
|
Try
|
|
ListBox1.SelectedIndex = lisintex
|
|
Me.Text = "Envoie de: " & ListBox1.SelectedItem & "..."
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/Épisode " & Épisode & "/"), 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()
|
|
|
|
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.UploadFileTaskAsync(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/Épisode " & Épisode & "/" & ListBox1.SelectedItem, tempup & "\" & ListBox1.SelectedItem)
|
|
|
|
|
|
Épisode = Épisode + 1
|
|
|
|
lisintex = lisintex + 1
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Dim WithEvents téléchargerfr As WebClient
|
|
Dim WithEvents téléchargerfr2 As WebClient
|
|
|
|
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 nouvelle_série_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
If dl = 1 Then
|
|
e.Cancel = True
|
|
MsgBox("Merci d'attendre le fin de l'envoie de " & TextBox1.Text, MsgBoxStyle.Critical)
|
|
Else
|
|
Text = "nouvelle série"
|
|
OpenFileDialog1.FileName = ""
|
|
OpenFileDialog2.FileName = ""
|
|
TextBox1.Clear()
|
|
TextBox2.Clear()
|
|
End If
|
|
|
|
End Sub
|
|
Sub fin()
|
|
|
|
File.Delete(dosier & "/Saison 1.zip")
|
|
|
|
Dim sw4 As New StreamWriter(tempup & "\ep.txt")
|
|
sw4.WriteLine(ListBox1.Items.Count)
|
|
sw4.Close()
|
|
|
|
My.Computer.Network.UploadFile(tempup & "\ep.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/ep.txt")
|
|
|
|
File.Delete(tempup & "\ep.txt")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Série/pages/" & ListBox2.SelectedItem & "/série.txt")
|
|
Dim nombreséries As Integer = vri + 1
|
|
|
|
Dim sw5 As New StreamWriter(tempup & "\série.txt")
|
|
sw5.WriteLine(nombreséries)
|
|
sw5.Close()
|
|
|
|
My.Computer.Network.UploadFile(tempup & "\série.txt", ipserver & "Série/pages/" & ListBox2.SelectedItem & "/série.txt")
|
|
File.Delete(tempup & "\série.txt")
|
|
|
|
Dim sw6 As New StreamWriter(tempup & "\" & TextBox1.Text & ".txt")
|
|
sw6.WriteLine(ListBox2.Items.Count)
|
|
sw6.Close()
|
|
|
|
My.Computer.Network.UploadFile(tempup & "\" & TextBox1.Text & ".txt", ipserver & "Série/find/" & TextBox1.Text & ".txt")
|
|
|
|
My.Computer.Network.UploadFile(tempup & "\" & TextBox1.Text & ".txt", ipserver & "/new/Séries/" & TextBox1.Text & ".txt")
|
|
|
|
Me.Text = "Envoie terminer"
|
|
|
|
TextBox1.Enabled = True
|
|
|
|
ProgressBar1.Hide()
|
|
ProgressBar1.Value = 0
|
|
Button1.Enabled = True
|
|
|
|
|
|
MsgBox("La séries: " & TextBox1.Text & " a bien êtê créer et la Saison 1 envoyer !", MsgBoxStyle.Information)
|
|
|
|
upséries.ListBox1.Items.Clear()
|
|
upséries.pages = 1
|
|
upséries.pagesacctuel = 1
|
|
upséries.Button3.Text = upséries.pagesacctuel
|
|
|
|
Text = ""
|
|
npsé = 0
|
|
Épisode = 1
|
|
lisintex = 0
|
|
dl = 0
|
|
|
|
npsé = 0
|
|
|
|
ListBox1.Items.Clear()
|
|
ListBox2.Items.Clear()
|
|
Close()
|
|
upséries.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
|
|
Me.Text = "Envoie de: " & ListBox1.SelectedItem & " " & disctédossier & " / " & disctédossier2 & " " & ProgressBar1.Value & "%"
|
|
ProgressBar1.Value = bc
|
|
End Sub
|
|
|
|
Private Sub téléchargerfr_UploadFileCompleted(sender As Object, e As UploadFileCompletedEventArgs) Handles téléchargerfr.UploadFileCompleted
|
|
If Épisode = ListBox1.Items.Count + 1 Then
|
|
ProgressBar1.Style = ProgressBarStyle.Marquee
|
|
Me.Text = "création du fichier hors ligne..."
|
|
BackgroundWorker1.RunWorkerAsync()
|
|
Else
|
|
|
|
Try
|
|
ListBox1.SelectedIndex = lisintex
|
|
Me.Text = "Envoie de: " & ListBox1.SelectedItem & "..."
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/Épisode " & Épisode & "/"), 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()
|
|
|
|
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.UploadFileTaskAsync(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/Série" & npsé & "/saison/Saison 1/Épisode " & Épisode & "/" & ListBox1.SelectedItem, tempup & "\" & ListBox1.SelectedItem)
|
|
|
|
|
|
Épisode = Épisode + 1
|
|
|
|
lisintex = lisintex + 1
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
|
|
IO.Compression.ZipFile.CreateFromDirectory(tempup, dosier & "/Saison 1.zip")
|
|
End Sub
|
|
|
|
Private Sub téléchargerfr2_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs) Handles téléchargerfr2.UploadProgressChanged
|
|
Dim disctédossier = func_RoundTaille(e.BytesSent)
|
|
Dim disctédossier2 = func_RoundTaille(e.TotalBytesToSend)
|
|
Dim bc = e.BytesSent / e.TotalBytesToSend * 100
|
|
Me.Text = "Envoie du fichier hors ligne " & disctédossier & " / " & disctédossier2 & " " & ProgressBar1.Value & "%"
|
|
ProgressBar1.Value = bc
|
|
End Sub
|
|
|
|
Private Sub téléchargerfr2_UploadFileCompleted(sender As Object, e As UploadFileCompletedEventArgs) Handles téléchargerfr2.UploadFileCompleted
|
|
fin()
|
|
End Sub
|
|
|
|
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
|
|
ProgressBar1.Style = ProgressBarStyle.Continuous
|
|
Me.Text = "Envoie du fichier hors ligne..."
|
|
téléchargerfr2 = New WebClient
|
|
téléchargerfr2.UploadFileTaskAsync(ipserver & "Série/pages/" & ListBox2.SelectedItem & "/" & "/Série" & npsé & "/saison/Saison 1/Saison 1.zip", dosier & "/Saison 1.zip")
|
|
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 |