1448 lines
80 KiB
VB.net
1448 lines
80 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class séries
|
|
Dim pages As Integer = 1
|
|
Public pagesacctuel As Integer = 1
|
|
Dim dostempfilm As String = ""
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
Form181.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub séries_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
ComboBox1.Items.Clear()
|
|
ComboBox1.Items.Add("Taper ici pour rechercher")
|
|
ComboBox1.Text = "Taper ici pour rechercher"
|
|
Dim fwr5 As FtpWebRequest
|
|
fwr5 = FtpWebRequest.Create(ipserver & "/Série/find/")
|
|
fwr5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr5.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr1 As New StreamReader(fwr5.GetResponse().GetResponseStream())
|
|
|
|
Dim str1 As String = sr1.ReadLine()
|
|
While Not str1 Is Nothing
|
|
|
|
Dim azaz = str1.Replace(".txt", "")
|
|
|
|
ComboBox1.Items.Add(azaz)
|
|
|
|
str1 = sr1.ReadLine()
|
|
|
|
End While
|
|
|
|
sr1.Close()
|
|
|
|
ListBox1.Hide()
|
|
dostempfilm = dossérie & "\temp\"
|
|
If Directory.Exists(dostempfilm) = True Then
|
|
|
|
Else
|
|
Directory.CreateDirectory(dostempfilm)
|
|
End If
|
|
|
|
|
|
Dim lines1a() As String = File.ReadAllLines(théme)
|
|
|
|
If lines1a(0) = 2 Then
|
|
Label1.ForeColor = Color.White
|
|
Me.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button2.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button3.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button4.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button5.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button6.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.ForeColor = Color.White
|
|
Button4.ForeColor = Color.White
|
|
Button5.ForeColor = Color.White
|
|
Button6.ForeColor = Color.White
|
|
Button2.ForeColor = Color.White
|
|
Button3.ForeColor = Color.White
|
|
ElseIf lines1a(0) = 3 Then
|
|
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Button4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Button5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Button6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Button3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
End If
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Série/pages/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox1.Items.Add(str)
|
|
ListBox2.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
|
|
pages = ListBox1.Items.Count
|
|
|
|
pagesacctuel = 1
|
|
|
|
Dim lines1123() As String = File.ReadAllLines(Form1.settingseries)
|
|
If lines1123(1) = 1 Then
|
|
pagesacctuel = pages
|
|
Button5.Enabled = True
|
|
Button6.Enabled = False
|
|
Button3.Text = pages
|
|
Else
|
|
Button5.Enabled = False
|
|
Button6.Enabled = True
|
|
End If
|
|
|
|
Me.Text = "Séries streaming " & pagesacctuel & "/" & pages
|
|
|
|
If ListBox1.Items.Count = 1 Then
|
|
Button5.Enabled = False
|
|
Button6.Enabled = False
|
|
End If
|
|
|
|
Button6.Focus()
|
|
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri = 1 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 2 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 3 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 4 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 5 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 6 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 7 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 8 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg")
|
|
PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Form189.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub séries_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
ComboBox1.Items.Clear()
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri2 = 1 Then
|
|
PictureBox1.Image.Dispose()
|
|
ElseIf vri2 = 2 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
|
|
ElseIf vri2 = 3 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
ElseIf vri2 = 4 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
ElseIf vri2 = 5 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
ElseIf vri2 = 6 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
ElseIf vri2 = 7 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
ElseIf vri2 = 8 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
PictureBox8.Image.Dispose()
|
|
End If
|
|
For Each fichier As String In IO.Directory.GetFiles(dostempfilm)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostempfilm & info.Name)
|
|
Next
|
|
ListBox1.Items.Clear()
|
|
pages = 1
|
|
pagesacctuel = 1
|
|
Button3.Text = pagesacctuel
|
|
End Sub
|
|
|
|
Private Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Click
|
|
ComboBox1.Items.Add("Taper ici pour rechercher")
|
|
ComboBox1.Text = "Taper ici pour rechercher"
|
|
ComboBox1.Size = New Size(731, 22)
|
|
If pagesacctuel = ListBox1.Items.Count Then
|
|
|
|
Else
|
|
Button6.Enabled = False
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri2 = 1 Then
|
|
PictureBox1.Image.Dispose()
|
|
ElseIf vri2 = 2 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
|
|
ElseIf vri2 = 3 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
ElseIf vri2 = 4 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
ElseIf vri2 = 5 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
ElseIf vri2 = 6 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
ElseIf vri2 = 7 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
ElseIf vri2 = 8 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
PictureBox8.Image.Dispose()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetFiles(dostempfilm)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostempfilm & info.Name)
|
|
Next
|
|
|
|
pagesacctuel = pagesacctuel + 1
|
|
Button3.Text = pagesacctuel
|
|
Me.Text = "Séries streaming pages " & pagesacctuel & "/" & pages
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri = 1 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 2 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 3 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 4 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 5 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 6 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 7 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 8 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg")
|
|
PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Show()
|
|
End If
|
|
End If
|
|
|
|
If pagesacctuel = ListBox1.Items.Count Then
|
|
Button6.Enabled = False
|
|
Button5.Focus()
|
|
Else
|
|
Button6.Enabled = True
|
|
Button6.Focus()
|
|
End If
|
|
|
|
Button5.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
ComboBox1.Items.Add("Taper ici pour rechercher")
|
|
ComboBox1.Text = "Taper ici pour rechercher"
|
|
ComboBox1.Size = New Size(731, 22)
|
|
If pagesacctuel = 1 Then
|
|
|
|
Else
|
|
Button5.Enabled = False
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri2 = 1 Then
|
|
PictureBox1.Image.Dispose()
|
|
ElseIf vri2 = 2 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
ElseIf vri2 = 3 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
ElseIf vri2 = 4 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
ElseIf vri2 = 5 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
ElseIf vri2 = 6 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
ElseIf vri2 = 7 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
ElseIf vri2 = 8 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
PictureBox8.Image.Dispose()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetFiles(dostempfilm)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostempfilm & info.Name)
|
|
Next
|
|
|
|
pagesacctuel = pagesacctuel - 1
|
|
Button3.Text = pagesacctuel
|
|
Me.Text = "Séries streaming pages " & pagesacctuel & "/" & pages
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri = 1 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 2 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 3 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 4 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 5 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 6 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 7 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 8 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg")
|
|
PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Show()
|
|
End If
|
|
If pagesacctuel = 1 Then
|
|
|
|
Button5.Enabled = False
|
|
Button6.Focus()
|
|
Else
|
|
Button5.Enabled = True
|
|
Button5.Focus()
|
|
End If
|
|
Button6.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
Dim cotrol As Integer = 0
|
|
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Dim azaz = info.Name.Replace(".txt", "")
|
|
If lines1(0) = azaz Then
|
|
cotrol = 1
|
|
End If
|
|
Next
|
|
If cotrol = 0 Then
|
|
formséries.nom = lines1(0)
|
|
formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série1/"
|
|
formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série1/"
|
|
formséries.ShowDialog()
|
|
Else
|
|
MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
Dim cotrol As Integer = 0
|
|
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Dim azaz = info.Name.Replace(".txt", "")
|
|
If lines1(0) = azaz Then
|
|
cotrol = 1
|
|
End If
|
|
Next
|
|
If cotrol = 0 Then
|
|
formséries.nom = lines1(0)
|
|
formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série2/"
|
|
formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série2/"
|
|
formséries.ShowDialog()
|
|
Else
|
|
MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
Dim cotrol As Integer = 0
|
|
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Dim azaz = info.Name.Replace(".txt", "")
|
|
If lines1(0) = azaz Then
|
|
cotrol = 1
|
|
End If
|
|
Next
|
|
If cotrol = 0 Then
|
|
formséries.nom = lines1(0)
|
|
formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série3/"
|
|
formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série3/"
|
|
formséries.ShowDialog()
|
|
Else
|
|
MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
Dim cotrol As Integer = 0
|
|
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Dim azaz = info.Name.Replace(".txt", "")
|
|
If lines1(0) = azaz Then
|
|
cotrol = 1
|
|
End If
|
|
Next
|
|
If cotrol = 0 Then
|
|
formséries.nom = lines1(0)
|
|
formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série4/"
|
|
formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série4/"
|
|
formséries.ShowDialog()
|
|
Else
|
|
MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
Dim cotrol As Integer = 0
|
|
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Dim azaz = info.Name.Replace(".txt", "")
|
|
If lines1(0) = azaz Then
|
|
cotrol = 1
|
|
End If
|
|
Next
|
|
If cotrol = 0 Then
|
|
formséries.nom = lines1(0)
|
|
formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série5/"
|
|
formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série5/"
|
|
formséries.ShowDialog()
|
|
Else
|
|
MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
Dim cotrol As Integer = 0
|
|
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Dim azaz = info.Name.Replace(".txt", "")
|
|
If lines1(0) = azaz Then
|
|
cotrol = 1
|
|
End If
|
|
Next
|
|
If cotrol = 0 Then
|
|
formséries.nom = lines1(0)
|
|
formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série6/"
|
|
formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série6/"
|
|
formséries.ShowDialog()
|
|
Else
|
|
MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
Dim cotrol As Integer = 0
|
|
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Dim azaz = info.Name.Replace(".txt", "")
|
|
If lines1(0) = azaz Then
|
|
cotrol = 1
|
|
End If
|
|
Next
|
|
If cotrol = 0 Then
|
|
formséries.nom = lines1(0)
|
|
formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série7/"
|
|
formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série7/"
|
|
formséries.ShowDialog()
|
|
Else
|
|
MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
Dim cotrol As Integer = 0
|
|
For Each fichier As String In IO.Directory.GetFiles(doscontroleparantal & "\Séries\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Dim azaz = info.Name.Replace(".txt", "")
|
|
If lines1(0) = azaz Then
|
|
cotrol = 1
|
|
End If
|
|
Next
|
|
If cotrol = 0 Then
|
|
formséries.nom = lines1(0)
|
|
formséries.PictureBox1.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
formséries.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série8/"
|
|
formséries.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série8/"
|
|
formséries.ShowDialog()
|
|
Else
|
|
MsgBox("Vous n’êtes pas autorisé à voir cette série", MsgBoxStyle.Critical)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
|
|
If ComboBox1.SelectedItem = "" Then
|
|
|
|
ElseIf ComboBox1.SelectedItem = "Taper ici pour rechercher" Then
|
|
|
|
|
|
Else
|
|
Dim maj20 As New WebClient
|
|
Dim vri20 As String = maj20.DownloadString(ipsite & "/Série/find/" & ComboBox1.SelectedItem & ".txt")
|
|
Button6.Enabled = False
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "/Série/pages/page" & pagesacctuel & "/série.txt")
|
|
If vri2 = 1 Then
|
|
PictureBox1.Image.Dispose()
|
|
ElseIf vri2 = 2 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
ElseIf vri2 = 3 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
ElseIf vri2 = 4 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
ElseIf vri2 = 5 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
ElseIf vri2 = 6 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
ElseIf vri2 = 7 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
ElseIf vri2 = 8 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
PictureBox8.Image.Dispose()
|
|
End If
|
|
|
|
Try
|
|
For Each fichier As String In IO.Directory.GetFiles(dostempfilm)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostempfilm & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
|
|
pagesacctuel = vri20
|
|
Button3.Text = pagesacctuel
|
|
Me.Text = "Séries streaming pages " & pagesacctuel & "/" & pages
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/Série/pages/page" & pagesacctuel & "/série.txt")
|
|
If vri = 1 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 2 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 3 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 4 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 5 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 6 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 7 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/fsérie6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 8 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série8/image.jpg", dostempfilm & "image8.jpg")
|
|
PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Show()
|
|
End If
|
|
End If
|
|
|
|
If pagesacctuel = ListBox1.Items.Count Then
|
|
Button6.Enabled = False
|
|
Button5.Focus()
|
|
Else
|
|
Button5.Enabled = True
|
|
Button5.Focus()
|
|
End If
|
|
|
|
Button5.Enabled = True
|
|
|
|
If pagesacctuel = 1 Then
|
|
Button5.Enabled = False
|
|
Button6.Enabled = True
|
|
Button5.Focus()
|
|
End If
|
|
|
|
ComboBox1.Items.Add("Taper ici pour rechercher")
|
|
ComboBox1.Text = "Taper ici pour rechercher"
|
|
ComboBox1.Size = New Size(731, 22)
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
selepagesseries.ShowDialog()
|
|
End Sub
|
|
Sub selepages()
|
|
Button6.Enabled = False
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/série.txt")
|
|
If vri2 = 1 Then
|
|
PictureBox1.Image.Dispose()
|
|
ElseIf vri2 = 2 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
ElseIf vri2 = 3 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
ElseIf vri2 = 4 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
ElseIf vri2 = 5 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
ElseIf vri2 = 6 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
ElseIf vri2 = 7 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
ElseIf vri2 = 8 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
PictureBox8.Image.Dispose()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetFiles(dostempfilm)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostempfilm & info.Name)
|
|
Next
|
|
|
|
pagesacctuel = selepagesseries.pagesseleséries
|
|
Button3.Text = pagesacctuel
|
|
Me.Text = "Série streaming pages " & pagesacctuel & "/" & pages
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/série.txt")
|
|
If vri = 1 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 2 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 3 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 4 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 5 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 6 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 7 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 8 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg")
|
|
PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Show()
|
|
End If
|
|
|
|
If pagesacctuel = 1 Then
|
|
Button5.Enabled = False
|
|
Button6.Enabled = True
|
|
Button6.Focus()
|
|
ElseIf pagesacctuel = ListBox2.Items.Count Then
|
|
Button6.Enabled = False
|
|
Button5.Enabled = True
|
|
Button5.Focus()
|
|
Else
|
|
Button6.Enabled = True
|
|
Button5.Enabled = True
|
|
Button6.Focus()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_TextUpdate(sender As Object, e As EventArgs) Handles ComboBox1.TextUpdate
|
|
If ComboBox1.Text = "" Then
|
|
ComboBox1.Size = New Size(731, 22)
|
|
Else
|
|
ComboBox1.Items.Remove("Taper ici pour rechercher")
|
|
ComboBox1.Size = New Size(731, 92)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
|
|
If ComboBox1.SelectedItem = "Taper ici pour rechercher" Then
|
|
ComboBox1.SelectedText = ""
|
|
End If
|
|
End Sub
|
|
End Class |