first commit

Form34.vb

@@ -0,0 +1,34 @@
+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