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