112 lines
4.5 KiB
VB.net
112 lines
4.5 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class Form196
|
|
Dim closea As Integer = 0
|
|
Private Sub Form196_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim lines1a() As String = File.ReadAllLines(théme)
|
|
|
|
If lines1a(0) = 2 Then
|
|
Me.BackColor = Color.FromArgb(64, 64, 64)
|
|
Label1.BackColor = Color.FromArgb(64, 64, 64)
|
|
GunaCirclePictureBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
TextBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
|
Label1.ForeColor = Color.White
|
|
TextBox1.ForeColor = Color.White
|
|
Button1.ForeColor = Color.White
|
|
ElseIf lines1a(0) = 3 Then
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
GunaCirclePictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
End If
|
|
|
|
Try
|
|
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
|
Dim lines2() As String = File.ReadAllLines(compteco)
|
|
If lines1(0) = 1 Then
|
|
TextBox1.Text = lines2(0)
|
|
dlimage()
|
|
Else
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
Button1.Focus()
|
|
End Sub
|
|
|
|
Private Sub Form196_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
If closea = 0 Then
|
|
Directory.Delete(dosprofils)
|
|
File.Delete(profils)
|
|
End
|
|
Else
|
|
Process.Start(Application.StartupPath & "/rememarage.exe")
|
|
End
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GunaCirclePictureBox1_Click(sender As Object, e As EventArgs) Handles GunaCirclePictureBox1.Click
|
|
If OpenFileDialog1.ShowDialog = 1 Then
|
|
GunaCirclePictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
|
|
End If
|
|
End Sub
|
|
Sub dlimage()
|
|
Try
|
|
If My.Computer.Network.Ping("www.google.com") = True Then
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
|
|
If vri = 1 Then
|
|
|
|
Else
|
|
dlimage2()
|
|
End If
|
|
Else
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Sub dlimage2()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox1.Text & "/photo.png", cozip & "photo.png")
|
|
GunaCirclePictureBox1.Image = Image.FromFile(cozip & "photo.png")
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Timer1.Stop()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox1.Text & "/photo.png", cozip & "photo.png")
|
|
GunaCirclePictureBox1.Image = Image.FromFile(cozip & "photo.png")
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Try
|
|
Directory.CreateDirectory(dosprofils & "/" & TextBox1.Text & "/")
|
|
Dim sw1 As New StreamWriter(dosprofils & "/" & TextBox1.Text & "/" & "default.txt")
|
|
sw1.WriteLine(1)
|
|
sw1.Close()
|
|
GunaCirclePictureBox1.Image.Save(dosprofils & "/" & TextBox1.Text & "/" & "photo.png")
|
|
GunaCirclePictureBox1.Image.Dispose()
|
|
closea = 1
|
|
Close()
|
|
Catch ex As Exception
|
|
MsgBox("Des caractère interdit son de votre nom", MsgBoxStyle.Exclamation)
|
|
End Try
|
|
End Sub
|
|
End Class |