Imports System.ComponentModel Imports System.IO Imports System.Net Public Class séries Dim pages As Integer = 1 Public pagesacctuel As Integer = 1 Dim dostempfilm As String = "" Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button4.Click Form181.ShowDialog() End Sub Private Sub séries_Load(sender As Object, e As EventArgs) Handles MyBase.Load ComboBox1.Items.Clear() ComboBox1.Items.Add("Taper ici pour rechercher") ComboBox1.Text = "Taper ici pour rechercher" 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() ListBox1.Hide() dostempfilm = dossérie & "\temp\" If Directory.Exists(dostempfilm) = True Then Else Directory.CreateDirectory(dostempfilm) End If Dim lines1a() As String = File.ReadAllLines(théme) If lines1a(0) = 2 Then Label1.ForeColor = Color.White Me.BackColor = Color.FromArgb(64, 64, 64) Button2.BackColor = Color.FromArgb(64, 64, 64) Button3.BackColor = Color.FromArgb(64, 64, 64) Button4.BackColor = Color.FromArgb(64, 64, 64) Button5.BackColor = Color.FromArgb(64, 64, 64) Button6.BackColor = Color.FromArgb(64, 64, 64) ComboBox1.BackColor = Color.FromArgb(64, 64, 64) ComboBox1.ForeColor = Color.White Button4.ForeColor = Color.White Button5.ForeColor = Color.White Button6.ForeColor = Color.White Button2.ForeColor = Color.White Button3.ForeColor = Color.White ElseIf lines1a(0) = 3 Then Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) 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) ListBox2.Items.Add(str) str = sr.ReadLine() End While sr.Close() pages = ListBox1.Items.Count pagesacctuel = 1 Dim lines1123() As String = File.ReadAllLines(Form1.settingseries) If lines1123(1) = 1 Then pagesacctuel = pages Button5.Enabled = True Button6.Enabled = False Button3.Text = pages Else Button5.Enabled = False Button6.Enabled = True End If Me.Text = "Séries streaming " & pagesacctuel & "/" & pages If ListBox1.Items.Count = 1 Then Button5.Enabled = False Button6.Enabled = False End If Button6.Focus() 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 Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Form189.ShowDialog() End Sub Private Sub séries_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing ComboBox1.Items.Clear() 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 End Sub Private Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Click ComboBox1.Items.Add("Taper ici pour rechercher") ComboBox1.Text = "Taper ici pour rechercher" ComboBox1.Size = New Size(731, 22) 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 = "Séries streaming 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 ComboBox1.Items.Add("Taper ici pour rechercher") ComboBox1.Text = "Taper ici pour rechercher" ComboBox1.Size = New Size(731, 22) 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 = "Séries streaming 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 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") File.Delete(dostempfilm & "nom.txt") Dim cotrol As Integer = 0 For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\") Dim info As New IO.FileInfo(fichier) Dim azaz = info.Name.Replace(".txt", "") If lines1(0) = azaz Then cotrol = 1 End If Next If cotrol = 0 Then formséries.nom = lines1(0) formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série1/" formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série1/" formséries.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical) End If 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") File.Delete(dostempfilm & "nom.txt") Dim cotrol As Integer = 0 For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\") Dim info As New IO.FileInfo(fichier) Dim azaz = info.Name.Replace(".txt", "") If lines1(0) = azaz Then cotrol = 1 End If Next If cotrol = 0 Then formséries.nom = lines1(0) formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image2.jpg") formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série2/" formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série2/" formséries.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical) End If 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") File.Delete(dostempfilm & "nom.txt") Dim cotrol As Integer = 0 For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\") Dim info As New IO.FileInfo(fichier) Dim azaz = info.Name.Replace(".txt", "") If lines1(0) = azaz Then cotrol = 1 End If Next If cotrol = 0 Then formséries.nom = lines1(0) formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image3.jpg") formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série3/" formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série3/" formséries.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical) End If 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") File.Delete(dostempfilm & "nom.txt") Dim cotrol As Integer = 0 For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\") Dim info As New IO.FileInfo(fichier) Dim azaz = info.Name.Replace(".txt", "") If lines1(0) = azaz Then cotrol = 1 End If Next If cotrol = 0 Then formséries.nom = lines1(0) formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image4.jpg") formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série4/" formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série4/" formséries.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical) End If 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") File.Delete(dostempfilm & "nom.txt") Dim cotrol As Integer = 0 For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\") Dim info As New IO.FileInfo(fichier) Dim azaz = info.Name.Replace(".txt", "") If lines1(0) = azaz Then cotrol = 1 End If Next If cotrol = 0 Then formséries.nom = lines1(0) formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image5.jpg") formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série5/" formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série5/" formséries.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical) End If 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") File.Delete(dostempfilm & "nom.txt") Dim cotrol As Integer = 0 For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\") Dim info As New IO.FileInfo(fichier) Dim azaz = info.Name.Replace(".txt", "") If lines1(0) = azaz Then cotrol = 1 End If Next If cotrol = 0 Then formséries.nom = lines1(0) formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image6.jpg") formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série6/" formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série6/" formséries.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical) End If 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") File.Delete(dostempfilm & "nom.txt") Dim cotrol As Integer = 0 For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\") Dim info As New IO.FileInfo(fichier) Dim azaz = info.Name.Replace(".txt", "") If lines1(0) = azaz Then cotrol = 1 End If Next If cotrol = 0 Then formséries.nom = lines1(0) formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image7.jpg") formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série7/" formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série7/" formséries.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical) End If 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") File.Delete(dostempfilm & "nom.txt") Dim cotrol As Integer = 0 For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\") Dim info As New IO.FileInfo(fichier) Dim azaz = info.Name.Replace(".txt", "") If lines1(0) = azaz Then cotrol = 1 End If Next If cotrol = 0 Then formséries.nom = lines1(0) formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image8.jpg") formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série8/" formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série8/" formséries.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical) End If End Sub Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged If ComboBox1.SelectedItem = "" Then ElseIf ComboBox1.SelectedItem = "Taper ici pour rechercher" Then Else 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 = "Séries streaming 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 & "/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 End If If pagesacctuel = ListBox1.Items.Count Then Button6.Enabled = False Button5.Focus() Else Button5.Enabled = True Button5.Focus() End If Button5.Enabled = True If pagesacctuel = 1 Then Button5.Enabled = False Button6.Enabled = True Button5.Focus() End If ComboBox1.Items.Add("Taper ici pour rechercher") ComboBox1.Text = "Taper ici pour rechercher" ComboBox1.Size = New Size(731, 22) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click selepagesseries.ShowDialog() End Sub Sub selepages() 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 = selepagesseries.pagesseleséries Button3.Text = pagesacctuel Me.Text = "Série streaming 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.Enabled = True Button6.Focus() ElseIf pagesacctuel = ListBox2.Items.Count Then Button6.Enabled = False Button5.Enabled = True Button5.Focus() Else Button6.Enabled = True Button5.Enabled = True Button6.Focus() End If End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged End Sub Private Sub ComboBox1_TextUpdate(sender As Object, e As EventArgs) Handles ComboBox1.TextUpdate If ComboBox1.Text = "" Then ComboBox1.Size = New Size(731, 22) Else ComboBox1.Items.Remove("Taper ici pour rechercher") ComboBox1.Size = New Size(731, 92) End If End Sub Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click If ComboBox1.SelectedItem = "Taper ici pour rechercher" Then ComboBox1.SelectedText = "" End If End Sub End Class