3836 lines
162 KiB
VB.net
3836 lines
162 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class Form28
|
|
Private Sub Form28_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
|
|
If File.Exists(startpage2) = True Then
|
|
Dim lines1() As String = File.ReadAllLines(startpage2)
|
|
If lines1(0) = 0 Then
|
|
Form44.ShowDialog()
|
|
End If
|
|
Else
|
|
Dim sw1 As New StreamWriter(startpage2)
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
Form44.ShowDialog()
|
|
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 = "Windows"
|
|
ComboBox4.SelectedItem = "1.19.2"
|
|
ComboBox5.SelectedItem = "1.19.2"
|
|
ComboBox6.SelectedItem = "1.19.2"
|
|
ComboBox7.SelectedItem = "1.19.2"
|
|
ComboBox1.SelectedItem = "1.19.2"
|
|
ComboBox8.SelectedItem = "1.19.2"
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/admin.txt")
|
|
If vri1 = 1 Then
|
|
Label13.Show()
|
|
PictureBox20.Show()
|
|
Panel5.Show()
|
|
Else
|
|
Label13.Hide()
|
|
PictureBox20.Hide()
|
|
Panel5.Hide()
|
|
End If
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub Form28_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
Form1.Show()
|
|
End Sub
|
|
|
|
Private Sub Form28_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
|
|
Form1.Location = Me.Location
|
|
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
|
|
Sub ftp()
|
|
Try
|
|
ListBox1.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/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
|
|
ftp2()
|
|
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 & "Communautaire/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
|
|
ftp2()
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
Sub ftp2()
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Tout les jeux/")
|
|
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
|
|
ftp3()
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
Timer2.Stop()
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Tout les jeux/")
|
|
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
|
|
ftp3()
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
Sub ftp3()
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Launchers/")
|
|
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
|
|
ftp4()
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
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 & "Communautaire/Jeux/Minecraft/Mods/" & 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
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
|
Timer3.Stop()
|
|
Try
|
|
ListBox4.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Mods/" & 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
|
|
Timer3.Start()
|
|
End Try
|
|
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 & "Communautaire/Jeux/Minecraft/Plugins/" & 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
|
|
Timer4.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
|
|
Timer4.Stop()
|
|
Try
|
|
ListBox5.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Plugins/" & 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
|
|
Timer4.Start()
|
|
End Try
|
|
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 & "Communautaire/Jeux/Minecraft/Maps/" & 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
|
|
Timer5.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
|
|
Timer5.Stop()
|
|
Try
|
|
ListBox6.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Maps/" & 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
|
|
Timer5.Start()
|
|
End Try
|
|
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 & "Communautaire/Jeux/Minecraft/serveur préfaits/" & 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
|
|
Timer6.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
|
|
Timer6.Stop()
|
|
Try
|
|
ListBox7.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/serveur préfaits/" & 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
|
|
Timer6.Start()
|
|
End Try
|
|
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 & "Communautaire/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
|
|
Timer7.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
|
|
Timer7.Stop()
|
|
Try
|
|
ListBox3.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/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
|
|
Timer7.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
|
|
Timer8.Stop()
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Launchers/")
|
|
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
|
|
ftp4()
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
End Sub
|
|
Sub ftp4()
|
|
Try
|
|
ListBox9.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Autre/")
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
ListBox9.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox9.Items.Count = 0 Then
|
|
Label10.Show()
|
|
Else
|
|
Label10.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
|
|
ListBox9.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Autre/")
|
|
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
|
|
|
|
ListBox9.Items.Add(str)
|
|
ListBox9.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox9.Items.Count = 0 Then
|
|
Label10.Show()
|
|
Else
|
|
Label10.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer9.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox15_Click(sender As Object, e As EventArgs) Handles PictureBox15.Click
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub PictureBox16_Click(sender As Object, e As EventArgs) Handles PictureBox16.Click
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub PictureBox17_Click(sender As Object, e As EventArgs) Handles PictureBox17.Click
|
|
ftp()
|
|
End Sub
|
|
|
|
Private Sub PictureBox14_Click(sender As Object, e As EventArgs) Handles PictureBox14.Click
|
|
If ListBox9.Items.Count = 0 Then
|
|
TextBox9.Text = "recherche ici:"
|
|
MsgBox("aucun fichier trouvez", MsgBoxStyle.Information)
|
|
Timer9.Start()
|
|
Else
|
|
If TextBox9.Text = "" Or TextBox9.Text = " " Or TextBox9.Text = " " Or TextBox9.Text = "recherche ici:" Then
|
|
TextBox9.Text = "recherche ici:"
|
|
Timer9.Start()
|
|
Else
|
|
Try
|
|
ListBox9.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Autre/")
|
|
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 & TextBox9.Text) = True Then
|
|
ListBox9.Items.Add(TextBox9.Text)
|
|
TextBox9.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le fichier: " & TextBox9.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
|
|
Timer18.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 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 & "/Communautaire/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
|
|
Timer10.Start()
|
|
End Try
|
|
End If
|
|
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 & "/Communautaire/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
|
|
Timer10.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TabPage1_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
|
|
TextBox1.Clear()
|
|
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)
|
|
Timer2.Start()
|
|
Else
|
|
If TextBox2.Text = "" Or TextBox2.Text = " " Or TextBox2.Text = " " Or TextBox2.Text = "recherche ici:" Then
|
|
TextBox2.Text = "recherche ici:"
|
|
Timer2.Start()
|
|
Else
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Tout les jeux/")
|
|
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)
|
|
Timer2.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
|
|
Timer11.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
|
|
Timer11.Stop()
|
|
If ListBox2.Items.Count = 0 Then
|
|
TextBox2.Text = "recherche ici:"
|
|
MsgBox("aucun jeux trouvez", MsgBoxStyle.Information)
|
|
Timer2.Start()
|
|
Else
|
|
If TextBox2.Text = "" Or TextBox2.Text = " " Or TextBox2.Text = " " Or TextBox2.Text = "recherche ici:" Then
|
|
TextBox2.Text = "recherche ici:"
|
|
Timer2.Start()
|
|
Else
|
|
Try
|
|
ListBox2.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Tout les jeux/")
|
|
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)
|
|
Timer2.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
|
|
Timer11.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 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)
|
|
Timer3.Start()
|
|
Else
|
|
If TextBox4.Text = "" Or TextBox4.Text = " " Or TextBox4.Text = " " Or TextBox4.Text = "recherche ici:" Then
|
|
TextBox4.Text = "recherche ici:"
|
|
Timer3.Start()
|
|
Else
|
|
Try
|
|
ListBox4.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Mods/" & 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)
|
|
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
|
|
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 ListBox4.Items.Count = 0 Then
|
|
TextBox4.Text = "recherche ici:"
|
|
MsgBox("aucun Mods trouvez", MsgBoxStyle.Information)
|
|
Timer3.Start()
|
|
Else
|
|
If TextBox4.Text = "" Or TextBox4.Text = " " Or TextBox4.Text = " " Or TextBox4.Text = "recherche ici:" Then
|
|
TextBox4.Text = "recherche ici:"
|
|
Timer3.Start()
|
|
Else
|
|
Try
|
|
ListBox4.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Mods/" & 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)
|
|
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
|
|
Timer12.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 PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
|
If ListBox5.Items.Count = 0 Then
|
|
TextBox5.Text = "recherche ici:"
|
|
MsgBox("aucun Plugins trouvez", MsgBoxStyle.Information)
|
|
Timer4.Start()
|
|
Else
|
|
If TextBox5.Text = "" Or TextBox5.Text = " " Or TextBox5.Text = " " Or TextBox5.Text = "recherche ici:" Then
|
|
TextBox4.Text = "recherche ici:"
|
|
Timer4.Start()
|
|
Else
|
|
Try
|
|
ListBox5.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Plugins/" & 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 Plugins: " & TextBox5.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer4.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
|
|
Timer13.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
|
|
Timer13.Stop()
|
|
If ListBox5.Items.Count = 0 Then
|
|
TextBox5.Text = "recherche ici:"
|
|
MsgBox("aucun Plugins trouvez", MsgBoxStyle.Information)
|
|
Timer4.Start()
|
|
Else
|
|
If TextBox5.Text = "" Or TextBox5.Text = " " Or TextBox5.Text = " " Or TextBox5.Text = "recherche ici:" Then
|
|
TextBox4.Text = "recherche ici:"
|
|
Timer4.Start()
|
|
Else
|
|
Try
|
|
ListBox5.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Plugins/" & 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 Plugins: " & TextBox5.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer4.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
|
|
Timer13.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
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("aucun Maps trouvez", MsgBoxStyle.Information)
|
|
Timer5.Start()
|
|
Else
|
|
If TextBox6.Text = "" Or TextBox6.Text = " " Or TextBox6.Text = " " Or TextBox6.Text = "recherche ici:" Then
|
|
TextBox6.Text = "recherche ici:"
|
|
Timer5.Start()
|
|
Else
|
|
Try
|
|
ListBox6.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Maps/" & 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 Maps: " & TextBox6.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
|
|
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 ListBox6.Items.Count = 0 Then
|
|
TextBox6.Text = "recherche ici:"
|
|
MsgBox("aucun Maps trouvez", MsgBoxStyle.Information)
|
|
Timer5.Start()
|
|
Else
|
|
If TextBox6.Text = "" Or TextBox6.Text = " " Or TextBox6.Text = " " Or TextBox6.Text = "recherche ici:" Then
|
|
TextBox6.Text = "recherche ici:"
|
|
Timer5.Start()
|
|
Else
|
|
Try
|
|
ListBox6.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Maps/" & 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 Maps: " & TextBox6.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
|
|
Timer14.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 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 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)
|
|
Timer8.Start()
|
|
Else
|
|
If TextBox8.Text = "" Or TextBox8.Text = " " Or TextBox8.Text = " " Or TextBox8.Text = "recherche ici:" Then
|
|
TextBox8.Text = "recherche ici:"
|
|
Timer8.Start()
|
|
Else
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Launchers/")
|
|
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 Launchers: " & TextBox8.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer8.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
|
|
Timer15.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
|
|
Timer15.Stop()
|
|
If ListBox8.Items.Count = 0 Then
|
|
TextBox8.Text = "recherche ici:"
|
|
MsgBox("aucun Launcher trouvez", MsgBoxStyle.Information)
|
|
Timer8.Start()
|
|
Else
|
|
If TextBox8.Text = "" Or TextBox8.Text = " " Or TextBox8.Text = " " Or TextBox8.Text = "recherche ici:" Then
|
|
TextBox8.Text = "recherche ici:"
|
|
Timer8.Start()
|
|
Else
|
|
Try
|
|
ListBox8.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/Launchers/")
|
|
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 Launchers: " & TextBox8.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer8.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
|
|
Timer15.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox8_Click(sender As Object, e As EventArgs) Handles TextBox8.Click
|
|
TextBox8.Clear()
|
|
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("aucun serveur préfaits trouvez", MsgBoxStyle.Information)
|
|
Timer6.Start()
|
|
Else
|
|
If TextBox7.Text = "" Or TextBox7.Text = " " Or TextBox7.Text = " " Or TextBox7.Text = "recherche ici:" Then
|
|
TextBox7.Text = "recherche ici:"
|
|
Timer6.Start()
|
|
Else
|
|
Try
|
|
ListBox7.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/serveur préfaits/" & 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 préfaits: " & TextBox7.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer6.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 ListBox7.Items.Count = 0 Then
|
|
TextBox7.Text = "recherche ici:"
|
|
MsgBox("aucun serveur préfaits trouvez", MsgBoxStyle.Information)
|
|
Timer6.Start()
|
|
Else
|
|
If TextBox7.Text = "" Or TextBox7.Text = " " Or TextBox7.Text = " " Or TextBox7.Text = "recherche ici:" Then
|
|
TextBox7.Text = "recherche ici:"
|
|
Timer6.Start()
|
|
Else
|
|
Try
|
|
ListBox7.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/serveur préfaits/" & 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 préfaits: " & TextBox7.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer6.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 TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox7_Click(sender As Object, e As EventArgs) Handles TextBox7.Click
|
|
TextBox7.Clear()
|
|
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 fichier ISO trouvez", MsgBoxStyle.Information)
|
|
Timer7.Start()
|
|
Else
|
|
If TextBox3.Text = "" Or TextBox3.Text = " " Or TextBox3.Text = " " Or TextBox3.Text = "recherche ici:" Then
|
|
TextBox3.Text = "recherche ici:"
|
|
Timer7.Start()
|
|
Else
|
|
Try
|
|
ListBox3.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/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)
|
|
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
|
|
Timer17.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
|
|
Timer17.Stop()
|
|
If ListBox3.Items.Count = 0 Then
|
|
TextBox3.Text = "recherche ici:"
|
|
MsgBox("aucun fichier ISO trouvez", MsgBoxStyle.Information)
|
|
Timer7.Start()
|
|
Else
|
|
If TextBox3.Text = "" Or TextBox3.Text = " " Or TextBox3.Text = " " Or TextBox3.Text = "recherche ici:" Then
|
|
TextBox3.Text = "recherche ici:"
|
|
Timer7.Start()
|
|
Else
|
|
Try
|
|
ListBox3.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/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)
|
|
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
|
|
Timer17.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
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 Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
|
|
Timer18.Stop()
|
|
If ListBox9.Items.Count = 0 Then
|
|
TextBox9.Text = "recherche ici:"
|
|
MsgBox("aucun fichier trouvez", MsgBoxStyle.Information)
|
|
Timer9.Start()
|
|
Else
|
|
If TextBox9.Text = "" Or TextBox9.Text = " " Or TextBox9.Text = " " Or TextBox9.Text = "recherche ici:" Then
|
|
TextBox9.Text = "recherche ici:"
|
|
Timer9.Start()
|
|
Else
|
|
Try
|
|
ListBox9.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Autre/")
|
|
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 & TextBox9.Text) = True Then
|
|
ListBox9.Items.Add(TextBox9.Text)
|
|
TextBox9.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le fichier: " & TextBox9.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
|
|
Timer18.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox9_Click(sender As Object, e As EventArgs) Handles TextBox9.Click
|
|
TextBox9.Clear()
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
|
|
Try
|
|
ListBox10.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.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
|
|
|
|
ListBox10.Items.Add(str)
|
|
ListBox10.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox10.Items.Count = 0 Then
|
|
Label11.Show()
|
|
Else
|
|
Label11.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer19.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
|
|
Timer19.Stop()
|
|
Try
|
|
ListBox10.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.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
|
|
|
|
ListBox10.Items.Add(str)
|
|
ListBox10.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox10.Items.Count = 0 Then
|
|
Label11.Show()
|
|
Else
|
|
Label11.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer19.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox8_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedValueChanged
|
|
Try
|
|
ListBox11.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.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
|
|
|
|
ListBox11.Items.Add(str)
|
|
ListBox11.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox11.Items.Count = 0 Then
|
|
Label12.Show()
|
|
Else
|
|
Label12.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer20.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
|
|
Timer20.Stop()
|
|
Try
|
|
ListBox11.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.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
|
|
|
|
ListBox11.Items.Add(str)
|
|
ListBox11.Items.Add("")
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox11.Items.Count = 0 Then
|
|
Label12.Show()
|
|
Else
|
|
Label12.Hide()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer20.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox18_Click(sender As Object, e As EventArgs) Handles PictureBox18.Click
|
|
If ListBox10.Items.Count = 0 Then
|
|
TextBox10.Text = "recherche ici:"
|
|
MsgBox("aucun pack de texture trouvez", MsgBoxStyle.Information)
|
|
Timer19.Start()
|
|
Else
|
|
If TextBox10.Text = "" Or TextBox10.Text = " " Or TextBox10.Text = " " Or TextBox10.Text = "recherche ici:" Then
|
|
TextBox10.Text = "recherche ici:"
|
|
Timer19.Start()
|
|
Else
|
|
Try
|
|
ListBox10.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.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 & TextBox10.Text) = True Then
|
|
ListBox10.Items.Add(TextBox10.Text)
|
|
TextBox10.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le pack de texture: " & TextBox10.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer19.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
|
|
Timer21.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
|
|
Timer21.Stop()
|
|
If ListBox10.Items.Count = 0 Then
|
|
TextBox10.Text = "recherche ici:"
|
|
MsgBox("aucun pack de texture trouvez", MsgBoxStyle.Information)
|
|
Timer19.Start()
|
|
Else
|
|
If TextBox10.Text = "" Or TextBox10.Text = " " Or TextBox10.Text = " " Or TextBox10.Text = "recherche ici:" Then
|
|
TextBox10.Text = "recherche ici:"
|
|
Timer19.Start()
|
|
Else
|
|
Try
|
|
ListBox10.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.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 & TextBox10.Text) = True Then
|
|
ListBox10.Items.Add(TextBox10.Text)
|
|
TextBox10.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le pack de texture: " & TextBox10.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer19.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
|
|
Timer21.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox19_Click(sender As Object, e As EventArgs) Handles PictureBox19.Click
|
|
If ListBox11.Items.Count = 0 Then
|
|
TextBox11.Text = "recherche ici:"
|
|
MsgBox("aucun shaders trouvez", MsgBoxStyle.Information)
|
|
Timer20.Start()
|
|
Else
|
|
If TextBox11.Text = "" Or TextBox11.Text = " " Or TextBox11.Text = " " Or TextBox11.Text = "recherche ici:" Then
|
|
TextBox11.Text = "recherche ici:"
|
|
Timer20.Start()
|
|
Else
|
|
Try
|
|
ListBox11.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/shaders/" & ComboBox1.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 & TextBox11.Text) = True Then
|
|
ListBox11.Items.Add(TextBox11.Text)
|
|
TextBox11.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le shaders: " & TextBox11.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer20.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
|
|
Timer22.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
|
|
Timer22.Stop()
|
|
If ListBox11.Items.Count = 0 Then
|
|
TextBox11.Text = "recherche ici:"
|
|
MsgBox("aucun shaders trouvez", MsgBoxStyle.Information)
|
|
Timer20.Start()
|
|
Else
|
|
If TextBox11.Text = "" Or TextBox11.Text = " " Or TextBox11.Text = " " Or TextBox11.Text = "recherche ici:" Then
|
|
TextBox11.Text = "recherche ici:"
|
|
Timer20.Start()
|
|
Else
|
|
Try
|
|
ListBox11.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "Communautaire/Jeux/Minecraft/shaders/" & ComboBox1.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 & TextBox11.Text) = True Then
|
|
ListBox11.Items.Add(TextBox11.Text)
|
|
TextBox11.Text = "recherche ici:"
|
|
Else
|
|
MsgBox("Le shaders: " & TextBox11.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer20.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
|
|
Timer22.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox10_Click(sender As Object, e As EventArgs) Handles TextBox10.Click
|
|
TextBox10.Clear()
|
|
End Sub
|
|
|
|
Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles TextBox11.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox11_Click(sender As Object, e As EventArgs) Handles TextBox11.Click
|
|
TextBox11.Clear()
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
Form29.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub ListBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedValueChanged
|
|
If ListBox1.SelectedItem = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox1.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image du logiciel"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox1.SelectedItem
|
|
vérifilike()
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox1.SelectedItem
|
|
vérifilike()
|
|
Else
|
|
vérifiachat()
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Sub vérifiachat()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/logiciels/" & ListBox1.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox1.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox1.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifilike()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/logiciels/" & ListBox1.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/logiciels/" & ListBox1.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
|
|
Timer23.Stop()
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/level.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
If vri1 = 0 And vri2 >= 50 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(1)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 1"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 1."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 1 And vri2 >= 100 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(2)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 2"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 2."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 2 And vri2 >= 200 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(3)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 3"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 3."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 3 And vri2 >= 400 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(4)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 4"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 4."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 4 And vri2 >= 800 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(5)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
|
|
Dim upmoney = vri3 + 2
|
|
Dim sw2 As New StreamWriter(dostemps & "money.txt")
|
|
sw2.WriteLine(upmoney)
|
|
sw2.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 5"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 5," & vbNewLine & vbNewLine & "vous avez ganner 2PB's."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 5 And vri2 >= 1600 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(6)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 6"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 6."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 6 And vri2 >= 3200 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(7)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 7"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 7."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 7 And vri2 >= 6400 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(8)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 8"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 8."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 8 And vri2 >= 12800 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(9)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 9"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 9."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 9 And vri2 >= 25600 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(10)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
|
|
Dim upmoney = vri3 + 5
|
|
Dim sw2 As New StreamWriter(dostemps & "money.txt")
|
|
sw2.WriteLine(upmoney)
|
|
sw2.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 10"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 10," & vbNewLine & vbNewLine & "vous avez ganner 5PB's."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 10 And vri2 >= 51200 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(11)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 11"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 11."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 11 And vri2 >= 102400 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(12)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 12"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 12."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 12 And vri2 >= 204800 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(13)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 13"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 13."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 13 And vri2 >= 409600 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(14)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 14"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 14."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 14 And vri2 >= 819200 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(15)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 15"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 15."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 15 And vri2 >= 1638400 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(16)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 16"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 16."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 16 And vri2 >= 3276800 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(17)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 17"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 17."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 17 And vri2 >= 6553600 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(18)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 18"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 18."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 18 And vri2 >= 13107200 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(19)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 19"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 19."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
ElseIf vri1 = 19 And vri2 >= 26214400 Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(20)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
|
|
Dim upmoney = vri3 + 15
|
|
Dim sw2 As New StreamWriter(dostemps & "money.txt")
|
|
sw2.WriteLine(upmoney)
|
|
sw2.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "Niveaux 20"
|
|
Form1.NotifyIcon1.BalloonTipText = "Félicitation vous êtes passez au niveaux 20," & vbNewLine & vbNewLine & "vous avez ganner 15PB's."
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
End If
|
|
Timer23.Start()
|
|
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
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox2.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image du Jeux"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox2.SelectedItem
|
|
vérifilike2()
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox2.SelectedItem
|
|
vérifilike2()
|
|
Else
|
|
vérifiachat2()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub vérifilike2()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat2()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox2.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Tout les jeux/" & ListBox2.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox2.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike2()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
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
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox4.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image du mods"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox4.SelectedItem
|
|
vérifilike3()
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox4.SelectedItem
|
|
vérifilike3()
|
|
Else
|
|
vérifiachat3()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub vérifilike3()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat3()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox4.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Mods/" & ComboBox4.SelectedItem & "/" & ListBox4.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox4.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike3()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
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
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox5.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image de la maps"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox5.SelectedItem
|
|
vérifilike4()
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox5.SelectedItem
|
|
vérifilike4()
|
|
Else
|
|
vérifiachat4()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub vérifilike4()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat4()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox5.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Plugins/" & ComboBox5.SelectedItem & "/" & ListBox5.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox5.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike4()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
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
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox6.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image de la map"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox6.SelectedItem
|
|
vérifilike5()
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox6.SelectedItem
|
|
vérifilike5()
|
|
Else
|
|
vérifiachat5()
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
Sub vérifilike5()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat5()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox6.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Maps/" & ComboBox6.SelectedItem & "/" & ListBox6.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox6.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike5()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Private Sub ListBox8_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox8.SelectedValueChanged
|
|
If ListBox8.SelectedItem = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox8.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image du Jeux"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox8.SelectedItem
|
|
vérifilike6
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox8.SelectedItem
|
|
vérifilike6
|
|
Else
|
|
vérifiachat6()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub vérifilike6()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat6()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox8.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/Launchers/" & ListBox8.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox8.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike6()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
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
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox7.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image du serveur"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox7.SelectedItem
|
|
vérifilike7
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox7.SelectedItem
|
|
vérifilike7
|
|
Else
|
|
vérifiachat7
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub vérifilike7()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat7()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox7.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/serveur préfaits/" & ComboBox7.SelectedItem & "/" & ListBox7.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox7.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike7()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ListBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox10.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox10_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox10.SelectedValueChanged
|
|
If ListBox10.SelectedItem = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox10.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image du pack de texture"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox10.SelectedItem
|
|
vérifilike8
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox10.SelectedItem
|
|
vérifilike8
|
|
Else
|
|
vérifiachat8
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub vérifilike8()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat8()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox10.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/pack de texture/" & ComboBox1.SelectedItem & "/" & ListBox10.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox10.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike8()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ListBox11_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox11.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox11_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox11.SelectedValueChanged
|
|
If ListBox11.SelectedItem = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox11.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image du shaders"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox11.SelectedItem
|
|
vérifilike9
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox11.SelectedItem
|
|
vérifilike9
|
|
Else
|
|
vérifiachat9
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub vérifilike9()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat9()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox11.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Jeux/Minecraft/shaders/" & ComboBox8.SelectedItem & "/" & ListBox11.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox11.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike9()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ListBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox3_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox3.SelectedValueChanged
|
|
If ListBox3.SelectedItem = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox3.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image du ISO"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox3.SelectedItem
|
|
vérifilike10
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox3.SelectedItem
|
|
vérifilike10
|
|
Else
|
|
vérifiachat10
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub vérifilike10()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat10()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox3.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/ISO/" & ComboBox3.SelectedItem & "/" & ListBox3.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox3.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike10()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ListBox9_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox9.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ListBox9_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox9.SelectedValueChanged
|
|
If ListBox9.SelectedItem = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/auteur.txt")
|
|
Form32.Label3.Text = "Publier par: " & vri
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/auteur.txt", dostemps & "auteur.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "auteur.txt")
|
|
Form32.nommisenligne = lines1(0)
|
|
File.Delete(dostemps & "auteur.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/info.txt")
|
|
Form32.TextBox1.Text = vri2
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/telechargement.txt")
|
|
Form32.Label4.Text = "Nombre de téléchargement: " & vri3
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/like.txt")
|
|
Form32.Label2.Text = vri4
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/logo.png", dostemps & "logo.png")
|
|
Form32.PictureBox2.Image = Image.FromFile(dostemps & "logo.png")
|
|
Dim maj5 As New WebClient
|
|
Dim vri5 As String = maj5.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/site.txt")
|
|
If vri5 = 0 Then
|
|
Form32.PictureBox4.Hide()
|
|
Else
|
|
Dim maj8 As New WebClient
|
|
Dim vri8 As String = maj8.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/site2.txt")
|
|
Form32.sitewebfichier = vri8
|
|
Form32.PictureBox4.Show()
|
|
End If
|
|
|
|
|
|
Form32.Text = ListBox9.SelectedItem
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/prix.txt")
|
|
|
|
Dim maj7 As New WebClient
|
|
Dim vri7 As String = maj7.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/image.txt")
|
|
If vri7 = 0 Then
|
|
Form32.Button1.Hide()
|
|
Else
|
|
Form32.Button1.Show()
|
|
Form32.Button1.Text = "image du fichier"
|
|
|
|
End If
|
|
|
|
If nomutilisateur = Form32.nommisenligne Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox9.SelectedItem
|
|
vérifilike11
|
|
Else
|
|
If vri6 = 0 Then
|
|
Form32.Label1.Text = "Télécharcher: " & ListBox9.SelectedItem
|
|
vérifilike11
|
|
Else
|
|
vérifiachat11
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub vérifilike11()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Autre/" & ListBox9.SelectedItem & "/like/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.PictureBox6.Show()
|
|
Form32.PictureBox5.Hide()
|
|
Else
|
|
Form32.PictureBox6.Hide()
|
|
Form32.PictureBox5.Show()
|
|
|
|
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
|
|
|
|
Form32.urldl = ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString
|
|
Form32.upurl = ipserver & "/Communautaire/Autre/" & ListBox9.SelectedItem.ToString
|
|
Form32.ShowDialog()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub vérifiachat11()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Communautaire/Autre/" & ListBox9.SelectedItem & "/achat/")
|
|
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 & nomutilisateur) = True Then
|
|
Form32.Label1.Text = "télécharcher: " & ListBox9.SelectedItem
|
|
Else
|
|
Dim maj6 As New WebClient
|
|
Dim vri6 As String = maj6.DownloadString(ipsite & "extrème downloaders/Communautaire/Autre/" & ListBox9.SelectedItem.ToString & "/prix.txt")
|
|
Form32.prix = vri6
|
|
Form32.Label1.Text = "acheter: " & ListBox9.SelectedItem & " pour " & vri6 & "PBs "
|
|
Form32.Button2.Enabled = False
|
|
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
|
|
|
|
vérifilike11()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
|
|
Form29.ShowDialog()
|
|
End Sub
|
|
Private Sub Panel3_Click(sender As Object, e As EventArgs) Handles Panel3.Click
|
|
Form29.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Label15_Click(sender As Object, e As EventArgs) Handles Label15.Click
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
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
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label16_Click(sender As Object, e As EventArgs) Handles Label16.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub Panel10_Paint(sender As Object, e As PaintEventArgs) Handles Panel10.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel10_Click(sender As Object, e As EventArgs) Handles Panel10.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click
|
|
Form2.Location = Me.Location
|
|
Form2.startpara = 2
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label13_Click(sender As Object, e As EventArgs) Handles Label13.Click
|
|
Form40.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox20_Click(sender As Object, e As EventArgs) Handles PictureBox20.Click
|
|
Form40.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Panel5_Paint(sender As Object, e As PaintEventArgs) Handles Panel5.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel5_Click(sender As Object, e As EventArgs) Handles Panel5.Click
|
|
Form40.ShowDialog()
|
|
End Sub
|
|
End Class |