1075 lines
41 KiB
VB.net
1075 lines
41 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
Imports System.Security.Cryptography
|
|
Imports System.Text
|
|
|
|
Public Class Form1
|
|
Dim ac As Integer = 0
|
|
Public misdlfini = 0
|
|
Public misdl = 0
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
If ac = 0 Then
|
|
|
|
Else
|
|
If Panel1.Visible = True Then
|
|
PictureBox1.Image = My.Resources._588a6507d06f6719692ezezea2d15
|
|
Panel1.Hide()
|
|
Panel2.BackColor = Color.FromArgb(32, 32, 32)
|
|
Else
|
|
PictureBox1.Image = My.Resources._588a6507d06f6719692a2d15
|
|
Panel1.Show()
|
|
Panel2.BackColor = Color.FromArgb(64, 64, 64)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Panel6_Click(sender As Object, e As EventArgs) Handles Panel6.Click
|
|
Process.Start("https://discord.gg/9hqE5zEfvb")
|
|
End Sub
|
|
|
|
Private Sub Panel5_Click(sender As Object, e As EventArgs) Handles Panel5.Click
|
|
Process.Start("https://www.extreme-downloaders.fr")
|
|
End Sub
|
|
|
|
Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click
|
|
Process.Start("https://discord.gg/9hqE5zEfvb")
|
|
End Sub
|
|
|
|
Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
|
|
Process.Start("https://discord.gg/9hqE5zEfvb")
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
|
Process.Start("https://discord.gg/9hqE5zEfvb")
|
|
End Sub
|
|
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
Try
|
|
If My.Computer.Network.Ping("www.google.com") Then
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "/extrème downloaders/moins.txt")
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "/extrème downloaders/jour.txt")
|
|
If vri1 = 12 Then
|
|
PictureBox12.Show()
|
|
If Directory.Exists(dosrepertoire & "\calandar\") = False Then
|
|
Directory.CreateDirectory(dosrepertoire & "\calandar\")
|
|
Dim sw1 As New StreamWriter(dosrepertoire & "\calandar\" & "01.txt")
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(dosrepertoire & "\calandar\" & "02.txt")
|
|
sw2.WriteLine(0)
|
|
sw2.Close()
|
|
Dim sw3 As New StreamWriter(dosrepertoire & "\calandar\" & "03.txt")
|
|
sw3.WriteLine(0)
|
|
sw3.Close()
|
|
Dim sw4 As New StreamWriter(dosrepertoire & "\calandar\" & "04.txt")
|
|
sw4.WriteLine(0)
|
|
sw4.Close()
|
|
Dim sw5 As New StreamWriter(dosrepertoire & "\calandar\" & "05.txt")
|
|
sw5.WriteLine(0)
|
|
sw5.Close()
|
|
Dim sw6 As New StreamWriter(dosrepertoire & "\calandar\" & "06.txt")
|
|
sw6.WriteLine(0)
|
|
sw6.Close()
|
|
Dim sw7 As New StreamWriter(dosrepertoire & "\calandar\" & "07.txt")
|
|
sw7.WriteLine(0)
|
|
sw7.Close()
|
|
Dim sw8 As New StreamWriter(dosrepertoire & "\calandar\" & "08.txt")
|
|
sw8.WriteLine(0)
|
|
sw8.Close()
|
|
Dim sw9 As New StreamWriter(dosrepertoire & "\calandar\" & "09.txt")
|
|
sw9.WriteLine(0)
|
|
sw9.Close()
|
|
Dim sw10 As New StreamWriter(dosrepertoire & "\calandar\" & "10.txt")
|
|
sw10.WriteLine(0)
|
|
sw10.Close()
|
|
Dim sw11 As New StreamWriter(dosrepertoire & "\calandar\" & "11.txt")
|
|
sw11.WriteLine(0)
|
|
sw11.Close()
|
|
Dim sw12 As New StreamWriter(dosrepertoire & "\calandar\" & "12.txt")
|
|
sw12.WriteLine(0)
|
|
sw12.Close()
|
|
Dim sw13 As New StreamWriter(dosrepertoire & "\calandar\" & "13.txt")
|
|
sw13.WriteLine(0)
|
|
sw13.Close()
|
|
Dim sw14 As New StreamWriter(dosrepertoire & "\calandar\" & "14.txt")
|
|
sw14.WriteLine(0)
|
|
sw14.Close()
|
|
Dim sw15 As New StreamWriter(dosrepertoire & "\calandar\" & "15.txt")
|
|
sw15.WriteLine(0)
|
|
sw15.Close()
|
|
Dim sw16 As New StreamWriter(dosrepertoire & "\calandar\" & "16.txt")
|
|
sw16.WriteLine(0)
|
|
sw16.Close()
|
|
Dim sw17 As New StreamWriter(dosrepertoire & "\calandar\" & "17.txt")
|
|
sw17.WriteLine(0)
|
|
sw17.Close()
|
|
Dim sw18 As New StreamWriter(dosrepertoire & "\calandar\" & "18.txt")
|
|
sw18.WriteLine(0)
|
|
sw18.Close()
|
|
Dim sw19 As New StreamWriter(dosrepertoire & "\calandar\" & "19.txt")
|
|
sw19.WriteLine(0)
|
|
sw19.Close()
|
|
Dim sw20 As New StreamWriter(dosrepertoire & "\calandar\" & "20.txt")
|
|
sw20.WriteLine(0)
|
|
sw20.Close()
|
|
Dim sw21 As New StreamWriter(dosrepertoire & "\calandar\" & "21.txt")
|
|
sw21.WriteLine(0)
|
|
sw21.Close()
|
|
Dim sw22 As New StreamWriter(dosrepertoire & "\calandar\" & "22.txt")
|
|
sw22.WriteLine(0)
|
|
sw22.Close()
|
|
Dim sw23 As New StreamWriter(dosrepertoire & "\calandar\" & "23.txt")
|
|
sw23.WriteLine(0)
|
|
sw23.Close()
|
|
Dim sw24 As New StreamWriter(dosrepertoire & "\calandar\" & "24.txt")
|
|
sw24.WriteLine(0)
|
|
sw24.Close()
|
|
Dim sw25 As New StreamWriter(dosrepertoire & "\calandar\" & "25.txt")
|
|
sw25.WriteLine(0)
|
|
sw25.Close()
|
|
End If
|
|
Else
|
|
PictureBox12.Hide()
|
|
If Directory.Exists(dosrepertoire & "\calandar\") = True Then
|
|
For Each fichier As String In IO.Directory.GetFiles(dosrepertoire & "\calandar\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dosrepertoire & "\calandar\" & info.Name)
|
|
Next
|
|
Directory.Delete(dosrepertoire & "\calandar\")
|
|
End If
|
|
End If
|
|
|
|
If vri1 = 1 And vri2 = 1 Then
|
|
If File.Exists(dosparamètre & "1janvier.txt") = True Then
|
|
|
|
Else
|
|
Dim sw1 As New StreamWriter(dosparamètre & "1janvier.txt")
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
Form45.ShowDialog()
|
|
|
|
End If
|
|
Else
|
|
If File.Exists(dosparamètre & "1janvier.txt") = True Then
|
|
File.Delete(dosparamètre & "1janvier.txt")
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("imposible de se connecter au serveur d'extrême downloaders", MsgBoxStyle.Critical)
|
|
End
|
|
End Try
|
|
|
|
|
|
Form6.Show()
|
|
|
|
If Directory.Exists(dosrepertoire) = False Then
|
|
Directory.CreateDirectory(dosrepertoire)
|
|
End If
|
|
|
|
If Directory.Exists(dostemps) = False Then
|
|
Directory.CreateDirectory(dostemps)
|
|
End If
|
|
|
|
If Directory.Exists(dosparamètre) = False Then
|
|
Directory.CreateDirectory(dosparamètre)
|
|
End If
|
|
|
|
If Directory.Exists(dosmisajour) = False Then
|
|
Directory.CreateDirectory(dosmisajour)
|
|
End If
|
|
|
|
Try
|
|
For Each fichier As String In IO.Directory.GetFiles(dosmisajour)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dosmisajour & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
|
|
If Directory.Exists(doscompte) = False Then
|
|
Directory.CreateDirectory(doscompte)
|
|
End If
|
|
|
|
If File.Exists(doscompte & "photo.png") = True Then
|
|
File.Delete(doscompte & "photo.png")
|
|
End If
|
|
|
|
If File.Exists(setting) = False Then
|
|
Dim sw1 As New StreamWriter(setting)
|
|
sw1.WriteLine(0)
|
|
sw1.WriteLine(1)
|
|
sw1.WriteLine(0)
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
End If
|
|
|
|
If File.Exists(setting2) = False Then
|
|
Dim sw1 As New StreamWriter(setting2)
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
End If
|
|
|
|
If File.Exists(setting3) = False Then
|
|
Dim sw1 As New StreamWriter(setting3)
|
|
sw1.WriteLine(1)
|
|
sw1.Close()
|
|
End If
|
|
|
|
Dim Resultatbytes() As Byte = Convert.FromBase64String("NOOZ3iewUOgTFUSQ6DG1Ug==")
|
|
Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
|
Dim Crypto As New DESCryptoServiceProvider()
|
|
Crypto.Key = keyBytes
|
|
Crypto.IV = keyBytes
|
|
Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
|
|
Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
|
|
Dim a7 = Encoding.UTF8.GetString(donné)
|
|
passftp = a7
|
|
ipserver = "ftp://extremedownloaders:" & passftp & "@logiciels.extreme-downloaders.fr:21/"
|
|
|
|
If dev = 1 Then
|
|
ipserver = "ftp://extremedownloaders:" & passftp & "@192.168.1.37:21/"
|
|
ipsite = "http://192.168.1.37:81/"
|
|
End If
|
|
|
|
If File.Exists(dosrepertoire & "\logo.png") = True Then
|
|
File.Delete(dosrepertoire & "\logo.png")
|
|
End If
|
|
|
|
If File.Exists(compte) = False Then
|
|
Dim sw1 As New StreamWriter(compte)
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
End If
|
|
|
|
Dim lines3() As String = File.ReadAllLines(setting)
|
|
If lines3(1) = 1 Then
|
|
Timer2.Start()
|
|
End If
|
|
|
|
Dim lines4() As String = File.ReadAllLines(setting2)
|
|
If lines4(0) = 1 Then
|
|
dldos = lines4(1)
|
|
End If
|
|
|
|
If File.Exists(startpage) = True Then
|
|
File.Delete(startpage)
|
|
Timer5.Start()
|
|
End If
|
|
|
|
|
|
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostemps & info.Name)
|
|
Next
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(doscompte)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(doscompte & info.Name)
|
|
Next
|
|
|
|
For Each fichier As String In IO.Directory.GetFiles(dosrepertoire)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dosrepertoire & info.Name)
|
|
Next
|
|
|
|
If File.Exists(connecter) = False Then
|
|
Dim sw1 As New StreamWriter(connecter)
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
Else
|
|
Dim lines1() As String = File.ReadAllLines(connecter)
|
|
If lines1(0) = 1 Then
|
|
Dim lines2() As String = File.ReadAllLines(compte)
|
|
nomutilisateur = lines2(0)
|
|
Label18.Text = nomutilisateur
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/admin.txt")
|
|
If vri4 = 1 Then
|
|
Panel15.Show()
|
|
Else
|
|
Panel15.Hide()
|
|
End If
|
|
loadco()
|
|
Else
|
|
Try
|
|
If My.Computer.Network.Ping("www.google.fr") = True Then
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("vous êtê pas connecter a internet, relancer Extrème Downloaders plus tard", MsgBoxStyle.Exclamation)
|
|
NotifyIcon1.Visible = False
|
|
End
|
|
End Try
|
|
Try
|
|
MsgBox("ok")
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server temps.txt")
|
|
If vri = 1 Then
|
|
MsgBox("les serveur de extrème downloaders sont en maintenance, relancer Extrème Downloaders plus tard", MsgBoxStyle.Exclamation)
|
|
NotifyIcon1.Visible = False
|
|
End
|
|
Else
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("imposible de se connecter au serveur d'extrême downloaders", MsgBoxStyle.Critical)
|
|
End Try
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel3_MouseEnter(sender As Object, e As EventArgs) Handles Panel3.MouseEnter
|
|
Panel3.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Panel3_MouseLeave(sender As Object, e As EventArgs) Handles Panel3.MouseLeave
|
|
Panel3.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
Private Sub PictureBox2_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox2.MouseLeave
|
|
Panel3.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox2.MouseEnter
|
|
Panel3.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label3_MouseEnter(sender As Object, e As EventArgs) Handles Label3.MouseEnter
|
|
Panel3.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label3_MouseLeave(sender As Object, e As EventArgs) Handles Label3.MouseLeave
|
|
Panel3.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label4_MouseEnter(sender As Object, e As EventArgs) Handles Label4.MouseEnter
|
|
Panel3.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label4_MouseLeave(sender As Object, e As EventArgs) Handles Label4.MouseLeave
|
|
Panel3.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Panel4_MouseEnter(sender As Object, e As EventArgs) Handles Panel4.MouseEnter
|
|
Panel4.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Panel4_MouseLeave(sender As Object, e As EventArgs) Handles Panel4.MouseLeave
|
|
Panel4.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter
|
|
Panel4.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
|
|
Panel4.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label6_MouseEnter(sender As Object, e As EventArgs) Handles Label6.MouseEnter
|
|
Panel4.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label6_MouseLeave(sender As Object, e As EventArgs) Handles Label6.MouseLeave
|
|
Panel4.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
Private Sub Label5_MouseEnter(sender As Object, e As EventArgs) Handles Label5.MouseEnter
|
|
Panel4.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label5_MouseLeave(sender As Object, e As EventArgs) Handles Label5.MouseLeave
|
|
Panel4.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Panel5_MouseEnter(sender As Object, e As EventArgs) Handles Panel5.MouseEnter
|
|
Panel5.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Panel5_MouseLeave(sender As Object, e As EventArgs) Handles Panel5.MouseLeave
|
|
Panel5.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox4.MouseEnter
|
|
Panel5.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox4.MouseLeave
|
|
Panel5.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label8_MouseEnter(sender As Object, e As EventArgs) Handles Label8.MouseEnter
|
|
Panel5.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label8_MouseLeave(sender As Object, e As EventArgs) Handles Label8.MouseLeave
|
|
Panel5.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label7_MouseEnter(sender As Object, e As EventArgs) Handles Label7.MouseEnter
|
|
Panel5.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label7_MouseLeave(sender As Object, e As EventArgs) Handles Label7.MouseLeave
|
|
Panel5.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
Private Sub Panel6_MouseEnter(sender As Object, e As EventArgs) Handles Panel6.MouseEnter
|
|
Panel6.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Panel6_MouseLeave(sender As Object, e As EventArgs) Handles Panel6.MouseLeave
|
|
Panel6.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox5.MouseEnter
|
|
Panel6.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox5.MouseLeave
|
|
Panel6.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label10_MouseEnter(sender As Object, e As EventArgs) Handles Label10.MouseEnter
|
|
Panel6.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label10_MouseLeave(sender As Object, e As EventArgs) Handles Label10.MouseLeave
|
|
Panel6.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label9_MouseEnter(sender As Object, e As EventArgs) Handles Label9.MouseEnter
|
|
Panel6.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label9_MouseLeave(sender As Object, e As EventArgs) Handles Label9.MouseLeave
|
|
Panel6.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Panel7_MouseEnter(sender As Object, e As EventArgs) Handles Panel7.MouseEnter
|
|
Panel7.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Panel7_MouseLeave(sender As Object, e As EventArgs) Handles Panel7.MouseLeave
|
|
Panel7.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub PictureBox6_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox6.MouseEnter
|
|
Panel7.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub PictureBox6_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox6.MouseLeave
|
|
Panel7.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label12_MouseEnter(sender As Object, e As EventArgs) Handles Label12.MouseEnter
|
|
Panel7.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label12_MouseLeave(sender As Object, e As EventArgs) Handles Label12.MouseLeave
|
|
Panel7.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label11_MouseEnter(sender As Object, e As EventArgs) Handles Label11.MouseEnter
|
|
Panel7.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label11_MouseLeave(sender As Object, e As EventArgs) Handles Label11.MouseLeave
|
|
Panel7.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
Private Sub Panel8_MouseEnter(sender As Object, e As EventArgs) Handles Panel8.MouseEnter
|
|
Panel8.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Panel8_MouseLeave(sender As Object, e As EventArgs) Handles Panel8.MouseLeave
|
|
Panel8.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub PictureBox7_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox7.MouseEnter
|
|
Panel8.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub PictureBox7_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox7.MouseLeave
|
|
Panel8.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label14_MouseEnter(sender As Object, e As EventArgs) Handles Label14.MouseEnter
|
|
Panel8.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label14_MouseLeave(sender As Object, e As EventArgs) Handles Label14.MouseLeave
|
|
Panel8.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
|
|
Private Sub Label13_MouseEnter(sender As Object, e As EventArgs) Handles Label13.MouseEnter
|
|
Panel8.BackColor = Color.FromArgb(64, 64, 64)
|
|
End Sub
|
|
|
|
Private Sub Label13_MouseLeave(sender As Object, e As EventArgs) Handles Label13.MouseLeave
|
|
Panel8.BackColor = Color.FromArgb(32, 32, 32)
|
|
End Sub
|
|
Private Sub Panel8_Click(sender As Object, e As EventArgs) Handles Panel8.Click
|
|
Form2.Location = Me.Location
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Panel12_Click(sender As Object, e As EventArgs) Handles Panel12.Click
|
|
Form2.Location = Me.Location
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click
|
|
Form2.Location = Me.Location
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click
|
|
Form2.Location = Me.Location
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
|
Form2.Location = Me.Location
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label14_Click(sender As Object, e As EventArgs) Handles Label14.Click
|
|
Form2.Location = Me.Location
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label13_Click(sender As Object, e As EventArgs) Handles Label13.Click
|
|
Form2.Location = Me.Location
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
Private Sub Panel3_Click(sender As Object, e As EventArgs) Handles Panel3.Click
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Panel9_Click(sender As Object, e As EventArgs) Handles Panel9.Click
|
|
Form2.Location = Me.Location
|
|
Form2.ChromeTabcontrol1.SelectedTab = Form2.TabPage5
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label18_Click(sender As Object, e As EventArgs) Handles Label18.Click
|
|
Form2.Location = Me.Location
|
|
Form2.ChromeTabcontrol1.SelectedTab = Form2.TabPage5
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click
|
|
Form2.Location = Me.Location
|
|
Form2.ChromeTabcontrol1.SelectedTab = Form2.TabPage5
|
|
Form2.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
Sub loadco()
|
|
Try
|
|
If My.Computer.Network.Ping("www.google.fr") = True Then
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString("http://logiciels2.extreme-downloaders.fr/extreme downloaders/server temps.txt")
|
|
If vri = 1 Then
|
|
MsgBox("les serveur de extrème downloaders sont en maintenance, relancer Extrème Downloaders plus tard", MsgBoxStyle.Exclamation)
|
|
NotifyIcon1.Visible = False
|
|
End
|
|
Else
|
|
loadco2()
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("vous êtê pas connecter a internet, relancer Extrème Downloaders plus tard", MsgBoxStyle.Exclamation)
|
|
NotifyIcon1.Visible = False
|
|
End
|
|
End Try
|
|
End Sub
|
|
Sub loadco2()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/photo.png", doscompte & "\photo.png")
|
|
PictureBox11.Image = Image.FromFile(doscompte & "\photo.png")
|
|
vérifico
|
|
Catch ex As Exception
|
|
Timer1.Stop()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
If misdl = 1 Then
|
|
e.Cancel = True
|
|
MsgBox("le télécharement d'une mis jour est en cours" & vbNewLine & "merci de patienter", MsgBoxStyle.Exclamation)
|
|
Else
|
|
If misdlfini = 1 Then
|
|
Try
|
|
Process.Start(dosmisajour & "\Extrème downloaders update.exe")
|
|
NotifyIcon1.Visible = False
|
|
NotifyIcon2.Visible = False
|
|
End
|
|
Catch ex As Exception
|
|
e.Cancel = True
|
|
MsgBox("merci de clique sur oui pour effectuer la mise a jours", MsgBoxStyle.Critical)
|
|
Timer3.Start()
|
|
End Try
|
|
Else
|
|
Dim lines1() As String = File.ReadAllLines(setting)
|
|
If lines1(3) = 1 Then
|
|
Dim msg = MsgBox("voulez vous vraiment quitter ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
If nomutilisateur = "" Then
|
|
NotifyIcon1.Visible = False
|
|
NotifyIcon2.Visible = False
|
|
Else
|
|
NotifyIcon1.Visible = False
|
|
NotifyIcon2.Visible = False
|
|
PictureBox11.Image.Dispose()
|
|
File.Delete(doscompte & "\photo.png")
|
|
End If
|
|
Else
|
|
e.Cancel = True
|
|
End If
|
|
Else
|
|
If nomutilisateur = "" Then
|
|
NotifyIcon1.Visible = False
|
|
NotifyIcon2.Visible = False
|
|
Else
|
|
NotifyIcon1.Visible = False
|
|
NotifyIcon2.Visible = False
|
|
PictureBox11.Image.Dispose()
|
|
File.Delete(doscompte & "\photo.png")
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub Panel9_MouseEnter(sender As Object, e As EventArgs) Handles Panel9.MouseEnter
|
|
If nomutilisateur = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/level.txt")
|
|
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
|
|
|
|
Dim maj3 As New WebClient
|
|
Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/XP.txt")
|
|
|
|
Dim maj4 As New WebClient
|
|
Dim vri4 As String = maj4.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/up.txt")
|
|
|
|
Label19.Text = "vos PB's: " & vri2
|
|
Label20.Text = "votre niveaux: " & vri
|
|
Label21.Text = "vôtre XP: " & vri3
|
|
Label22.Text = "Fichier en ligne: " & vri4
|
|
Panel14.Show()
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Sub Panel9_MouseLeave(sender As Object, e As EventArgs) Handles Panel9.MouseLeave
|
|
If nomutilisateur = "" Then
|
|
|
|
Else
|
|
Panel14.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Label18_MouseEnter(sender As Object, e As EventArgs) Handles Label18.MouseEnter
|
|
If nomutilisateur = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/level.txt")
|
|
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
|
|
|
|
Label19.Text = "vos PB's: " & vri2
|
|
Label20.Text = "votre niveaux: " & vri
|
|
|
|
Panel14.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Label18_MouseLeave(sender As Object, e As EventArgs) Handles Label18.MouseLeave
|
|
If nomutilisateur = "" Then
|
|
|
|
Else
|
|
Panel14.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox11_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox11.MouseEnter
|
|
If nomutilisateur = "" Then
|
|
|
|
Else
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/level.txt")
|
|
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
|
|
|
|
Label19.Text = "vos PB's: " & vri2
|
|
Label20.Text = "votre niveaux: " & vri
|
|
|
|
Panel14.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox11_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox11.MouseLeave
|
|
If nomutilisateur = "" Then
|
|
|
|
Else
|
|
Panel14.Hide()
|
|
End If
|
|
End Sub
|
|
Private Sub Panel10_Click(sender As Object, e As EventArgs) Handles Panel10.Click
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label16_Click(sender As Object, e As EventArgs) Handles Label16.Click
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
|
|
Form3.Location = Me.Location
|
|
Form3.Show()
|
|
Me.Visible = False
|
|
End Sub
|
|
|
|
Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
|
|
Process.Start("https://www.extreme-downloaders.fr/")
|
|
End Sub
|
|
|
|
Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click
|
|
Process.Start("https://www.extreme-downloaders.fr/")
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
|
Process.Start("https://www.extreme-downloaders.fr/")
|
|
End Sub
|
|
|
|
Private Sub Panel7_Click(sender As Object, e As EventArgs) Handles Panel7.Click
|
|
Form11.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Label12_Click(sender As Object, e As EventArgs) Handles Label12.Click
|
|
Form11.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click
|
|
Form11.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
|
|
Form11.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
Timer2.Stop()
|
|
Dim lines1() As String = File.ReadAllLines(setting)
|
|
If lines1(2) = 1 Then
|
|
vérifimisdl
|
|
Else
|
|
vérifimis()
|
|
End If
|
|
|
|
End Sub
|
|
Sub vérifimis()
|
|
Try
|
|
If My.Computer.Network.Ping("www.google.fr") = True Then
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString("http://logiciels2.extreme-downloaders.fr" & "/extr%C3%A8me%20downloaders/version.txt")
|
|
If version = vri Then
|
|
|
|
Else
|
|
NotifyIcon2.Visible = True
|
|
NotifyIcon2.BalloonTipTitle = "mis a jour"
|
|
NotifyIcon2.BalloonTipText = "une mis a jour de Extrème downloaders est disponible"
|
|
NotifyIcon2.ShowBalloonTip(1)
|
|
End If
|
|
Else
|
|
NotifyIcon1.BalloonTipTitle = "mis a jour"
|
|
NotifyIcon1.BalloonTipText = "imposible de trouver le mis a jours, vérifier votre connection"
|
|
NotifyIcon1.ShowBalloonTip(1)
|
|
End If
|
|
Catch ex As Exception
|
|
NotifyIcon1.BalloonTipTitle = "mis a jour"
|
|
NotifyIcon1.BalloonTipText = "imposible de trouver le mis a jours, vérifier votre connection"
|
|
NotifyIcon1.ShowBalloonTip(1)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub NotifyIcon2_Click(sender As Object, e As EventArgs) Handles NotifyIcon2.Click
|
|
Form14.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub NotifyIcon2_BalloonTipClicked(sender As Object, e As EventArgs) Handles NotifyIcon2.BalloonTipClicked
|
|
Form14.ShowDialog()
|
|
End Sub
|
|
Sub vérifimisdl()
|
|
Try
|
|
If My.Computer.Network.Ping("www.google.fr") = True Then
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString("http://logiciels2.extreme-downloaders.fr" & "/extr%C3%A8me%20downloaders/version.txt")
|
|
If version = vri Then
|
|
|
|
Else
|
|
NotifyIcon1.BalloonTipTitle = "mis a jour:"
|
|
NotifyIcon1.BalloonTipText = "debut de téléchargement de la mis a jours"
|
|
NotifyIcon1.ShowBalloonTip(1)
|
|
Form15.Show()
|
|
End If
|
|
Else
|
|
NotifyIcon1.BalloonTipTitle = "mis a jour"
|
|
NotifyIcon1.BalloonTipText = "imposible de trouver le mis a jours, vérifier votre connection"
|
|
NotifyIcon1.ShowBalloonTip(1)
|
|
End If
|
|
Catch ex As Exception
|
|
NotifyIcon1.BalloonTipTitle = "mis a jour"
|
|
NotifyIcon1.BalloonTipText = "imposible de trouver le mis a jours, vérifier votre connection"
|
|
NotifyIcon1.ShowBalloonTip(1)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
|
Timer3.Stop()
|
|
Try
|
|
Process.Start(dosmisajour & "\Extrème downloaders update.exe")
|
|
End
|
|
Catch ex As Exception
|
|
MsgBox("merci de clique sur oui pour effectuer la mise a jours", MsgBoxStyle.Critical)
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
Sub deco()
|
|
Dim sw1 As New StreamWriter(compte)
|
|
sw1.WriteLine(0)
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(connecter)
|
|
sw2.WriteLine(0)
|
|
sw2.Close()
|
|
File.Delete(doscompte & "passtemps.txt")
|
|
PictureBox11.Image.Dispose()
|
|
PictureBox11.Image = My.Resources._1040005
|
|
File.Delete(doscompte & "photo.png")
|
|
NotifyIcon1.BalloonTipTitle = "déconnection"
|
|
NotifyIcon1.BalloonTipText = "vous avez êtê deconnecter du compte " & nomutilisateur
|
|
NotifyIcon1.ShowBalloonTip(1)
|
|
Label18.Text = "se connecter"
|
|
nomutilisateur = ""
|
|
Panel15.Hide()
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Timer1.Stop()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/photo.png", doscompte & "\photo.png")
|
|
PictureBox11.Image = Image.FromFile(doscompte & "\photo.png")
|
|
vérifico()
|
|
Catch ex As Exception
|
|
Timer1.Stop()
|
|
End Try
|
|
End Sub
|
|
Sub vérifico()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/pass.txt", doscompte & "\pass.txt")
|
|
Dim lines1() As String = File.ReadAllLines(doscompte & "\pass.txt")
|
|
Dim lines2() As String = File.ReadAllLines(doscompte & "\passtemps.txt")
|
|
If lines1(0) = lines2(0) Then
|
|
File.Delete(doscompte & "\pass.txt")
|
|
Else
|
|
File.Delete(doscompte & "\pass.txt")
|
|
deco()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer4.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
|
|
Timer4.Stop()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/pass.txt", doscompte & "\pass.txt")
|
|
Dim lines1() As String = File.ReadAllLines(doscompte & "\pass.txt")
|
|
Dim lines2() As String = File.ReadAllLines(doscompte & "\passtemps.txt")
|
|
If lines2(0) = lines1(0) Then
|
|
File.Delete(doscompte & "\pass.txt")
|
|
Else
|
|
File.Delete(doscompte & "\pass.txt")
|
|
deco()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer4.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Panel4_Paint(sender As Object, e As PaintEventArgs) Handles Panel4.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel4_Click(sender As Object, e As EventArgs) Handles Panel4.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
|
|
Timer5.Stop()
|
|
Form24.ShowDialog()
|
|
End Sub
|
|
Private Sub Panel11_Click(sender As Object, e As EventArgs) Handles Panel11.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Label15_Click(sender As Object, e As EventArgs) Handles Label15.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder a la parti communautaire", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form28.Location = Me.Location
|
|
Form28.Show()
|
|
Me.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Panel14_Paint(sender As Object, e As PaintEventArgs) Handles Panel14.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel3_Enter(sender As Object, e As EventArgs) Handles Panel3.Enter
|
|
|
|
End Sub
|
|
|
|
Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
|
|
If nomutilisateur = "" Then
|
|
MsgBox("vous devez être connecter pour accéder au calendrier de l'avent", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form38.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Panel9_Paint(sender As Object, e As PaintEventArgs) Handles Panel9.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel15_Paint(sender As Object, e As PaintEventArgs) Handles Panel15.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel15_Click(sender As Object, e As EventArgs) Handles Panel15.Click
|
|
Form42.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Label23_Click(sender As Object, e As EventArgs) Handles Label23.Click
|
|
Form42.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox13_Click(sender As Object, e As EventArgs) Handles PictureBox13.Click
|
|
Form42.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Panel14_Click(sender As Object, e As EventArgs) Handles Panel14.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel14_MouseEnter(sender As Object, e As EventArgs) Handles Panel14.MouseEnter
|
|
|
|
End Sub
|
|
|
|
Private Sub Panel3_Paint(sender As Object, e As PaintEventArgs) Handles Panel3.Paint
|
|
|
|
End Sub
|
|
End Class
|