34 lines
1.7 KiB
VB.net
34 lines
1.7 KiB
VB.net
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 |