first commit
This commit is contained in:
@@ -0,0 +1,721 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Threading
|
||||
Imports System.Timers
|
||||
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
||||
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Status
|
||||
|
||||
Public Class Form10
|
||||
Dim nombreimage As String = ""
|
||||
Dim vueimage As Integer = 1
|
||||
Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
If Form5.dl = 1 Then
|
||||
Me.Text = "image du jeux: " & Form3.ListBox2.SelectedItem
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo.txt")
|
||||
nombreimage = vri3
|
||||
If vri3 = 1 Then
|
||||
dl1()
|
||||
ElseIf vri3 = 2 Then
|
||||
dl2()
|
||||
ElseIf vri3 = 3 Then
|
||||
dl3()
|
||||
ElseIf vri3 = 4 Then
|
||||
dl4()
|
||||
End If
|
||||
ElseIf Form5.dl = 3 Then
|
||||
Me.Text = "image de: " & Form3.ListBox4.SelectedItem
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo.txt")
|
||||
nombreimage = vri3
|
||||
If vri3 = 1 Then
|
||||
dl5()
|
||||
ElseIf vri3 = 2 Then
|
||||
dl6()
|
||||
ElseIf vri3 = 3 Then
|
||||
dl7()
|
||||
ElseIf vri3 = 4 Then
|
||||
dl8()
|
||||
End If
|
||||
ElseIf Form5.dl = 4 Then
|
||||
Me.Text = "image de: " & Form3.ListBox5.SelectedItem
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo.txt")
|
||||
nombreimage = vri3
|
||||
If vri3 = 1 Then
|
||||
dl9
|
||||
ElseIf vri3 = 2 Then
|
||||
dl10
|
||||
ElseIf vri3 = 3 Then
|
||||
dl11
|
||||
ElseIf vri3 = 4 Then
|
||||
dl12
|
||||
End If
|
||||
ElseIf Form5.dl = 5 Then
|
||||
Me.Text = "image de: " & Form3.ListBox6.SelectedItem
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo.txt")
|
||||
nombreimage = vri3
|
||||
If vri3 = 1 Then
|
||||
dl13
|
||||
ElseIf vri3 = 2 Then
|
||||
dl14
|
||||
ElseIf vri3 = 3 Then
|
||||
dl15
|
||||
ElseIf vri3 = 4 Then
|
||||
dl16
|
||||
End If
|
||||
ElseIf Form5.dl = 6 Then
|
||||
Me.Text = "image de: " & Form3.ListBox7.SelectedItem
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo.txt")
|
||||
nombreimage = vri3
|
||||
If vri3 = 1 Then
|
||||
dl17
|
||||
ElseIf vri3 = 2 Then
|
||||
dl18
|
||||
ElseIf vri3 = 3 Then
|
||||
dl19
|
||||
ElseIf vri3 = 4 Then
|
||||
dl20
|
||||
End If
|
||||
ElseIf Form5.dl = 7 Then
|
||||
Me.Text = "image de: " & Form3.ListBox8.SelectedItem
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo.txt")
|
||||
nombreimage = vri3
|
||||
If vri3 = 1 Then
|
||||
dl21
|
||||
ElseIf vri3 = 2 Then
|
||||
dl22
|
||||
ElseIf vri3 = 3 Then
|
||||
dl23
|
||||
ElseIf vri3 = 4 Then
|
||||
dl24
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Sub dl1()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer1.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||||
Timer1.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer1.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl2()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
Timer2.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
Timer2.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
Timer2.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl3()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
Timer3.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
||||
Timer3.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
Timer3.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl4()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
Timer4.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
|
||||
Timer4.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
Timer4.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click
|
||||
If vueimage = nombreimage Then
|
||||
vueimage = 1
|
||||
PictureBox1.Image.Dispose()
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Else
|
||||
vueimage = vueimage + 1
|
||||
PictureBox1.Image.Dispose()
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo" & vueimage & ".png")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles Panel2.Paint
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Panel2_Click(sender As Object, e As EventArgs) Handles Panel2.Click
|
||||
If vueimage = 1 Then
|
||||
PictureBox1.Image.Dispose()
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Else
|
||||
vueimage = vueimage - 1
|
||||
PictureBox1.Image.Dispose()
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo" & vueimage & ".png")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form10_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
PictureBox1.Image.Dispose()
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_MouseEnter(sender As Object, e As EventArgs) Handles Panel1.MouseEnter
|
||||
Panel1.BackColor = Color.FromArgb(32, 32, 32)
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_MouseLeave(sender As Object, e As EventArgs) Handles Panel1.MouseLeave
|
||||
Panel1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
||||
If vueimage = nombreimage Then
|
||||
vueimage = 1
|
||||
PictureBox1.Image.Dispose()
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Else
|
||||
vueimage = vueimage + 1
|
||||
PictureBox1.Image.Dispose()
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo" & vueimage & ".png")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox2_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox2.MouseEnter
|
||||
Panel1.BackColor = Color.FromArgb(32, 32, 32)
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox2_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox2.MouseLeave
|
||||
Panel1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
||||
If vueimage = 1 Then
|
||||
PictureBox1.Image.Dispose()
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Else
|
||||
vueimage = vueimage - 1
|
||||
PictureBox1.Image.Dispose()
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo" & vueimage & ".png")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Panel2_MouseEnter(sender As Object, e As EventArgs) Handles Panel2.MouseEnter
|
||||
Panel2.BackColor = Color.FromArgb(32, 32, 32)
|
||||
End Sub
|
||||
|
||||
Private Sub Panel2_MouseLeave(sender As Object, e As EventArgs) Handles Panel2.MouseLeave
|
||||
Panel2.BackColor = Color.FromArgb(64, 64, 64)
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter
|
||||
Panel2.BackColor = Color.FromArgb(32, 32, 32)
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
|
||||
Panel2.BackColor = Color.FromArgb(64, 64, 64)
|
||||
End Sub
|
||||
Sub dl5()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer5.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl6()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer6.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl7()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer7.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl8()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer8.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
|
||||
Timer5.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer5.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
|
||||
Timer6.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer6.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
|
||||
Timer7.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer7.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
|
||||
Timer8.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer8.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl9()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer9.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl10()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer10.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl11()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer11.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl12()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer12.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
|
||||
Timer9.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer9.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
|
||||
Timer10.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer10.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
|
||||
Timer11.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer11.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
|
||||
Timer12.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer12.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl13()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer13.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl14()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer14.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl15()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer15.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl16()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer16.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
|
||||
Timer13.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer13.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
|
||||
Timer14.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer14.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
|
||||
Timer15.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer15.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick
|
||||
Timer16.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer16.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl17()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer17.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl18()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer18.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl19()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer19.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl20()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer20.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
|
||||
Timer17.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer17.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
|
||||
Timer18.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer18.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
|
||||
Timer19.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer19.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
|
||||
Timer20.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer20.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl21()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer21.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl22()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer22.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl23()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer23.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub dl24()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer24.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
|
||||
Timer21.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer21.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
|
||||
Timer22.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer22.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
|
||||
Timer23.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer23.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick
|
||||
Timer24.Stop()
|
||||
Try
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
|
||||
PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
|
||||
Catch ex As Exception
|
||||
Timer24.Start()
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user