1546 lines
86 KiB
VB.net
1546 lines
86 KiB
VB.net
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 |