Imports System.ComponentModel Imports System.IO Imports System.Net Public Class upséries Public pages As Integer = 1 Public pagesacctuel As Integer = 1 Public dostempfilm As String = "" Private Sub upséries_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.BackColor = Form1.BackColor Me.ForeColor = Form1.ForeColor PictureBox1.BackColor = BackColor PictureBox2.BackColor = BackColor PictureBox3.BackColor = BackColor PictureBox4.BackColor = BackColor PictureBox5.BackColor = BackColor PictureBox6.BackColor = BackColor PictureBox7.BackColor = BackColor PictureBox8.BackColor = BackColor Button3.BackColor = BackColor Button5.BackColor = BackColor Button6.BackColor = BackColor MenuStrip1.BackColor = BackColor SériesToolStripMenuItem.BackColor = BackColor SériesToolStripMenuItem.ForeColor = ForeColor NouvelleSériesToolStripMenuItem.BackColor = BackColor NouvelleSériesToolStripMenuItem.ForeColor = ForeColor ComboBox1.BackColor = BackColor ComboBox1.ForeColor = ForeColor ComboBox1.Items.Clear() Dim fwr5 As FtpWebRequest fwr5 = FtpWebRequest.Create(ipserver & "/Série/find/") fwr5.Credentials = New NetworkCredential("yoannsafe", passftp) fwr5.Method = WebRequestMethods.Ftp.ListDirectory Dim sr1 As New StreamReader(fwr5.GetResponse().GetResponseStream()) Dim str1 As String = sr1.ReadLine() While Not str1 Is Nothing Dim azaz = str1.Replace(".txt", "") ComboBox1.Items.Add(azaz) str1 = sr1.ReadLine() End While sr1.Close() If Directory.Exists(dosier) = True Then For Each fichier1 As String In IO.Directory.GetDirectories(dosier) Dim info As New IO.FileInfo(fichier1) Directory.Delete(fichier1, recursive:=True) Next Directory.Delete(dosier) End If ListBox1.Hide() dostempfilm = dosier & "\temp\" If Directory.Exists(dostempfilm) = True Then Else Directory.CreateDirectory(dostempfilm) End If 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 ListBox1.Items.Add(str) str = sr.ReadLine() End While sr.Close() pages = ListBox1.Items.Count pagesacctuel = 1 Me.Text = "upséries " & pagesacctuel & "/" & pages Button5.Enabled = False Button6.Enabled = True Button6.Focus() If ListBox1.Items.Count = 1 Then Button6.Enabled = False Button5.Enabled = False End If Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt") If vri = 1 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") PictureBox1.Show() PictureBox2.Hide() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 2 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 3 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 4 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 5 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 6 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 7 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() ElseIf vri = 8 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg") PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() End If End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click If pagesacctuel = ListBox1.Items.Count Then Else Button6.Enabled = False Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt") If vri2 = 1 Then PictureBox1.Image.Dispose() ElseIf vri2 = 2 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() ElseIf vri2 = 3 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf vri2 = 4 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf vri2 = 5 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf vri2 = 6 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf vri2 = 7 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf vri2 = 8 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() End If For Each fichier As String In IO.Directory.GetFiles(dostempfilm) Dim info As New IO.FileInfo(fichier) File.Delete(dostempfilm & info.Name) Next pagesacctuel = pagesacctuel + 1 Button3.Text = pagesacctuel Me.Text = "upséries pages " & pagesacctuel & "/" & pages Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt") If vri = 1 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") PictureBox1.Show() PictureBox2.Hide() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 2 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 3 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 4 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 5 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 6 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 7 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() ElseIf vri = 8 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg") PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() End If End If If pagesacctuel = ListBox1.Items.Count Then Button6.Enabled = False Button5.Focus() Else Button6.Enabled = True Button6.Focus() End If Button5.Enabled = True End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click If pagesacctuel = 1 Then Else Button5.Enabled = False Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt") If vri2 = 1 Then PictureBox1.Image.Dispose() ElseIf vri2 = 2 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() ElseIf vri2 = 3 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf vri2 = 4 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf vri2 = 5 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf vri2 = 6 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf vri2 = 7 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf vri2 = 8 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() End If For Each fichier As String In IO.Directory.GetFiles(dostempfilm) Dim info As New IO.FileInfo(fichier) File.Delete(dostempfilm & info.Name) Next pagesacctuel = pagesacctuel - 1 Button3.Text = pagesacctuel Me.Text = "upséries pages " & pagesacctuel & "/" & pages Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt") If vri = 1 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") PictureBox1.Show() PictureBox2.Hide() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 2 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 3 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 4 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 5 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 6 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 7 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() ElseIf vri = 8 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg") PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() End If If pagesacctuel = 1 Then Button5.Enabled = False Button6.Focus() Else Button5.Enabled = True Button5.Focus() End If Button6.Enabled = True End If End Sub Private Sub upséries_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt") If vri2 = 1 Then PictureBox1.Image.Dispose() ElseIf vri2 = 2 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() ElseIf vri2 = 3 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf vri2 = 4 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf vri2 = 5 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf vri2 = 6 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf vri2 = 7 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf vri2 = 8 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() End If For Each fichier As String In IO.Directory.GetFiles(dostempfilm) Dim info As New IO.FileInfo(fichier) File.Delete(dostempfilm & info.Name) Next ListBox1.Items.Clear() pages = 1 pagesacctuel = 1 Button3.Text = pagesacctuel nouvelle_série.PictureBox1.Image.Dispose() nouvelle_série.PictureBox1.Image = My.Resources._40140 If Directory.Exists(dosier) = True Then For Each fichier1 As String In IO.Directory.GetDirectories(dosier) Dim info As New IO.FileInfo(fichier1) Directory.Delete(fichier1, recursive:=True) Next Directory.Delete(dosier) End If End Sub Private Sub NouvelleSériesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NouvelleSériesToolStripMenuItem.Click nouvelle_série.ShowDialog() End Sub Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/nom.txt", dostempfilm & "nom.txt") Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt") upséries2.nom = lines1(0) File.Delete(dostempfilm & "nom.txt") upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image1.jpg") upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série1/" upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série1/" upséries2.ShowDialog() End Sub Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/nom.txt", dostempfilm & "nom.txt") Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt") upséries2.nom = lines1(0) File.Delete(dostempfilm & "nom.txt") upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image2.jpg") upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série2/" upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série2/" upséries2.ShowDialog() End Sub Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/nom.txt", dostempfilm & "nom.txt") Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt") upséries2.nom = lines1(0) File.Delete(dostempfilm & "nom.txt") upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image3.jpg") upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série3/" upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série3/" upséries2.ShowDialog() End Sub Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/nom.txt", dostempfilm & "nom.txt") Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt") upséries2.nom = lines1(0) File.Delete(dostempfilm & "nom.txt") upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image4.jpg") upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série4/" upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série4/" upséries2.ShowDialog() End Sub Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/nom.txt", dostempfilm & "nom.txt") Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt") upséries2.nom = lines1(0) File.Delete(dostempfilm & "nom.txt") upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image5.jpg") upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série5/" upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série5/" upséries2.ShowDialog() End Sub Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/nom.txt", dostempfilm & "nom.txt") Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt") upséries2.nom = lines1(0) File.Delete(dostempfilm & "nom.txt") upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image6.jpg") upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série6/" upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série6/" upséries2.ShowDialog() End Sub Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/nom.txt", dostempfilm & "nom.txt") Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt") upséries2.nom = lines1(0) File.Delete(dostempfilm & "nom.txt") upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image7.jpg") upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série7/" upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série7/" upséries2.ShowDialog() End Sub Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/nom.txt", dostempfilm & "nom.txt") Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt") upséries2.nom = lines1(0) File.Delete(dostempfilm & "nom.txt") upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image8.jpg") upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série8/" upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série8/" upséries2.ShowDialog() End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged End Sub Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged Dim maj20 As New WebClient Dim vri20 As String = maj20.DownloadString(ipsite & "/Série/find/" & ComboBox1.SelectedItem & ".txt") Button6.Enabled = False Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "/Série/pages/page" & pagesacctuel & "/série.txt") If vri2 = 1 Then PictureBox1.Image.Dispose() ElseIf vri2 = 2 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() ElseIf vri2 = 3 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() ElseIf vri2 = 4 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() ElseIf vri2 = 5 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() ElseIf vri2 = 6 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() ElseIf vri2 = 7 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() ElseIf vri2 = 8 Then PictureBox1.Image.Dispose() PictureBox2.Image.Dispose() PictureBox3.Image.Dispose() PictureBox4.Image.Dispose() PictureBox5.Image.Dispose() PictureBox6.Image.Dispose() PictureBox7.Image.Dispose() PictureBox8.Image.Dispose() End If Try For Each fichier As String In IO.Directory.GetFiles(dostempfilm) Dim info As New IO.FileInfo(fichier) File.Delete(dostempfilm & info.Name) Next Catch ex As Exception MsgBox(ex.ToString) End Try pagesacctuel = vri20 Button3.Text = pagesacctuel Me.Text = "upséries " & pagesacctuel & "/" & pages Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "/Série/pages/page" & pagesacctuel & "/série.txt") If vri = 1 Then My.Computer.Network.DownloadFile(ipsite & "/Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") PictureBox1.Show() PictureBox2.Hide() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 2 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Hide() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 3 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Hide() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 4 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Hide() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 5 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Hide() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 6 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Hide() PictureBox8.Hide() ElseIf vri = 7 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/fsérie6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Hide() ElseIf vri = 8 Then My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série8/image.jpg", dostempfilm & "image8.jpg") PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg") PictureBox1.Show() PictureBox2.Show() PictureBox3.Show() PictureBox4.Show() PictureBox5.Show() PictureBox6.Show() PictureBox7.Show() PictureBox8.Show() End If If pagesacctuel = ListBox1.Items.Count Then Button5.Enabled = False Button6.Focus() Else Button6.Enabled = True Button5.Enabled = True Button5.Focus() End If Button5.Enabled = True If pagesacctuel = 1 Then Button5.Enabled = False Button6.Enabled = True Button5.Focus() End If End Sub End Class