first commit
This commit is contained in:
@@ -0,0 +1,220 @@
|
||||
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
|
||||
Reference in New Issue
Block a user