Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Security.Policy

Public Class Form34
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click, Label5.Click, Label4.Click, Label3.Click, Label2.Click

    End Sub

    Private Sub Form34_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Text = "A propos de " & Form32.nommisenligne
        Label5.Text = "A propos de " & Form32.nommisenligne
        My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & Form32.nommisenligne & "/photo.png", dostemps & "photo.png")
        PictureBox1.Image = Image.FromFile(dostemps & "photo.png")
        Dim maj1 As New WebClient
        Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/utilisateur/" & Form32.nommisenligne & "/XP.txt")
        Label1.Text = "Nombre de XP: " & vri1
        Dim maj2 As New WebClient
        Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/utilisateur/" & Form32.nommisenligne & "/money.txt")
        Label2.Text = "Nombre de PB'S: " & vri2
        Dim maj3 As New WebClient
        Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/utilisateur/" & Form32.nommisenligne & "/level.txt")
        Label3.Text = "Nombre de niveaux: " & vri3
        Dim maj4 As New WebClient
        Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/utilisateur/" & Form32.nommisenligne & "/up.txt")
        Label4.Text = "Nombre de fichier en ligne: " & vri4
    End Sub

    Private Sub Form34_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        PictureBox1.Image.Dispose()
        File.Delete(dostemps & "photo.png")
    End Sub
End Class