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