220 lines
14 KiB
VB.net
220 lines
14 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class Form43
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If TextBox1.Text = "" Then
|
|
|
|
Else
|
|
|
|
If Text.Contains("XP") Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim numbre As Integer = TextBox1.Text
|
|
Dim XPup = lines1(0) + numbre
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(XPup)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/XP.txt")
|
|
Form42.Label19.Text = "Nombre de XP: " & vri1
|
|
MsgBox("vous venez d'ajjouter: " & TextBox1.Text & " XP a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
ElseIf Text.Contains("money") Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/money.txt", dostemps & "money.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim numbre As Integer = TextBox1.Text
|
|
Dim XPup = lines1(0) + numbre
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(XPup)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/money.txt")
|
|
Form42.Label20.Text = "money: " & vri1
|
|
MsgBox("vous venez d'ajjouter: " & TextBox1.Text & " PB's a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
ElseIf Text.Contains("Niveaux") Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/level.txt", dostemps & "level.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim numbre As Integer = TextBox1.Text
|
|
Dim XPup = lines1(0) + numbre
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(XPup)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/level.txt")
|
|
Form42.Label21.Text = "Nombre de niveaux: " & vri1
|
|
MsgBox("vous venez d'ajjouter: " & TextBox1.Text & " niveaux a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
ElseIf Text.Contains("fichier") Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/up.txt", dostemps & "up.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "up.txt")
|
|
File.Delete(dostemps & "up.txt")
|
|
Dim numbre As Integer = TextBox1.Text
|
|
Dim XPup = lines1(0) + numbre
|
|
Dim sw1 As New StreamWriter(dostemps & "up.txt")
|
|
sw1.WriteLine(XPup)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "up.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/up.txt")
|
|
File.Delete(dostemps & "up.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/up.txt")
|
|
Form42.Label22.Text = "Nombre de fichier en ligne: " & vri1
|
|
MsgBox("vous venez d'ajjouter: " & TextBox1.Text & " Nombre de fichier en ligne a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
If TextBox1.Text = "" Then
|
|
|
|
Else
|
|
|
|
If Text.Contains("XP") Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim numbre As Integer = TextBox1.Text
|
|
Dim XPup = lines1(0) - numbre
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(XPup)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/XP.txt")
|
|
Form42.Label19.Text = "Nombre de XP: " & vri1
|
|
MsgBox("vous venez retirer: " & TextBox1.Text & " XP a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
ElseIf Text.Contains("money") Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/money.txt", dostemps & "money.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim numbre As Integer = TextBox1.Text
|
|
Dim XPup = lines1(0) - numbre
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(XPup)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/money.txt")
|
|
Form42.Label20.Text = "money: " & vri1
|
|
MsgBox("vous venez retirer: " & TextBox1.Text & " PB's a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
ElseIf Text.Contains("Niveaux") Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/level.txt", dostemps & "level.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim numbre As Integer = TextBox1.Text
|
|
Dim XPup = lines1(0) - numbre
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(XPup)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/level.txt")
|
|
Form42.Label21.Text = "Nombre de niveaux: " & vri1
|
|
MsgBox("vous venez retirer: " & TextBox1.Text & " Niveaux a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
ElseIf Text.Contains("fichier") Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/up.txt", dostemps & "up.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "up.txt")
|
|
File.Delete(dostemps & "up.txt")
|
|
Dim numbre As Integer = TextBox1.Text
|
|
Dim XPup = lines1(0) - numbre
|
|
Dim sw1 As New StreamWriter(dostemps & "up.txt")
|
|
sw1.WriteLine(XPup)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "up.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/up.txt")
|
|
File.Delete(dostemps & "up.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/up.txt")
|
|
Form42.Label22.Text = "Nombre de fichier en ligne: " & vri1
|
|
MsgBox("vous venez retirer: " & TextBox1.Text & " Nombre de fichier en ligne a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
If TextBox1.Text = "" Then
|
|
|
|
Else
|
|
|
|
If Text.Contains("XP") Then
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(TextBox1.Text)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/XP.txt")
|
|
Form42.Label19.Text = "Nombre de XP: " & vri1
|
|
MsgBox("vous venez d'égaliser: " & TextBox1.Text & " XP a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
ElseIf Text.Contains("money") Then
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(TextBox1.Text)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/money.txt")
|
|
Form42.Label20.Text = "money: " & vri1
|
|
MsgBox("vous venez d'égaliser: " & TextBox1.Text & " PB's a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
ElseIf Text.Contains("Niveaux") Then
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(TextBox1.Text)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/level.txt")
|
|
Form42.Label21.Text = "Nombre de niveaux: " & vri1
|
|
MsgBox("vous venez d'égaliser: " & TextBox1.Text & " Niveaux a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
ElseIf Text.Contains("fichier") Then
|
|
Dim sw1 As New StreamWriter(dostemps & "up.txt")
|
|
sw1.WriteLine(TextBox1.Text)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "up.txt", ipserver & "/utilisateur/" & Form42.ComboBox1.SelectedItem & "/up.txt")
|
|
File.Delete(dostemps & "up.txt")
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & Form42.ComboBox1.SelectedItem & "/up.txt")
|
|
Form42.Label22.Text = "Nombre de fichier en ligne: " & vri1
|
|
MsgBox("vous venez d'égaliser: " & TextBox1.Text & " Nombre de fichier en ligne a " & Form42.ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
Close()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form43_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub Form43_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
TextBox1.Clear()
|
|
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
|
|
End Class |