first commit
This commit is contained in:
@@ -0,0 +1,408 @@
|
||||
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
|
||||
Reference in New Issue
Block a user