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