944 lines
47 KiB
VB.net
944 lines
47 KiB
VB.net
Imports System.Net
|
|
Imports System.IO
|
|
|
|
Public Class Form38
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 1 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "01.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 10))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "01.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " XP")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " XP"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 01 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 2 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "02.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 10))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "02.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " XP")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " XP"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 02 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 3 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "03.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 10))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "03.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " XP")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " XP"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 03 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 4 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "04.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 10))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "04.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " XP")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " XP"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 04 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 5 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "05.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 10))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "05.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " XP")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " XP"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 05 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 6 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "06.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "06.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 06 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 7 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "07.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "07.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 07 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 8 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "08.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "08.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 08 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 9 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "09.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "09.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 09 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 10 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "10.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "10.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 10 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 11 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "11.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "11.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 11 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 12 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "12.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "12.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 12 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox13_Click(sender As Object, e As EventArgs) Handles PictureBox13.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 13 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "13.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "13.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 13 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox14_Click(sender As Object, e As EventArgs) Handles PictureBox14.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 14 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "14.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "14.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 14 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox15_Click(sender As Object, e As EventArgs) Handles PictureBox15.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 15 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "15.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(1, 5))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "15.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 15 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox16_Click(sender As Object, e As EventArgs) Handles PictureBox16.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 16 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "16.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(30, 50))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "16.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " XP")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " XP"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 16 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox17_Click(sender As Object, e As EventArgs) Handles PictureBox17.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 17 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "17.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(30, 50))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "17.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " XP")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " XP"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 17 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox18_Click(sender As Object, e As EventArgs) Handles PictureBox18.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 18 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "18.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(30, 50))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "18.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " XP")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " XP"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 18 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox19_Click(sender As Object, e As EventArgs) Handles PictureBox19.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 19 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "19.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(5, 8))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "19.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 19 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox20_Click(sender As Object, e As EventArgs) Handles PictureBox20.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 20 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "20.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(5, 8))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "20.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 20 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox21_Click(sender As Object, e As EventArgs) Handles PictureBox21.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 21 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "21.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(5, 8))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "21.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 21 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox22_Click(sender As Object, e As EventArgs) Handles PictureBox22.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 22 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "22.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(5, 8))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt", dostemps & "money.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "money.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "/utilisateur/" & nomutilisateur & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "22.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " PB's")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " PB's"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 22 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox23_Click(sender As Object, e As EventArgs) Handles PictureBox23.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 23 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "23.txt")
|
|
If lines(0) = 0 Then
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
NumRandom = (Rand.Next(50, 70))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt", dostemps & "XP.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + NumRandom
|
|
Dim sw1 As New StreamWriter(dostemps & "XP.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "23.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine(NumRandom & " XP")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = NumRandom & " XP"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 23 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox24_Click(sender As Object, e As EventArgs) Handles PictureBox24.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 24 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "24.txt")
|
|
If lines(0) = 0 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/level.txt", dostemps & "level.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + 1
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "24.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine("1" & " niveau")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = "1" & " niveau"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 24 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox25_Click(sender As Object, e As EventArgs) Handles PictureBox25.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 >= 25 Then
|
|
Dim lines() As String = File.ReadAllLines(dosrepertoire & "\calandar\" & "25.txt")
|
|
If lines(0) = 0 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/level.txt", dostemps & "level.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim vri2 = lines2(0)
|
|
Dim upxp = vri2 + 2
|
|
Dim sw1 As New StreamWriter(dostemps & "level.txt")
|
|
sw1.WriteLine(upxp)
|
|
sw1.Close()
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "/utilisateur/" & nomutilisateur & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "25.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.WriteLine("2" & " niveau")
|
|
sw2.Close()
|
|
Form39.Label1.Text = "vous avez gagné:"
|
|
Form39.Label2.Text = 2 & " niveau"
|
|
Form39.ShowDialog()
|
|
Else
|
|
Form39.Label1.Text = "vous avez déja gagné:"
|
|
Form39.Label2.Text = lines(1)
|
|
Form39.ShowDialog()
|
|
End If
|
|
Else
|
|
MsgBox("Merci d'attendre le 25 décembre", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
End Class |