1762 lines
69 KiB
VB.net
1762 lines
69 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class Form3
|
|
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
If nomutilisateur = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/admin.txt")
|
|
If vri = 1 Then
|
|
Panel3.Show()
|
|
End If
|
|
End If
|
|
|
|
|
|
Panel2.Size = New Size(50, 37)
|
|
PictureBox1.Image = My.Resources._588a6507d06f6719692ezezea2d15
|
|
Panel1.Hide()
|
|
Panel2.BackColor = Color.FromArgb(32, 32, 32)
|
|
ComboBox2.SelectedItem = "Tout les jeux"
|
|
ComboBox3.SelectedItem = "Tout les ISO"
|
|
ComboBox4.SelectedItem = "1.19.2"
|
|
ComboBox5.SelectedItem = "1.19.2"
|
|
ComboBox6.SelectedItem = "1.19.2"
|
|
ComboBox7.SelectedItem = "1.19.2"
|
|
|
|
loadLaunchers()
|
|
|
|
End Sub
|
|
|
|
Private Sub Form3_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
|
|
Form1.Location = Me.Location
|
|
End Sub
|
|
|
|
Private Sub Form3_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
Form1.Show()
|
|
End Sub
|
|
Private Sub Panel10_Click(sender As Object, e As EventArgs) Handles Panel10.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub Label16_Click(sender As Object, e As EventArgs) Handles Label16.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
If Panel1.Visible = True Then
|
|
Panel2.Size = New Size(50, 37)
|
|
PictureBox1.Image = My.Resources._588a6507d06f6719692ezezea2d15
|
|
Panel1.Hide()
|
|
Panel2.BackColor = Color.FromArgb(32, 32, 32)
|
|
Panel4.Hide()
|
|
Else
|
|
Panel2.Size = New Size(201, 55)
|
|
PictureBox1.Image = My.Resources._588a6507d06f6719692a2d15
|
|
Panel1.Show()
|
|
Panel4.Show()
|
|
Panel2.BackColor = Color.FromArgb(64, 64, 64)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form3_Click(sender As Object, e As EventArgs) Handles Me.Click
|
|
PictureBox1.Image = My.Resources._588a6507d06f6719692ezezea2d15
|
|
Panel1.Hide()
|
|
Panel2.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs)
|
|
|
|
Try
|
|
ListBox1.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/logiciels/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox1.Items.Add(str)
|
|
ListBox1.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox1.Items.Count = 0 Then
|
|
Label1.Show()
|
|
Else
|
|
Label1.Hide()
|
|
End If
|
|
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
|
|
ListBox1.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/logiciels/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox1.Items.Add(str)
|
|
ListBox1.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox1.Items.Count = 0 Then
|
|
Label1.Show()
|
|
Else
|
|
Label1.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ListBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedValueChanged
|
|
If ListBox1.SelectedItem = "" Then
|
|
|
|
Else
|
|
TextBox1.Text = "recherche ici:"
|
|
Form5.Text = ListBox1.SelectedItem
|
|
Form5.Label1.Text = "télécharger: " & ListBox1.SelectedItem
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & ListBox1.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
|
|
Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & ListBox1.SelectedItem.ToString & "/info.txt")
|
|
Form5.TextBox1.Text = vri
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & ListBox1.SelectedItem.ToString & "/site.txt")
|
|
Form5.siteweb = vri2.ToString
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/logiciels/" & ListBox1.SelectedItem.ToString & "/nom.txt")
|
|
Form5.nom = vri3.ToString
|
|
Form5.Button1.Hide()
|
|
Form5.dl = 0
|
|
Form5.Panel1.Focus()
|
|
Form5.ShowDialog()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
If ListBox1.Items.Count = 0 Then
|
|
TextBox1.Text = "recherche ici:"
|
|
MsgBox("aucun logiciels trouvez", MsgBoxStyle.Information)
|
|
Timer1.Start()
|
|
Else
|
|
If TextBox1.Text = "" Or TextBox1.Text = " " Or TextBox1.Text = " " Or TextBox1.Text = "recherche ici:" Then
|
|
TextBox1.Text = "recherche ici:"
|
|
Timer1.Start()
|
|
Else
|
|
Try
|
|
ListBox1.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/logiciels/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox1.Text) = True Then
|
|
ListBox1.Items.Add(TextBox1.Text)
|
|
TextBox1.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le logiciels: " & TextBox1.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer1.Start()
|
|
End If
|
|
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
Timer2.Stop()
|
|
Try
|
|
ListBox1.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/logiciels/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox1.Text) = True Then
|
|
ListBox1.Items.Clear()
|
|
ListBox1.Items.Add(TextBox1.Text)
|
|
TextBox1.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le logiciels: " & TextBox1.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer1.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
|
|
TextBox1.Clear()
|
|
End Sub
|
|
|
|
Private Sub Panel3_Click(sender As Object, e As EventArgs) Handles Panel3.Click
|
|
Try
|
|
Form7.ShowDialog()
|
|
|
|
Catch ex As Exception
|
|
Form7.Close()
|
|
Form7.ShowDialog()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/" & ComboBox2.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox2.Items.Add(str)
|
|
ListBox2.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox2.Items.Count = 0 Then
|
|
Label4.Show()
|
|
Else
|
|
Label4.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
|
Timer3.Stop()
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/" & ComboBox2.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox2.Items.Add(str)
|
|
ListBox2.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox2.Items.Count = 0 Then
|
|
Label4.Show()
|
|
Else
|
|
Label4.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
|
If ListBox2.Items.Count = 0 Then
|
|
TextBox2.Text = "recherche ici:"
|
|
MsgBox("aucun jeux trouvez", MsgBoxStyle.Information)
|
|
Timer3.Start()
|
|
Else
|
|
If TextBox2.Text = "" Or TextBox2.Text = " " Or TextBox2.Text = " " Or TextBox2.Text = "recherche ici:" Then
|
|
TextBox2.Text = "recherche ici:"
|
|
Timer3.Start()
|
|
Else
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/" & ComboBox2.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox2.Text) = True Then
|
|
ListBox2.Items.Add(TextBox2.Text)
|
|
TextBox2.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le jeux: " & TextBox2.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer3.Start()
|
|
End If
|
|
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer4.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
|
|
Timer4.Stop()
|
|
If ListBox2.Items.Count = 0 Then
|
|
TextBox2.Text = "recherche ici:"
|
|
MsgBox("aucun jeux trouvez", MsgBoxStyle.Information)
|
|
Timer3.Start()
|
|
Else
|
|
If TextBox2.Text = "" Or TextBox2.Text = " " Or TextBox2.Text = " " Or TextBox2.Text = "recherche ici:" Then
|
|
TextBox2.Text = "recherche ici:"
|
|
Timer3.Start()
|
|
Else
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/" & ComboBox2.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox2.Text) = True Then
|
|
ListBox2.Items.Add(TextBox2.Text)
|
|
TextBox2.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le jeux: " & TextBox2.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer3.Start()
|
|
End If
|
|
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer4.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
|
|
TextBox2.Clear()
|
|
End Sub
|
|
|
|
Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox3_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedValueChanged
|
|
Try
|
|
ListBox3.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/ISO/" & ComboBox3.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox3.Items.Add(str)
|
|
ListBox3.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox3.Items.Count = 0 Then
|
|
Label3.Show()
|
|
Else
|
|
Label3.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer5.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
|
|
Timer5.Stop()
|
|
Try
|
|
ListBox3.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/ISO/" & ComboBox3.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox3.Items.Add(str)
|
|
ListBox3.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox3.Items.Count = 0 Then
|
|
Label3.Show()
|
|
Else
|
|
Label3.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer5.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
|
If ListBox3.Items.Count = 0 Then
|
|
TextBox3.Text = "recherche ici:"
|
|
MsgBox("aucun ISO trouvez", MsgBoxStyle.Information)
|
|
Timer5.Start()
|
|
Else
|
|
If TextBox3.Text = "" Or TextBox3.Text = " " Or TextBox3.Text = " " Or TextBox3.Text = "recherche ici:" Then
|
|
TextBox3.Text = "recherche ici:"
|
|
Timer5.Start()
|
|
Else
|
|
Try
|
|
ListBox3.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/ISO/" & ComboBox3.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox3.Text) = True Then
|
|
ListBox3.Items.Add(TextBox3.Text)
|
|
TextBox3.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le fichier ISO: " & TextBox3.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer5.Start()
|
|
End If
|
|
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer6.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
|
|
Timer6.Stop()
|
|
If ListBox3.Items.Count = 0 Then
|
|
TextBox3.Text = "recherche ici:"
|
|
MsgBox("aucun ISO trouvez", MsgBoxStyle.Information)
|
|
Timer5.Start()
|
|
Else
|
|
If TextBox3.Text = "" Or TextBox3.Text = " " Or TextBox3.Text = " " Or TextBox3.Text = "recherche ici:" Then
|
|
TextBox3.Text = "recherche ici:"
|
|
Timer5.Start()
|
|
Else
|
|
Try
|
|
ListBox3.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/ISO/" & ComboBox3.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox3.Text) = True Then
|
|
ListBox3.Items.Add(TextBox3.Text)
|
|
TextBox3.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le fichier ISO: " & TextBox3.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer5.Start()
|
|
End If
|
|
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer6.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox3_Click(sender As Object, e As EventArgs) Handles TextBox3.Click
|
|
TextBox3.Clear()
|
|
End Sub
|
|
|
|
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedValueChanged
|
|
If ListBox2.SelectedItem = "" Then
|
|
|
|
Else
|
|
TextBox2.Text = "recherche ici:"
|
|
Form5.Text = ListBox2.SelectedItem
|
|
Form5.Label1.Text = "télécharger: " & ListBox2.SelectedItem
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & ComboBox2.SelectedItem.ToString & "/" & ListBox2.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
|
|
Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/" & ComboBox2.SelectedItem.ToString & "/" & ListBox2.SelectedItem.ToString & "/info.txt")
|
|
Form5.TextBox1.Text = vri
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/" & ComboBox2.SelectedItem.ToString & "/" & ListBox2.SelectedItem.ToString & "/site.txt")
|
|
Form5.siteweb = vri2.ToString
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/" & ComboBox2.SelectedItem.ToString & "/" & ListBox2.SelectedItem.ToString & "/nom.txt")
|
|
Form5.nom = vri3.ToString
|
|
Form5.Button1.Text = "image du jeux"
|
|
Form5.dl = 1
|
|
Form5.Button1.Show()
|
|
Form5.Panel1.Focus()
|
|
Form5.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click
|
|
Form2.Location = Me.Location
|
|
Form2.startpara = 1
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click
|
|
Form2.Location = Me.Location
|
|
Form2.startpara = 1
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Panel12_Paint(sender As Object, e As PaintEventArgs) Handles Panel12.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel12_Click(sender As Object, e As EventArgs) Handles Panel12.Click
|
|
Form2.Location = Me.Location
|
|
Form2.startpara = 1
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub ListBox3_Click(sender As Object, e As EventArgs) Handles ListBox3.Click
|
|
If ListBox3.SelectedItem = "" Then
|
|
|
|
Else
|
|
TextBox3.Text = "recherche ici:"
|
|
Form5.Text = ListBox3.SelectedItem
|
|
Form5.Label1.Text = "télécharger: " & ListBox3.SelectedItem
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/ISO/" & ComboBox3.SelectedItem.ToString & "/" & ListBox3.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
|
|
Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/ISO/" & ComboBox3.SelectedItem.ToString & "/" & ListBox3.SelectedItem.ToString & "/info.txt")
|
|
Form5.TextBox1.Text = vri
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/ISO/" & ComboBox3.SelectedItem.ToString & "/" & ListBox3.SelectedItem.ToString & "/site.txt")
|
|
Form5.siteweb = vri2.ToString
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/ISO/" & ComboBox3.SelectedItem.ToString & "/" & ListBox3.SelectedItem.ToString & "/nom.txt")
|
|
Form5.nom = vri3.ToString
|
|
Form5.dl = 2
|
|
Form5.Button1.Hide()
|
|
Form5.Panel1.Focus()
|
|
Form5.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox4_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedValueChanged
|
|
Try
|
|
ListBox4.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox4.Items.Add(str)
|
|
ListBox4.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox4.Items.Count = 0 Then
|
|
Label5.Show()
|
|
Else
|
|
Label5.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer7.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
|
|
Timer7.Stop()
|
|
Try
|
|
ListBox4.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox4.Items.Add(str)
|
|
ListBox4.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox4.Items.Count = 0 Then
|
|
Label5.Show()
|
|
Else
|
|
Label5.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer7.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
|
|
If ListBox4.Items.Count = 0 Then
|
|
TextBox4.Text = "recherche ici:"
|
|
MsgBox("aucun mods trouvez", MsgBoxStyle.Information)
|
|
Timer7.Start()
|
|
Else
|
|
If TextBox4.Text = "" Or TextBox4.Text = " " Or TextBox4.Text = " " Or TextBox4.Text = "recherche ici:" Then
|
|
TextBox4.Text = "recherche ici:"
|
|
Timer7.Start()
|
|
Else
|
|
Try
|
|
ListBox4.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/mod/" & ComboBox4.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox4.Text) = True Then
|
|
ListBox4.Items.Add(TextBox4.Text)
|
|
TextBox4.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le mods: " & TextBox4.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer7.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
|
|
Timer8.Stop()
|
|
If ListBox4.Items.Count = 0 Then
|
|
TextBox4.Text = "recherche ici:"
|
|
MsgBox("aucun mods trouvez", MsgBoxStyle.Information)
|
|
Timer7.Start()
|
|
Else
|
|
If TextBox4.Text = "" Or TextBox4.Text = " " Or TextBox4.Text = " " Or TextBox4.Text = "recherche ici:" Then
|
|
TextBox4.Text = "recherche ici:"
|
|
Timer7.Start()
|
|
Else
|
|
Try
|
|
ListBox4.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/mod/" & ComboBox4.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox4.Text) = True Then
|
|
ListBox4.Items.Add(TextBox4.Text)
|
|
TextBox4.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le mods: " & TextBox4.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer7.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox4_Click(sender As Object, e As EventArgs) Handles TextBox4.Click
|
|
TextBox4.Clear()
|
|
End Sub
|
|
|
|
Private Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox4_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedValueChanged
|
|
If ListBox4.SelectedItem = "" Then
|
|
|
|
Else
|
|
TextBox4.Text = "recherche ici:"
|
|
Form5.Text = ListBox4.SelectedItem
|
|
Form5.Label1.Text = "télécharger: " & ListBox4.SelectedItem
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem.ToString & "/" & ListBox4.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
|
|
Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem.ToString & "/" & ListBox4.SelectedItem.ToString & "/info.txt")
|
|
Form5.TextBox1.Text = vri
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem.ToString & "/" & ListBox4.SelectedItem.ToString & "/site.txt")
|
|
Form5.siteweb = vri2.ToString
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & ComboBox4.SelectedItem.ToString & "/" & ListBox4.SelectedItem.ToString & "/nom.txt")
|
|
Form5.nom = vri3.ToString
|
|
Form5.Button1.Text = "image du mod"
|
|
Form5.dl = 3
|
|
Form5.Button1.Show()
|
|
Form5.Panel1.Focus()
|
|
Form5.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedValueChanged
|
|
Try
|
|
ListBox5.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox5.Items.Add(str)
|
|
ListBox5.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox5.Items.Count = 0 Then
|
|
Label6.Show()
|
|
Else
|
|
Label6.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer9.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
|
|
Timer9.Stop()
|
|
Try
|
|
ListBox5.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox5.Items.Add(str)
|
|
ListBox5.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox5.Items.Count = 0 Then
|
|
Label6.Show()
|
|
Else
|
|
Label6.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer9.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
|
If ListBox5.Items.Count = 0 Then
|
|
TextBox5.Text = "recherche ici:"
|
|
MsgBox("aucun plugin trouvez", MsgBoxStyle.Information)
|
|
Timer9.Start()
|
|
Else
|
|
If TextBox5.Text = "" Or TextBox5.Text = " " Or TextBox5.Text = " " Or TextBox5.Text = "recherche ici:" Then
|
|
TextBox5.Text = "recherche ici:"
|
|
Timer9.Start()
|
|
Else
|
|
Try
|
|
ListBox5.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/plugin/" & ComboBox5.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox5.Text) = True Then
|
|
ListBox5.Items.Add(TextBox5.Text)
|
|
TextBox5.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le plugin: " & TextBox5.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer9.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer10.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
|
|
Timer10.Stop()
|
|
If ListBox5.Items.Count = 0 Then
|
|
TextBox5.Text = "recherche ici:"
|
|
MsgBox("aucun plugin trouvez", MsgBoxStyle.Information)
|
|
Timer9.Start()
|
|
Else
|
|
If TextBox5.Text = "" Or TextBox5.Text = " " Or TextBox5.Text = " " Or TextBox5.Text = "recherche ici:" Then
|
|
TextBox5.Text = "recherche ici:"
|
|
Timer9.Start()
|
|
Else
|
|
Try
|
|
ListBox5.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/plugin/" & ComboBox5.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox5.Text) = True Then
|
|
ListBox5.Items.Add(TextBox5.Text)
|
|
TextBox5.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le plugin: " & TextBox5.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer9.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer10.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox5_Click(sender As Object, e As EventArgs) Handles TextBox5.Click
|
|
TextBox5.Clear()
|
|
End Sub
|
|
|
|
Private Sub ListBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox5.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox5.SelectedValueChanged
|
|
If ListBox5.SelectedItem = "" Then
|
|
|
|
Else
|
|
TextBox5.Text = "recherche ici:"
|
|
Form5.Text = ListBox5.SelectedItem
|
|
Form5.Label1.Text = "télécharger: " & ListBox5.SelectedItem
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem.ToString & "/" & ListBox5.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
|
|
Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem.ToString & "/" & ListBox5.SelectedItem.ToString & "/info.txt")
|
|
Form5.TextBox1.Text = vri
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem.ToString & "/" & ListBox5.SelectedItem.ToString & "/site.txt")
|
|
Form5.siteweb = vri2.ToString
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & ComboBox5.SelectedItem.ToString & "/" & ListBox5.SelectedItem.ToString & "/nom.txt")
|
|
Form5.nom = vri3.ToString
|
|
Form5.Button1.Text = "image du plugin"
|
|
Form5.dl = 4
|
|
Form5.Button1.Show()
|
|
Form5.Panel1.Focus()
|
|
Form5.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox6_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedValueChanged
|
|
Try
|
|
ListBox6.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox6.Items.Add(str)
|
|
ListBox6.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox6.Items.Count = 0 Then
|
|
Label7.Show()
|
|
Else
|
|
Label7.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer11.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
|
|
Timer11.Stop()
|
|
Try
|
|
ListBox6.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox6.Items.Add(str)
|
|
ListBox6.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox6.Items.Count = 0 Then
|
|
Label7.Show()
|
|
Else
|
|
Label7.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer11.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click
|
|
If ListBox6.Items.Count = 0 Then
|
|
TextBox6.Text = "recherche ici:"
|
|
MsgBox("aucune map trouvez", MsgBoxStyle.Information)
|
|
Timer11.Start()
|
|
Else
|
|
If TextBox6.Text = "" Or TextBox6.Text = " " Or TextBox6.Text = " " Or TextBox6.Text = "recherche ici:" Then
|
|
TextBox6.Text = "recherche ici:"
|
|
Timer11.Start()
|
|
Else
|
|
Try
|
|
ListBox6.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/map/" & ComboBox6.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox6.Text) = True Then
|
|
ListBox6.Items.Add(TextBox6.Text)
|
|
TextBox6.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("La map: " & TextBox6.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer11.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer12.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
|
|
Timer12.Stop()
|
|
If ListBox6.Items.Count = 0 Then
|
|
TextBox6.Text = "recherche ici:"
|
|
MsgBox("aucune map trouvez", MsgBoxStyle.Information)
|
|
Else
|
|
If TextBox6.Text = "" Or TextBox6.Text = " " Or TextBox6.Text = " " Or TextBox6.Text = "recherche ici:" Then
|
|
TextBox6.Text = "recherche ici:"
|
|
Timer11.Start()
|
|
Else
|
|
Try
|
|
ListBox6.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/map/" & ComboBox6.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox6.Text) = True Then
|
|
ListBox6.Items.Add(TextBox6.Text)
|
|
TextBox6.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("La map: " & TextBox6.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer11.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer12.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox6_Click(sender As Object, e As EventArgs) Handles TextBox6.Click
|
|
TextBox6.Clear()
|
|
End Sub
|
|
|
|
Private Sub ListBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox6.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox6_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox6.SelectedValueChanged
|
|
If ListBox6.SelectedItem = "" Then
|
|
|
|
Else
|
|
TextBox6.Text = "recherche ici:"
|
|
Form5.Text = ListBox6.SelectedItem
|
|
Form5.Label1.Text = "télécharger: " & ListBox6.SelectedItem
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem.ToString & "/" & ListBox6.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
|
|
Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem.ToString & "/" & ListBox6.SelectedItem.ToString & "/info.txt")
|
|
Form5.TextBox1.Text = vri
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem.ToString & "/" & ListBox6.SelectedItem.ToString & "/site.txt")
|
|
Form5.siteweb = vri2.ToString
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & ComboBox6.SelectedItem.ToString & "/" & ListBox6.SelectedItem.ToString & "/nom.txt")
|
|
Form5.nom = vri3.ToString
|
|
Form5.Button1.Text = "image de la map"
|
|
Form5.dl = 5
|
|
Form5.Button1.Show()
|
|
Form5.Panel1.Focus()
|
|
Form5.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox7_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedValueChanged
|
|
Try
|
|
ListBox7.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox7.Items.Add(str)
|
|
ListBox7.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox7.Items.Count = 0 Then
|
|
Label8.Show()
|
|
Else
|
|
Label8.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer13.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
|
|
Timer13.Stop()
|
|
Try
|
|
ListBox7.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox7.Items.Add(str)
|
|
ListBox7.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox7.Items.Count = 0 Then
|
|
Label8.Show()
|
|
Else
|
|
Label8.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer13.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
|
|
If ListBox7.Items.Count = 0 Then
|
|
TextBox7.Text = "recherche ici:"
|
|
MsgBox("aucune serveur trouvez", MsgBoxStyle.Information)
|
|
Timer13.Start()
|
|
Else
|
|
If TextBox7.Text = "" Or TextBox7.Text = " " Or TextBox7.Text = " " Or TextBox7.Text = "recherche ici:" Then
|
|
TextBox7.Text = "recherche ici:"
|
|
Timer13.Start()
|
|
Else
|
|
Try
|
|
ListBox7.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/serveur/" & ComboBox7.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox7.Text) = True Then
|
|
ListBox7.Items.Add(TextBox7.Text)
|
|
TextBox7.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("le serveur: " & TextBox7.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer13.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer14.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
|
|
Timer14.Stop()
|
|
If ListBox7.Items.Count = 0 Then
|
|
TextBox7.Text = "recherche ici:"
|
|
MsgBox("aucune serveur trouvez", MsgBoxStyle.Information)
|
|
Timer13.Start()
|
|
Else
|
|
If TextBox7.Text = "" Or TextBox7.Text = " " Or TextBox7.Text = " " Or TextBox7.Text = "recherche ici:" Then
|
|
TextBox7.Text = "recherche ici:"
|
|
Timer13.Start()
|
|
Else
|
|
Try
|
|
ListBox7.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/serveur/" & ComboBox7.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox7.Text) = True Then
|
|
ListBox7.Items.Add(TextBox7.Text)
|
|
TextBox7.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("le serveur: " & TextBox7.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer13.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer14.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox7_Click(sender As Object, e As EventArgs) Handles TextBox7.Click
|
|
TextBox7.Clear()
|
|
End Sub
|
|
|
|
Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox7.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox7_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox7.SelectedValueChanged
|
|
If ListBox7.SelectedItem = "" Then
|
|
|
|
Else
|
|
TextBox7.Text = "recherche ici:"
|
|
Form5.Text = ListBox7.SelectedItem
|
|
Form5.Label1.Text = "télécharger: " & ListBox7.SelectedItem
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem.ToString & "/" & ListBox7.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
|
|
Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem.ToString & "/" & ListBox7.SelectedItem.ToString & "/info.txt")
|
|
Form5.TextBox1.Text = vri
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem.ToString & "/" & ListBox7.SelectedItem.ToString & "/site.txt")
|
|
Form5.siteweb = vri2.ToString
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & ComboBox7.SelectedItem.ToString & "/" & ListBox7.SelectedItem.ToString & "/nom.txt")
|
|
Form5.nom = vri3.ToString
|
|
Form5.Button1.Text = "image du serveur"
|
|
Form5.dl = 6
|
|
Form5.Button1.Show()
|
|
Form5.Panel1.Focus()
|
|
Form5.ShowDialog()
|
|
End If
|
|
End Sub
|
|
Sub loadLaunchers()
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/Launcher/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox8.Items.Add(str)
|
|
ListBox8.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox8.Items.Count = 0 Then
|
|
Label9.Show()
|
|
Else
|
|
Label9.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer15.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
|
|
Timer15.Stop()
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/jeux/Minecraft/Launcher/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox8.Items.Add(str)
|
|
ListBox8.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox8.Items.Count = 0 Then
|
|
Label9.Show()
|
|
Else
|
|
Label9.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer15.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox13_Click(sender As Object, e As EventArgs) Handles PictureBox13.Click
|
|
If ListBox8.Items.Count = 0 Then
|
|
TextBox8.Text = "recherche ici:"
|
|
MsgBox("aucun Launcher trouvez", MsgBoxStyle.Information)
|
|
Timer15.Start()
|
|
Else
|
|
If TextBox8.Text = "" Or TextBox8.Text = " " Or TextBox8.Text = " " Or TextBox8.Text = "recherche ici:" Then
|
|
TextBox8.Text = "recherche ici:"
|
|
Timer15.Start()
|
|
Else
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/Launcher/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox8.Text) = True Then
|
|
ListBox8.Items.Add(TextBox8.Text)
|
|
TextBox8.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("le Launcher: " & TextBox8.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer15.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer16.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick
|
|
Timer16.Stop()
|
|
If TextBox8.Text = "" Or TextBox8.Text = " " Or TextBox8.Text = " " Or TextBox8.Text = "recherche ici:" Then
|
|
TextBox8.Text = "recherche ici:"
|
|
Timer15.Start()
|
|
Else
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Téléchargeur/Jeux/Minecraft/Launcher/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox8.Text) = True Then
|
|
ListBox8.Items.Add(TextBox8.Text)
|
|
TextBox8.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("le Launcher: " & TextBox8.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer15.Start()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer16.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox7_TextChanged_1(sender As Object, e As EventArgs) Handles TextBox7.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox8_Click(sender As Object, e As EventArgs) Handles TextBox8.Click
|
|
TextBox8.Clear()
|
|
End Sub
|
|
|
|
Private Sub ListBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox8.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox8_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox8.SelectedValueChanged
|
|
If ListBox8.SelectedItem = "" Then
|
|
|
|
Else
|
|
TextBox8.Text = "recherche ici:"
|
|
Form5.Text = ListBox8.SelectedItem
|
|
Form5.Label1.Text = "télécharger: " & ListBox8.SelectedItem
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & "/" & ListBox8.SelectedItem.ToString & "/logo.png", dosrepertoire & "\logo.png")
|
|
Form5.PictureBox2.Image = Image.FromFile(dosrepertoire & "\logo.png")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & "/" & ListBox8.SelectedItem.ToString & "/info.txt")
|
|
Form5.TextBox1.Text = vri
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & "/" & ListBox8.SelectedItem.ToString & "/site.txt")
|
|
Form5.siteweb = vri2.ToString
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & "/" & ListBox8.SelectedItem.ToString & "/nom.txt")
|
|
Form5.nom = vri3.ToString
|
|
Form5.Button1.Text = "image du Launcher"
|
|
Form5.dl = 7
|
|
Form5.Button1.Show()
|
|
Form5.Panel1.Focus()
|
|
Form5.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Panel3_Paint(sender As Object, e As PaintEventArgs) Handles Panel3.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
|
|
Try
|
|
Form7.ShowDialog()
|
|
|
|
Catch ex As Exception
|
|
Form7.Close()
|
|
Form7.ShowDialog()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
Try
|
|
Form7.ShowDialog()
|
|
|
|
Catch ex As Exception
|
|
Form7.Close()
|
|
Form7.ShowDialog()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Panel11_Paint(sender As Object, e As PaintEventArgs) Handles Panel11.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel11_Click(sender As Object, e As EventArgs) Handles Panel11.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Label15_Click(sender As Object, e As EventArgs) Handles Label15.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
End Class |