first commit
This commit is contained in:
@@ -0,0 +1,405 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
|
||||
Public Class Form42
|
||||
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Form42_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Dim maj1 As New WebClient
|
||||
Dim vri1 As String = maj1.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server%20temps.txt")
|
||||
If vri1 = 1 Then
|
||||
Label4.Text = "acctivez"
|
||||
Label12.Text = "acctivez"
|
||||
Else
|
||||
Label4.Text = "désacctivez"
|
||||
Label12.Text = "désacctivez"
|
||||
End If
|
||||
Dim maj2 As New WebClient
|
||||
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/jour.txt")
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj2.DownloadString(ipsite & "extrème downloaders/moins.txt")
|
||||
Label6.Text = vri2 & "/" & vri3
|
||||
Label15.Text = vri2 & "/" & vri3
|
||||
Dim maj4 As New WebClient
|
||||
Dim vri4 As String = maj4.DownloadString("http://logiciels2.extreme-downloaders.fr/extr%c3%a8me%20downloaders/version.txt")
|
||||
Label8.Text = vri4
|
||||
|
||||
Try
|
||||
ListBox1.Items.Clear()
|
||||
Dim fwr As FtpWebRequest
|
||||
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/")
|
||||
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)
|
||||
|
||||
str = sr.ReadLine()
|
||||
|
||||
End While
|
||||
|
||||
|
||||
sr.Close()
|
||||
|
||||
Label2.Text = ListBox1.Items.Count
|
||||
|
||||
Timer3.Start()
|
||||
|
||||
|
||||
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 & "/utilisateur/")
|
||||
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)
|
||||
|
||||
str = sr.ReadLine()
|
||||
|
||||
End While
|
||||
|
||||
|
||||
sr.Close()
|
||||
|
||||
Label2.Text = ListBox1.Items.Count
|
||||
|
||||
Timer2.Start()
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Timer1.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
Timer2.Stop()
|
||||
Dim maj1 As New WebClient
|
||||
Dim vri1 As String = maj1.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server%20temps.txt")
|
||||
If vri1 = 1 Then
|
||||
Label4.Text = "acctivez"
|
||||
Label12.Text = "acctivez"
|
||||
Else
|
||||
Label4.Text = "désacctivez"
|
||||
Label12.Text = "désacctivez"
|
||||
End If
|
||||
Dim maj2 As New WebClient
|
||||
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/jour.txt")
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj2.DownloadString(ipsite & "extrème downloaders/moins.txt")
|
||||
Label6.Text = vri2 & "/" & vri3
|
||||
Label15.Text = vri2 & "/" & vri3
|
||||
Dim maj4 As New WebClient
|
||||
Dim vri4 As String = maj4.DownloadString("http://logiciels2.extreme-downloaders.fr/extr%c3%a8me%20downloaders/version.txt")
|
||||
Label8.Text = vri4
|
||||
|
||||
Try
|
||||
ListBox1.Items.Clear()
|
||||
Dim fwr As FtpWebRequest
|
||||
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/")
|
||||
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)
|
||||
|
||||
str = sr.ReadLine()
|
||||
|
||||
End While
|
||||
|
||||
|
||||
sr.Close()
|
||||
|
||||
Label2.Text = ListBox1.Items.Count
|
||||
|
||||
Timer2.Start()
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Timer1.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Panel5_Click(sender As Object, e As EventArgs) Handles Panel5.Click
|
||||
Form40.ShowDialog()
|
||||
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 Panel3_Click(sender As Object, e As EventArgs) Handles Panel3.Click
|
||||
Try
|
||||
Form7.ShowDialog()
|
||||
|
||||
Catch ex As Exception
|
||||
Form7.Close()
|
||||
Form7.ShowDialog()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click
|
||||
Try
|
||||
Form7.ShowDialog()
|
||||
|
||||
Catch ex As Exception
|
||||
Form7.Close()
|
||||
Form7.ShowDialog()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
||||
Try
|
||||
Form7.ShowDialog()
|
||||
|
||||
Catch ex As Exception
|
||||
Form7.Close()
|
||||
Form7.ShowDialog()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click
|
||||
Form29.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Panel3_Paint(sender As Object, e As PaintEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Panel5_Paint(sender As Object, e As PaintEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Form6.Timer1.Stop()
|
||||
Dim sw1 As New StreamWriter(dostemps & "server temps.txt")
|
||||
sw1.WriteLine(1)
|
||||
sw1.Close()
|
||||
Dim ipserveur2 As String = "ftp://extre1948521:Jjamsms77176!@185.135.132.49:21/"
|
||||
My.Computer.Network.UploadFile(dostemps & "server temps.txt", ipserveur2 & "extreme downloaders/server temps.txt")
|
||||
File.Delete(dostemps & "server temps.txt")
|
||||
Dim maj1 As New WebClient
|
||||
Dim vri1 As String = maj1.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server temps.txt")
|
||||
If vri1 = 1 Then
|
||||
Label4.Text = "acctivez"
|
||||
Label12.Text = "acctivez"
|
||||
Else
|
||||
Label4.Text = "désacctivez"
|
||||
Label12.Text = "désacctivez"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Dim sw1 As New StreamWriter(dostemps & "server temps.txt")
|
||||
sw1.WriteLine(0)
|
||||
sw1.Close()
|
||||
Dim ipserveur2 As String = "ftp://extre1948521:Jjamsms77176!@185.135.132.49:21/"
|
||||
My.Computer.Network.UploadFile(dostemps & "server temps.txt", ipserveur2 & "extreme downloaders/server temps.txt")
|
||||
File.Delete(dostemps & "server temps.txt")
|
||||
Dim maj1 As New WebClient
|
||||
Dim vri1 As String = maj1.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server temps.txt")
|
||||
Form6.Timer1.Start()
|
||||
If vri1 = 1 Then
|
||||
Label4.Text = "acctivez"
|
||||
Label12.Text = "acctivez"
|
||||
Else
|
||||
Label4.Text = "désacctivez"
|
||||
Label12.Text = "désacctivez"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
If Button3.Text = "modifier" Then
|
||||
TextBox1.Show()
|
||||
TextBox2.Show()
|
||||
Label16.Show()
|
||||
Label17.Show()
|
||||
Button3.Text = "envoyer"
|
||||
ElseIf Button3.Text = "envoyer" Then
|
||||
If TextBox1.Text = "" Then
|
||||
MsgBox("merci d'enterer un jours", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
If TextBox2.Text = "" Then
|
||||
MsgBox("merci d'enterer un mois", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
Dim sw1 As New StreamWriter(dostemps & "jour.txt")
|
||||
sw1.WriteLine(TextBox1.Text)
|
||||
sw1.Close()
|
||||
Dim sw2 As New StreamWriter(dostemps & "moins.txt")
|
||||
sw2.WriteLine(TextBox2.Text)
|
||||
sw2.Close()
|
||||
My.Computer.Network.UploadFile(dostemps & "jour.txt", ipserver & "/jour.txt")
|
||||
My.Computer.Network.UploadFile(dostemps & "moins.txt", ipserver & "/moins.txt")
|
||||
File.Delete(dostemps & "jour.txt")
|
||||
File.Delete(dostemps & "moins.txt")
|
||||
Dim maj2 As New WebClient
|
||||
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/jour.txt")
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj2.DownloadString(ipsite & "extrème downloaders/moins.txt")
|
||||
Label6.Text = vri2 & "/" & vri3
|
||||
Label15.Text = vri2 & "/" & vri3
|
||||
TextBox1.Hide()
|
||||
TextBox2.Hide()
|
||||
Label16.Hide()
|
||||
Label17.Hide()
|
||||
TextBox1.Clear()
|
||||
TextBox2.Clear()
|
||||
Button3.Text = "modifier"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form42_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
TextBox1.Hide()
|
||||
TextBox2.Hide()
|
||||
Label16.Hide()
|
||||
Label17.Hide()
|
||||
TextBox1.Clear()
|
||||
TextBox2.Clear()
|
||||
ListBox1.Items.Clear()
|
||||
Button3.Text = "modifier"
|
||||
Dim sw1 As New StreamWriter(dostemps & "server temps.txt")
|
||||
sw1.WriteLine(0)
|
||||
sw1.Close()
|
||||
Dim ipserveur2 As String = "ftp://extre1948521:Jjamsms77176!@185.135.132.49:21/"
|
||||
My.Computer.Network.UploadFile(dostemps & "server temps.txt", ipserveur2 & "extreme downloaders/server temps.txt")
|
||||
File.Delete(dostemps & "server temps.txt")
|
||||
Form6.Timer1.Start()
|
||||
End Sub
|
||||
|
||||
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
||||
Timer3.Stop()
|
||||
Try
|
||||
ComboBox1.Items.Clear()
|
||||
Dim fwr As FtpWebRequest
|
||||
fwr = FtpWebRequest.Create(ipserver & "/utilisateur/")
|
||||
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
|
||||
|
||||
ComboBox1.Items.Add(str)
|
||||
|
||||
str = sr.ReadLine()
|
||||
|
||||
End While
|
||||
|
||||
|
||||
sr.Close()
|
||||
|
||||
ComboBox1.SelectedIndex = 0
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Timer3.Start()
|
||||
End Try
|
||||
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
|
||||
Dim maj1 As New WebClient
|
||||
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & ComboBox1.SelectedItem & "/XP.txt")
|
||||
Label18.Text = "compte de: " & ComboBox1.SelectedItem
|
||||
Label19.Text = "Nombre de XP: " & vri1
|
||||
Dim maj2 As New WebClient
|
||||
Dim vri2 As String = maj2.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & ComboBox1.SelectedItem & "/money.txt")
|
||||
Label20.Text = "money: " & vri2
|
||||
Dim maj3 As New WebClient
|
||||
Dim vri3 As String = maj3.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & ComboBox1.SelectedItem & "/level.txt")
|
||||
Label21.Text = "Nombre de niveaux: " & vri3
|
||||
Dim maj4 As New WebClient
|
||||
Dim vri4 As String = maj4.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & ComboBox1.SelectedItem & "/up.txt")
|
||||
Label22.Text = "Nombre de fichier en ligne: " & vri4
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
Form43.Text = "modifier: XP"
|
||||
Dim maj1 As New WebClient
|
||||
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & ComboBox1.SelectedItem & "/XP.txt")
|
||||
Form43.Label1.Text = "Nombre de XP: " & vri1
|
||||
Form43.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
Form43.Text = "modifier: money"
|
||||
Dim maj1 As New WebClient
|
||||
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & ComboBox1.SelectedItem & "/money.txt")
|
||||
Form43.Label1.Text = "money: " & vri1
|
||||
Form43.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
Form43.Text = "modifier: Niveaux"
|
||||
Dim maj1 As New WebClient
|
||||
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & ComboBox1.SelectedItem & "/level.txt")
|
||||
Form43.Label1.Text = "Niveaux: " & vri1
|
||||
Form43.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
Form43.Text = "modifier: Nombre de fichier en ligne"
|
||||
Dim maj1 As New WebClient
|
||||
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & ComboBox1.SelectedItem & "/up.txt")
|
||||
Form43.Label1.Text = "fichier en ligne: " & vri1
|
||||
Form43.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
|
||||
Dim desNumero() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
|
||||
If Not desNumero.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
|
||||
e.Handled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
|
||||
Form29.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
Form29.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
|
||||
Dim desNumero() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
|
||||
If Not desNumero.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
|
||||
e.Handled = True
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user