Imports System.ComponentModel Imports System.IO Imports System.Net Public Class Form16 Dim pages As Integer = 1 Dim pagesacctuel As Integer = 1 Dim dostempfilm As String = "" Private Sub Form16_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 & "/film/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() ListBox2.Hide() dostempfilm = film & "\temp\" If Directory.Exists(dostempfilm) = True Then Else Directory.CreateDirectory(dostempfilm) End If Dim fwr As FtpWebRequest fwr = FtpWebRequest.Create(ipserver & "/film/pages/") fwr.Credentials = New NetworkCredential("yoannsafe", passftp) fwr.Method = WebRequestMethods.Ftp.ListDirectory Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream()) Dim str As String = sr.ReadLine() While Not str Is Nothing ListBox2.Items.Add(str) str = sr.ReadLine() End While sr.Close() pages = ListBox2.Items.Count Dim lines45a() As String = File.ReadAllLines(Form1.settingfilm) If lines45a(0) = 1 Then pagesacctuel = pages Me.Text = "Film streaming pages " & pagesacctuel & "/" & pages Button5.Enabled = True Button4.Enabled = False Button5.Focus() Button3.Text = pages Else pagesacctuel = 1 Me.Text = "Film streaming pages " & pagesacctuel & "/" & pages Button5.Enabled = False Button4.Enabled = True Button4.Focus() End If Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film.txt") If vri = 1 Then My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film1/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film8/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 Dim lines1a() As String = File.ReadAllLines(théme) If lines1a(0) = 2 Then ComboBox1.BackColor = Color.FromArgb(64, 64, 64) ComboBox1.ForeColor = Color.White Me.BackColor = Color.FromArgb(64, 64, 64) Label1.ForeColor = Color.White Button2.ForeColor = Color.White Button2.BackColor = Color.FromArgb(64, 64, 64) Button3.ForeColor = Color.White Button3.BackColor = Color.FromArgb(64, 64, 64) Button4.ForeColor = Color.White Button4.BackColor = Color.FromArgb(64, 64, 64) Button5.ForeColor = Color.White Button5.BackColor = Color.FromArgb(64, 64, 64) Button6.ForeColor = Color.White Button6.BackColor = Color.FromArgb(64, 64, 64) ElseIf lines1a(0) = 3 Then ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Else End If ListBox1.Hide() Dim sr2 As New StreamReader(filmhc) While (sr2.Peek >= 0) ListBox1.Items.Add(sr2.ReadLine) End While sr2.Close() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Form17.ShowDialog() End Sub Private Sub Form16_Closed(sender As Object, e As EventArgs) Handles Me.Closed Button3.Focus() ListBox1.Items.Clear() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Form71.ShowDialog() End Sub Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click ComboBox1.Items.Add("Taper ici pour rechercher") ComboBox1.Text = "Taper ici pour rechercher" ComboBox1.Size = New Size(731, 22) If pagesacctuel = ListBox2.Items.Count Then Else Button4.Enabled = False Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film.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 = "Film streaming pages " & pagesacctuel & "/" & pages Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film.txt") If vri = 1 Then My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film1/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film8/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 = ListBox2.Items.Count Then Button4.Enabled = False Button5.Focus() Else Button4.Enabled = True Button4.Focus() End If Button5.Enabled = True End Sub Private Sub Button5_Click_1(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 & "Film/pages/page" & pagesacctuel & "/film.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 = "Film streaming pages " & pagesacctuel & "/" & pages Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film.txt") If vri = 1 Then My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film1/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film8/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 Button4.Focus() Else Button5.Enabled = True Button5.Focus() End If Button4.Enabled = True End If End Sub Private Sub Form16_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film.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 ListBox2.Items.Clear() pages = 1 pagesacctuel = 1 Button3.Text = pagesacctuel End Sub Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film1/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 & "\film\") 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 Filmform.nom = lines1(0) Filmform.PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film1/time.txt") Filmform.time = vri2 My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film1/auteur.txt", dostempfilm & "auteur.txt") Dim lines2() As String = File.ReadAllLines(dostempfilm & "auteur.txt") Filmform.auteur = lines2(0) File.Delete(dostempfilm & "auteur.txt") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film1/date.txt", dostempfilm & "date.txt") Dim lines3() As String = File.ReadAllLines(dostempfilm & "date.txt") Filmform.filmdate = lines3(0) File.Delete(dostempfilm & "date.txt") Filmform.urlfilm = ipsite & "Film/pages/page" & pagesacctuel & "/film1/" Filmform.urllike = ipserver & "/Film/pages/page" & pagesacctuel & "/film1/" Filmform.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir ce film", MsgBoxStyle.Critical) End If End Sub Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/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 & "\film\") 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 Filmform.nom = lines1(0) Filmform.PictureBox1.Image = Image.FromFile(dostempfilm & "image2.jpg") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film2/time.txt") Filmform.time = vri2 My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/auteur.txt", dostempfilm & "auteur.txt") Dim lines2() As String = File.ReadAllLines(dostempfilm & "auteur.txt") Filmform.auteur = lines2(0) File.Delete(dostempfilm & "auteur.txt") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/date.txt", dostempfilm & "date.txt") Dim lines3() As String = File.ReadAllLines(dostempfilm & "date.txt") Filmform.filmdate = lines3(0) File.Delete(dostempfilm & "date.txt") Filmform.urlfilm = ipsite & "Film/pages/page" & pagesacctuel & "/film2/" Filmform.urllike = ipserver & "/Film/pages/page" & pagesacctuel & "/film2/" Filmform.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir ce film", MsgBoxStyle.Critical) End If End Sub Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/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 & "\film\") 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 Filmform.nom = lines1(0) Filmform.PictureBox1.Image = Image.FromFile(dostempfilm & "image3.jpg") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film3/time.txt") Filmform.time = vri2 My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/auteur.txt", dostempfilm & "auteur.txt") Dim lines2() As String = File.ReadAllLines(dostempfilm & "auteur.txt") Filmform.auteur = lines2(0) File.Delete(dostempfilm & "auteur.txt") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/date.txt", dostempfilm & "date.txt") Dim lines3() As String = File.ReadAllLines(dostempfilm & "date.txt") Filmform.filmdate = lines3(0) File.Delete(dostempfilm & "date.txt") Filmform.urlfilm = ipsite & "Film/pages/page" & pagesacctuel & "/film3/" Filmform.urllike = ipserver & "/Film/pages/page" & pagesacctuel & "/film3/" Filmform.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir ce film", MsgBoxStyle.Critical) End If End Sub Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/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 & "\film\") 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 Filmform.nom = lines1(0) Filmform.PictureBox1.Image = Image.FromFile(dostempfilm & "image4.jpg") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film4/time.txt") Filmform.time = vri2 My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/auteur.txt", dostempfilm & "auteur.txt") Dim lines2() As String = File.ReadAllLines(dostempfilm & "auteur.txt") Filmform.auteur = lines2(0) File.Delete(dostempfilm & "auteur.txt") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/date.txt", dostempfilm & "date.txt") Dim lines3() As String = File.ReadAllLines(dostempfilm & "date.txt") Filmform.filmdate = lines3(0) File.Delete(dostempfilm & "date.txt") Filmform.urlfilm = ipsite & "Film/pages/page" & pagesacctuel & "/film4/" Filmform.urllike = ipserver & "/Film/pages/page" & pagesacctuel & "/film4/" Filmform.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir ce film", MsgBoxStyle.Critical) End If End Sub Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/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 & "\film\") 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 Filmform.nom = lines1(0) Filmform.PictureBox1.Image = Image.FromFile(dostempfilm & "image5.jpg") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film5/time.txt") Filmform.time = vri2 My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/auteur.txt", dostempfilm & "auteur.txt") Dim lines2() As String = File.ReadAllLines(dostempfilm & "auteur.txt") Filmform.auteur = lines2(0) File.Delete(dostempfilm & "auteur.txt") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/date.txt", dostempfilm & "date.txt") Dim lines3() As String = File.ReadAllLines(dostempfilm & "date.txt") Filmform.filmdate = lines3(0) File.Delete(dostempfilm & "date.txt") Filmform.urlfilm = ipsite & "Film/pages/page" & pagesacctuel & "/film5/" Filmform.urllike = ipserver & "/Film/pages/page" & pagesacctuel & "/film5/" Filmform.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir ce film", MsgBoxStyle.Critical) End If End Sub Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/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 & "\film\") 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 Filmform.nom = lines1(0) Filmform.PictureBox1.Image = Image.FromFile(dostempfilm & "image6.jpg") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film6/time.txt") Filmform.time = vri2 My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/auteur.txt", dostempfilm & "auteur.txt") Dim lines2() As String = File.ReadAllLines(dostempfilm & "auteur.txt") Filmform.auteur = lines2(0) File.Delete(dostempfilm & "auteur.txt") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/date.txt", dostempfilm & "date.txt") Dim lines3() As String = File.ReadAllLines(dostempfilm & "date.txt") Filmform.filmdate = lines3(0) File.Delete(dostempfilm & "date.txt") Filmform.urlfilm = ipsite & "Film/pages/page" & pagesacctuel & "/film6/" Filmform.urllike = ipserver & "/Film/pages/page" & pagesacctuel & "/film6/" Filmform.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir ce film", MsgBoxStyle.Critical) End If End Sub Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/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 & "\film\") 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 Filmform.nom = lines1(0) Filmform.PictureBox1.Image = Image.FromFile(dostempfilm & "image7.jpg") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film7/time.txt") Filmform.time = vri2 My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/auteur.txt", dostempfilm & "auteur.txt") Dim lines2() As String = File.ReadAllLines(dostempfilm & "auteur.txt") Filmform.auteur = lines2(0) File.Delete(dostempfilm & "auteur.txt") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/date.txt", dostempfilm & "date.txt") Dim lines3() As String = File.ReadAllLines(dostempfilm & "date.txt") Filmform.filmdate = lines3(0) File.Delete(dostempfilm & "date.txt") Filmform.urlfilm = ipsite & "Film/pages/page" & pagesacctuel & "/film7/" Filmform.urllike = ipserver & "/Film/pages/page" & pagesacctuel & "/film7/" Filmform.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir ce film", MsgBoxStyle.Critical) End If End Sub Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film8/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 & "\film\") 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 Filmform.nom = lines1(0) Filmform.PictureBox1.Image = Image.FromFile(dostempfilm & "image8.jpg") Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film8/time.txt") Filmform.time = vri2 My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film8/auteur.txt", dostempfilm & "auteur.txt") Dim lines2() As String = File.ReadAllLines(dostempfilm & "auteur.txt") Filmform.auteur = lines2(0) File.Delete(dostempfilm & "auteur.txt") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film8/date.txt", dostempfilm & "date.txt") Dim lines3() As String = File.ReadAllLines(dostempfilm & "date.txt") Filmform.filmdate = lines3(0) File.Delete(dostempfilm & "date.txt") Filmform.urlfilm = ipsite & "Film/pages/page" & pagesacctuel & "/film8/" Filmform.urllike = ipserver & "/Film/pages/page" & pagesacctuel & "/film8/" Filmform.ShowDialog() Else MsgBox("Vous n’êtes pas autorisé à voir ce film", MsgBoxStyle.Critical) End If End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click selepage.ShowDialog() End Sub Sub selepages() Button4.Enabled = False Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film.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 = selepage.pagessele Button3.Text = pagesacctuel Me.Text = "Film streaming pages " & pagesacctuel & "/" & pages Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film.txt") If vri = 1 Then My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film1/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film8/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 Button4.Enabled = True Button4.Focus() ElseIf pagesacctuel = ListBox2.Items.Count Then Button4.Enabled = False Button5.Enabled = True Button5.Focus() Else Button4.Enabled = True Button5.Enabled = True Button4.Focus() 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 & "/film/find/" & ComboBox1.SelectedItem & ".txt") Button4.Enabled = False Dim maj2 As New WebClient Dim vri2 As String = maj2.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film.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 = vri20 Button3.Text = pagesacctuel Me.Text = "Film streaming pages " & pagesacctuel & "/" & pages Dim maj As New WebClient Dim vri As String = maj.DownloadString(ipsite & "Film/pages/page" & pagesacctuel & "/film.txt") If vri = 1 Then My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film1/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/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 & "Film/pages/page" & pagesacctuel & "/film1/image.jpg", dostempfilm & "image1.jpg") PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film2/image.jpg", dostempfilm & "image2.jpg") PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film3/image.jpg", dostempfilm & "image3.jpg") PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film4/image.jpg", dostempfilm & "image4.jpg") PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film5/image.jpg", dostempfilm & "image5.jpg") PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film6/image.jpg", dostempfilm & "image6.jpg") PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film7/image.jpg", dostempfilm & "image7.jpg") PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg") My.Computer.Network.DownloadFile(ipsite & "Film/pages/page" & pagesacctuel & "/film8/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 = ListBox2.Items.Count Then Button4.Enabled = False Button5.Focus() Else Button4.Enabled = True Button4.Focus() End If Button5.Enabled = True If pagesacctuel = 1 Then Button5.Enabled = False Button4.Enabled = True Button4.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 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 Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged End Sub End Class