first commit
This commit is contained in:
@@ -0,0 +1,859 @@
|
||||
Imports System.IO
|
||||
Imports System.ComponentModel
|
||||
Imports System.Net
|
||||
|
||||
Public Class Form5
|
||||
Public siteweb As String = ""
|
||||
Public nom As String = ""
|
||||
Public dl As Integer = 0
|
||||
Dim téléchargement As Integer = 0
|
||||
Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
If nomutilisateur = "" Then
|
||||
Button2.Hide()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form5_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
If téléchargement = 1 Then
|
||||
MsgBox("un téléchargement est en cours" & vbNewLine & "merci de pantienter", MsgBoxStyle.Exclamation)
|
||||
e.Cancel = True
|
||||
Else
|
||||
PictureBox2.Image.Dispose()
|
||||
File.Delete(dosrepertoire & "\logo.png")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_MouseEnter(sender As Object, e As EventArgs) Handles Panel1.MouseEnter
|
||||
Panel1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_MouseLeave(sender As Object, e As EventArgs) Handles Panel1.MouseLeave
|
||||
Panel1.BackColor = Color.FromArgb(32, 32, 32)
|
||||
End Sub
|
||||
|
||||
Private Sub Label1_MouseEnter(sender As Object, e As EventArgs) Handles Label1.MouseEnter
|
||||
Panel1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
End Sub
|
||||
|
||||
Private Sub Label1_MouseLeave(sender As Object, e As EventArgs) Handles Label1.MouseLeave
|
||||
Panel1.BackColor = Color.FromArgb(32, 32, 32)
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
|
||||
Panel1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
|
||||
Panel1.BackColor = Color.FromArgb(32, 32, 32)
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click
|
||||
If dldos = "" Then
|
||||
If FolderBrowserDialog1.ShowDialog = 1 Then
|
||||
If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
|
||||
MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)
|
||||
|
||||
Else
|
||||
If dl = 0 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 0 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
|
||||
ElseIf dl = 0 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 2 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
|
||||
ElseIf dl = 3 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 4 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 5 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 6 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 7 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
FolderBrowserDialog1.SelectedPath = dldos
|
||||
If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
|
||||
MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If dl = 0 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 0 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
|
||||
ElseIf dl = 0 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 2 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
|
||||
ElseIf dl = 3 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 4 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 5 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 6 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 7 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged
|
||||
If dl = 0 Then
|
||||
ProgressBar1.Value = e.ProgressPercentage
|
||||
Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox1.SelectedItem & " "
|
||||
ElseIf dl = 2 Then
|
||||
ProgressBar1.Value = e.ProgressPercentage
|
||||
Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox3.SelectedItem & " "
|
||||
ElseIf dl = 3 Then
|
||||
ProgressBar1.Value = e.ProgressPercentage
|
||||
Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox4.SelectedItem & " "
|
||||
ElseIf dl = 4 Then
|
||||
ProgressBar1.Value = e.ProgressPercentage
|
||||
Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox5.SelectedItem & " "
|
||||
ElseIf dl = 5 Then
|
||||
ProgressBar1.Value = e.ProgressPercentage
|
||||
Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox6.SelectedItem & " "
|
||||
ElseIf dl = 6 Then
|
||||
ProgressBar1.Value = e.ProgressPercentage
|
||||
Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox7.SelectedItem & " "
|
||||
ElseIf dl = 7 Then
|
||||
ProgressBar1.Value = e.ProgressPercentage
|
||||
Me.Text = e.ProgressPercentage & "%" & " Téléchargement de " & Form3.ListBox8.SelectedItem & " "
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
|
||||
Panel1.Show()
|
||||
If dl = 0 Then
|
||||
ProgressBar1.Value = 0
|
||||
ProgressBar1.Hide()
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
Dim msg = MsgBox("voulez vous lançer le setup de " & Form3.ListBox1.SelectedItem & "?", MsgBoxStyle.YesNo)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Try
|
||||
Process.Start(FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe")
|
||||
Catch ex As Exception
|
||||
MsgBox("un erreytur est survenue", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
Else
|
||||
|
||||
End If
|
||||
ElseIf dl = 2 Then
|
||||
ProgressBar1.Value = 0
|
||||
ProgressBar1.Hide()
|
||||
Me.Text = Form3.ListBox3.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox3.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 3 Then
|
||||
ProgressBar1.Value = 0
|
||||
ProgressBar1.Hide()
|
||||
Me.Text = Form3.ListBox4.SelectedItem
|
||||
Try
|
||||
IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox4.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
Catch ex As Exception
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
End Try
|
||||
ElseIf dl = 4 Then
|
||||
ProgressBar1.Value = 0
|
||||
ProgressBar1.Hide()
|
||||
Me.Text = Form3.ListBox5.SelectedItem
|
||||
Try
|
||||
IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox5.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
Catch ex As Exception
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
End Try
|
||||
ElseIf dl = 5 Then
|
||||
ProgressBar1.Value = 0
|
||||
ProgressBar1.Hide()
|
||||
Me.Text = Form3.ListBox6.SelectedItem
|
||||
Try
|
||||
IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox6.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
Catch ex As Exception
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
End Try
|
||||
ElseIf dl = 6 Then
|
||||
ProgressBar1.Value = 0
|
||||
ProgressBar1.Hide()
|
||||
Me.Text = Form3.ListBox7.SelectedItem
|
||||
Try
|
||||
IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox7.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
Catch ex As Exception
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
End Try
|
||||
ElseIf dl = 7 Then
|
||||
ProgressBar1.Value = 0
|
||||
ProgressBar1.Hide()
|
||||
Me.Text = Form3.ListBox8.SelectedItem
|
||||
Try
|
||||
IO.Compression.ZipFile.ExtractToDirectory(dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip", FolderBrowserDialog1.SelectedPath)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox8.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
Catch ex As Exception
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("le fichier exsite dêja dans: " & vbNewLine & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Critical)
|
||||
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(dostemps & info.Name)
|
||||
Next
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Dim WithEvents téléchargerfr As WebClient
|
||||
|
||||
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
||||
Process.Start(siteweb)
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Form10.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Form22.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
|
||||
If dldos = "" Then
|
||||
If FolderBrowserDialog1.ShowDialog = 1 Then
|
||||
If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
|
||||
MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)
|
||||
|
||||
Else
|
||||
If dl = 0 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 0 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
|
||||
ElseIf dl = 0 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 2 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
|
||||
ElseIf dl = 3 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 4 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 5 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 6 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 7 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
FolderBrowserDialog1.SelectedPath = dldos
|
||||
If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
|
||||
MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If dl = 0 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 0 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
|
||||
ElseIf dl = 0 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 2 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
|
||||
ElseIf dl = 3 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 4 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 5 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 6 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 7 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
If dldos = "" Then
|
||||
If FolderBrowserDialog1.ShowDialog = 1 Then
|
||||
If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
|
||||
MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)
|
||||
|
||||
Else
|
||||
If dl = 0 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 0 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
|
||||
ElseIf dl = 0 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 2 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
|
||||
ElseIf dl = 3 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 4 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 5 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 6 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 7 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
FolderBrowserDialog1.SelectedPath = dldos
|
||||
If File.Exists(FolderBrowserDialog1.SelectedPath & "\" & nom) = True Then
|
||||
MsgBox("Le fichier: " & nom & " exsite dêjâ de le dosier: " & FolderBrowserDialog1.SelectedPath, MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If dl = 0 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 0 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox1.SelectedItem.ToString & " setup.exe"))
|
||||
ElseIf dl = 0 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox1.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & Form3.ListBox1.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox1.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox1.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".zip") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".jar") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 1 And nom.Contains(".exe") = True Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Me.Text = "Téléchargement de: " & Form3.ListBox2.SelectedItem
|
||||
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Tout les jeux/" & Form3.ListBox2.SelectedItem.ToString & "/" & nom, FolderBrowserDialog1.SelectedPath & "\" & nom)
|
||||
Me.Text = Form3.ListBox2.SelectedItem
|
||||
téléchargement = 0
|
||||
Button2.Enabled = True
|
||||
MsgBox("Le téléchargement de: " & Form3.ListBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
|
||||
ElseIf dl = 2 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/ISO/" & Form3.ComboBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & "/" & Form3.ListBox3.SelectedItem.ToString & ".iso"), (FolderBrowserDialog1.SelectedPath & "\" & Form3.ListBox3.SelectedItem.ToString & ".iso"))
|
||||
ElseIf dl = 3 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox4.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 4 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox5.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 5 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox6.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 6 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox7.SelectedItem.ToString & ".zip"))
|
||||
ElseIf dl = 7 Then
|
||||
Button2.Enabled = False
|
||||
téléchargement = 1
|
||||
Panel1.Hide()
|
||||
ProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(ipsite & "extrème downloaders/Téléchargeur/jeux/minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/" & Form3.ListBox8.SelectedItem.ToString & ".zip"), (dostemps & "\" & Form3.ListBox8.SelectedItem.ToString & ".zip"))
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user