2124 lines
87 KiB
VB.net
2124 lines
87 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
Imports System.Net.Mail
|
|
Imports System.Reflection
|
|
Imports System.Security.Cryptography
|
|
Imports System.Text
|
|
Imports System.Windows
|
|
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
|
|
|
Public Class Form2
|
|
Public startpara As Integer = 0
|
|
Dim startwin = 0
|
|
Dim startupdate = 0
|
|
Dim startdlupdate = 0
|
|
Dim dosier = 0
|
|
Dim confirmclose = 0
|
|
Dim dosier2 As String = ""
|
|
Public vérification As Integer = 0
|
|
Dim set2 As Integer = 0
|
|
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
Label8.Text = "votre version de extrème downloaders: " & version
|
|
ComboBox2.SelectedItem = "@gmail.com"
|
|
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", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim lines1() As String = File.ReadAllLines(connecter)
|
|
If lines1(0) = 1 Then
|
|
Panel2.Show()
|
|
Panel3.Show()
|
|
Label15.Text = "compte de: " & nomutilisateur
|
|
loadco()
|
|
Else
|
|
ChromeTabcontrol1.TabPages.Remove(TabPage6)
|
|
finiload()
|
|
End If
|
|
End If
|
|
Else
|
|
Form1.NotifyIcon1.BalloonTipTitle = "compte"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous n'êtes pas connectera internet"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
End If
|
|
Catch ex As Exception
|
|
Form1.NotifyIcon1.BalloonTipTitle = "compte"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous n'êtes pas connectera internet"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Form2_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
Dim msg = MsgBox("voulez vous enregister ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
|
|
Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
|
|
Dim mer As Integer = 0
|
|
Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
|
|
Dim vreg = Nothing
|
|
|
|
If key.GetValue(Application.ProductName) Is Nothing Then
|
|
vreg = 0
|
|
Else
|
|
vreg = 1
|
|
End If
|
|
|
|
If ChromeCheckbox1.Checked = True Then
|
|
startwin = 1
|
|
If vreg = 0 Then
|
|
key.SetValue(Application.ProductName, Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String)
|
|
End If
|
|
Else
|
|
startwin = 0
|
|
If vreg = 1 Then
|
|
key.DeleteValue(Application.ProductName)
|
|
End If
|
|
End If
|
|
|
|
If ChromeCheckbox2.Checked = True Then
|
|
startupdate = 1
|
|
Else
|
|
startupdate = 0
|
|
End If
|
|
|
|
If ChromeCheckbox3.Checked = True Then
|
|
startdlupdate = 1
|
|
Else
|
|
startdlupdate = 0
|
|
End If
|
|
|
|
If ChromeCheckbox5.Checked = True Then
|
|
confirmclose = 1
|
|
Else
|
|
confirmclose = 0
|
|
End If
|
|
|
|
Dim sw1 As New StreamWriter(setting)
|
|
sw1.WriteLine(startwin)
|
|
sw1.WriteLine(startupdate)
|
|
sw1.WriteLine(startdlupdate)
|
|
sw1.WriteLine(confirmclose)
|
|
sw1.Close()
|
|
|
|
If dosier = 0 Then
|
|
Dim sw2 As New StreamWriter(setting2)
|
|
sw2.WriteLine(0)
|
|
sw2.Close()
|
|
dldos = ""
|
|
Else
|
|
Dim sw3 As New StreamWriter(setting2)
|
|
sw3.WriteLine(1)
|
|
sw3.WriteLine(dosier2)
|
|
sw3.Close()
|
|
dldos = dosier2
|
|
End If
|
|
|
|
Dim sw4 As New StreamWriter(setting3)
|
|
sw4.WriteLine(set2)
|
|
sw4.Close()
|
|
|
|
|
|
MsgBox("les paramètre ont bien êtê enregister", MsgBoxStyle.Information)
|
|
If startpara = 0 Then
|
|
Form1.Visible = True
|
|
ElseIf startpara = 2 Then
|
|
Form1.Visible = False
|
|
Form28.Visible = True
|
|
startpara = 0
|
|
Else
|
|
Form1.Visible = False
|
|
Form3.Visible = True
|
|
startpara = 0
|
|
End If
|
|
Else
|
|
If startpara = 0 Then
|
|
Form1.Visible = True
|
|
ElseIf startpara = 2 Then
|
|
Form1.Visible = False
|
|
Form28.Visible = True
|
|
startpara = 0
|
|
Else
|
|
Form1.Visible = False
|
|
Form3.Visible = True
|
|
startpara = 0
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form2_LocationChanged(sender As Object, e As EventArgs) Handles MyBase.LocationChanged
|
|
If startpara = 0 Then
|
|
Form1.Location = Me.Location
|
|
Else
|
|
Form3.Location = Me.Location
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Timer1.Stop()
|
|
Button8.Text = "rechercher des mis a jours"
|
|
Button8.Enabled = True
|
|
End Sub
|
|
Sub vérificompte()
|
|
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", MsgBoxStyle.Exclamation)
|
|
Else
|
|
vérificompte2()
|
|
End If
|
|
Else
|
|
MsgBox("vous être pas connect a internet", MsgBoxStyle.Critical)
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("vous être pas connect a internet", MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
Sub vérificompte2()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
If Directory.Exists(dostemps & TextBox10.Text) = True Then
|
|
MsgBox("Le pseudo: " & TextBox10.Text & " est dêjâ utiliser", MsgBoxStyle.Critical)
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
créercompte3()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
Sub créercompte()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
créercompte10()
|
|
Catch ex As Exception
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
Timer2.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
If Directory.Exists(dostemps & TextBox10.Text) = True Then
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
MsgBox("Le pseudo: " & TextBox10.Text & " est dêjâ utiliser", MsgBoxStyle.Critical)
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
créercompte3()
|
|
End If
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
|
Timer3.Stop()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
créercompte10()
|
|
Catch ex As Exception
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
Sub créercompte2()
|
|
Dim sw1 As New StreamWriter(dostemps & "index.php")
|
|
sw1.WriteLine("<?php")
|
|
sw1.WriteLine("echo ""Erreur 404 page non trouvez"";")
|
|
sw1.WriteLine("?>")
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(dostemps & "admin.txt")
|
|
sw2.WriteLine("0")
|
|
sw2.Close()
|
|
Dim sw3 As New StreamWriter(dostemps & "vérification.txt")
|
|
sw3.WriteLine("0")
|
|
sw3.Close()
|
|
Dim sw4 As New StreamWriter(dostemps & "money.txt")
|
|
sw4.WriteLine("0")
|
|
sw4.Close()
|
|
Dim sw7 As New StreamWriter(dostemps & "level.txt")
|
|
sw7.WriteLine("0")
|
|
sw7.Close()
|
|
Dim sw8 As New StreamWriter(dostemps & "XP.txt")
|
|
sw8.WriteLine("0")
|
|
sw8.Close()
|
|
Dim sw9 As New StreamWriter(dostemps & "up.txt")
|
|
sw9.WriteLine("0")
|
|
sw9.Close()
|
|
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox11.Text)
|
|
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.CreateEncryptor
|
|
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
|
|
Dim passecrypt = Convert.ToBase64String(Resultatbytes)
|
|
|
|
If TextBox14.Visible = True Then
|
|
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox13.Text & TextBox14.Text)
|
|
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
|
Dim Crypto2 As New DESCryptoServiceProvider()
|
|
Crypto.Key = keyBytes
|
|
Crypto.IV = keyBytes
|
|
Dim Icrypto2 As ICryptoTransform = Crypto.CreateEncryptor
|
|
Dim Resultatbytes2() As Byte = Icrypto.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
|
|
Dim mailcrypte = Convert.ToBase64String(Resultatbytes2)
|
|
Dim sw6 As New StreamWriter(dostemps & "mail.txt")
|
|
sw6.WriteLine(mailcrypte)
|
|
sw6.Close()
|
|
Else
|
|
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox13.Text & ComboBox2.Text)
|
|
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
|
Dim Crypto2 As New DESCryptoServiceProvider()
|
|
Crypto.Key = keyBytes
|
|
Crypto.IV = keyBytes
|
|
Dim Icrypto2 As ICryptoTransform = Crypto.CreateEncryptor
|
|
Dim Resultatbytes2() As Byte = Icrypto.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
|
|
Dim mailcrypte = Convert.ToBase64String(Resultatbytes2)
|
|
Dim sw6 As New StreamWriter(dostemps & "mail.txt")
|
|
sw6.WriteLine(mailcrypte)
|
|
sw6.Close()
|
|
End If
|
|
|
|
Dim sw5 As New StreamWriter(dostemps & "pass.txt")
|
|
sw5.WriteLine(passecrypt)
|
|
sw5.Close()
|
|
|
|
PictureBox7.Image.Save(dostemps & "\photo.png")
|
|
|
|
|
|
intexup()
|
|
End Sub
|
|
Sub créercompte3()
|
|
Try
|
|
Directory.CreateDirectory(dostemps & TextBox10.Text)
|
|
Directory.Delete(dostemps & TextBox10.Text)
|
|
Me.UseWaitCursor = True
|
|
Panel2.Enabled = False
|
|
créercompte()
|
|
Catch ex As Exception
|
|
MsgBox("votre pseudo contient des caratère interdi", MsgBoxStyle.Exclamation)
|
|
End Try
|
|
End Sub
|
|
Sub intexup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "index.php", ipserver & "utilisateur/" & TextBox10.Text & "/index.php")
|
|
File.Delete(dostemps & "index.php")
|
|
adminup()
|
|
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.UploadFile(dostemps & "index.php", ipserver & "utilisateur/" & TextBox10.Text & "/index.php")
|
|
File.Delete(dostemps & "index.php")
|
|
adminup()
|
|
Catch ex As Exception
|
|
Timer4.Start()
|
|
End Try
|
|
End Sub
|
|
Sub adminup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "admin.txt", ipserver & "utilisateur/" & TextBox10.Text & "/admin.txt")
|
|
File.Delete(dostemps & "admin.txt")
|
|
vérificationup()
|
|
Catch ex As Exception
|
|
Timer5.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
|
|
Timer5.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "admin.txt", ipserver & "utilisateur/" & TextBox10.Text & "/admin.txt")
|
|
File.Delete(dostemps & "admin.txt")
|
|
vérificationup()
|
|
Catch ex As Exception
|
|
Timer5.Start()
|
|
End Try
|
|
End Sub
|
|
Sub vérificationup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "vérification.txt", ipserver & "utilisateur/" & TextBox10.Text & "/vérification.txt")
|
|
File.Delete(dostemps & "vérification.txt")
|
|
moneyup()
|
|
Catch ex As Exception
|
|
Timer6.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
|
|
Timer6.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "vérification.txt", ipserver & "utilisateur/" & TextBox10.Text & "/vérification.txt")
|
|
File.Delete(dostemps & "vérification.txt")
|
|
moneyup()
|
|
Catch ex As Exception
|
|
Timer6.Start()
|
|
End Try
|
|
End Sub
|
|
Sub moneyup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "utilisateur/" & TextBox10.Text & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
passup()
|
|
Catch ex As Exception
|
|
Timer7.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
|
|
Timer7.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "money.txt", ipserver & "utilisateur/" & TextBox10.Text & "/money.txt")
|
|
File.Delete(dostemps & "money.txt")
|
|
passup()
|
|
Catch ex As Exception
|
|
Timer7.Start()
|
|
End Try
|
|
End Sub
|
|
Sub passup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "pass.txt", ipserver & "utilisateur/" & TextBox10.Text & "/pass.txt")
|
|
File.Delete(dostemps & "pass.txt")
|
|
mailup()
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
|
|
Timer8.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "pass.txt", ipserver & "utilisateur/" & TextBox10.Text & "/pass.txt")
|
|
File.Delete(dostemps & "pass.txt")
|
|
mailup()
|
|
Catch ex As Exception
|
|
Timer8.Start()
|
|
End Try
|
|
End Sub
|
|
Sub mailup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "mail.txt", ipserver & "utilisateur/" & TextBox10.Text & "/mail.txt")
|
|
File.Delete(dostemps & "mail.txt")
|
|
photoup()
|
|
Catch ex As Exception
|
|
Timer9.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
|
|
Timer9.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "mail.txt", ipserver & "utilisateur/" & TextBox10.Text & "/mail.txt")
|
|
File.Delete(dostemps & "mail.txt")
|
|
photoup()
|
|
Catch ex As Exception
|
|
Timer9.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
|
Button8.Enabled = False
|
|
Form1.NotifyIcon2.Visible = False
|
|
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
|
|
Button8.Text = "vous êtes a jours"
|
|
Timer1.Start()
|
|
Else
|
|
Button8.Text = "rechercher des mis a jours"
|
|
Button8.Enabled = True
|
|
Form14.ShowDialog()
|
|
End If
|
|
Else
|
|
Button8.Enabled = True
|
|
MsgBox("vous être pas connecter a internet", MsgBoxStyle.Critical)
|
|
End If
|
|
Catch ex As Exception
|
|
Button8.Enabled = True
|
|
MsgBox("vous être pas connecter a internet", MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
Form4.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged
|
|
If TextBox8.Text = "" Then
|
|
Button11.Text = "connection"
|
|
Else
|
|
Button11.Text = "connection a " & TextBox8.Text
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
|
Panel2.Visible = True
|
|
End Sub
|
|
|
|
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
|
|
Panel2.Visible = False
|
|
End Sub
|
|
Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
|
|
If ComboBox2.SelectedItem = "autre" Then
|
|
ComboBox2.Hide()
|
|
TextBox14.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
|
|
If OpenFileDialog1.ShowDialog = 1 Then
|
|
PictureBox7.Image = Image.FromFile(OpenFileDialog1.FileName)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
|
|
If TextBox10.Text = "" Then
|
|
MsgBox("merci d'entrer un pseudo", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox11.Text = "" Then
|
|
MsgBox("merci d'entrer un mots de passe", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox12.Text = "" Then
|
|
MsgBox("merci de confirmer votre mots de passe", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox13.Text = "" Then
|
|
MsgBox("merci d'entrer un mail", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox13.Text.Contains("@") Then
|
|
MsgBox("merci d'entrer le debut de l'addre mail", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox14.Visible = True And TextBox14.Text = "" And TextBox14.Text = "@" Then
|
|
MsgBox("merci d'entrer la fin de l'addre mail", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox14.Visible = True And TextBox14.Text.Contains("@") And TextBox14.Text.Contains(".") Then
|
|
If TextBox11.Text = TextBox12.Text Then
|
|
If CheckBox2.Checked = True Then
|
|
vérificompte()
|
|
Else
|
|
MsgBox("vous devez accpeter le condition d'utilisation", MsgBoxStyle.Critical)
|
|
End If
|
|
Else
|
|
MsgBox("Les mots de passe ne correspond pas", MsgBoxStyle.Critical)
|
|
End If
|
|
Else
|
|
If TextBox14.Visible = True Then
|
|
MsgBox("merci d'entrer la fin de l'addre mail", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox11.Text = TextBox12.Text Then
|
|
If CheckBox2.Checked = True Then
|
|
vérificompte()
|
|
Else
|
|
MsgBox("vous devez accpeter le condition d'utilisation", MsgBoxStyle.Critical)
|
|
End If
|
|
Else
|
|
MsgBox("Les mots de passe ne correspond pas", MsgBoxStyle.Critical)
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub photoup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "photo.png", ipserver & "utilisateur/" & TextBox10.Text & "/photo.png")
|
|
File.Delete(dostemps & "photo.png")
|
|
levelup()
|
|
Catch ex As Exception
|
|
Timer10.Start()
|
|
End Try
|
|
End Sub
|
|
Sub créercomtpefini()
|
|
Dim NumRandom As Integer
|
|
Dim Rand As Random = New Random
|
|
Dim NumStr As String
|
|
Dim code As String = ""
|
|
|
|
NumRandom = (Rand.Next(1, 999999))
|
|
NumStr = Strings.Right("" & NumRandom.ToString(), 6)
|
|
code = "ED-" & NumStr & "-" & TextBox10.Text
|
|
|
|
Dim t4 = dostemps & "code 1 de récupération " & TextBox10.Text & ".txt"
|
|
Dim sw4 As New StreamWriter(t4)
|
|
sw4.WriteLine(TextBox4.Text & code & "-code1")
|
|
sw4.Close()
|
|
|
|
Dim NumRandom2 As Integer
|
|
Dim Rand2 As Random = New Random
|
|
Dim NumStr2 As String
|
|
Dim code2 As String = ""
|
|
|
|
NumRandom2 = (Rand2.Next(1, 999999))
|
|
NumStr2 = Strings.Right("" & NumRandom2.ToString(), 6)
|
|
code2 = "ED-" & NumStr2 & "-" & TextBox10.Text
|
|
|
|
Dim t5 = dostemps & "code 2 de récupération " & TextBox10.Text & ".txt"
|
|
Dim sw5 As New StreamWriter(t5)
|
|
sw5.WriteLine(TextBox4.Text & code2 & "-code2")
|
|
sw5.Close()
|
|
|
|
Dim NumRandom3 As Integer
|
|
Dim Rand3 As Random = New Random
|
|
Dim NumStr3 As String
|
|
Dim code3 As String = ""
|
|
|
|
NumRandom3 = (Rand3.Next(1, 999999))
|
|
NumStr3 = Strings.Right("" & NumRandom3.ToString(), 6)
|
|
code3 = "ED-" & NumStr3 & "-" & TextBox10.Text
|
|
|
|
Dim t6 = dostemps & "code 3 de récupération " & TextBox10.Text & ".txt"
|
|
Dim sw6 As New StreamWriter(t6)
|
|
sw6.WriteLine(TextBox4.Text & code3 & "-code3")
|
|
sw6.Close()
|
|
mailcréer()
|
|
End Sub
|
|
|
|
Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
|
|
Timer10.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "photo.png", ipserver & "utilisateur/" & TextBox10.Text & "/photo.png")
|
|
File.Delete(dostemps & "photo.png")
|
|
levelup()
|
|
Catch ex As Exception
|
|
Timer10.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged
|
|
If TextBox10.Text = "" Then
|
|
Button14.Text = "céer le compte"
|
|
Else
|
|
Button14.Text = "céer le compte: " & TextBox10.Text
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
|
|
If TextBox8.Text = "" Then
|
|
MsgBox("merci d'entrer un pseudo", MsgBoxStyle.Critical)
|
|
Else
|
|
If TextBox9.Text = "" Then
|
|
MsgBox("merci d'entrer le mots de passe", MsgBoxStyle.Critical)
|
|
Else
|
|
covérifi()
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub covérifi()
|
|
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", MsgBoxStyle.Exclamation)
|
|
Else
|
|
covérifi2()
|
|
End If
|
|
Else
|
|
MsgBox("vous être pas connect a internet", MsgBoxStyle.Critical)
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("vous être pas connect a internet", MsgBoxStyle.Critical)
|
|
End Try
|
|
End Sub
|
|
Sub covérifi2()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
If Directory.Exists(dostemps & TextBox8.Text) = True Then
|
|
co1()
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
|
|
End If
|
|
Catch ex As Exception
|
|
Timer11.Start()
|
|
End Try
|
|
End Sub
|
|
Sub co1()
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/pass.txt")
|
|
Dim Resultatbytes() As Byte = Convert.FromBase64String(vri)
|
|
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é)
|
|
If TextBox9.Text = a7 Then
|
|
co2()
|
|
Else
|
|
MsgBox("mots de passe incorect", MsgBoxStyle.Critical)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
|
|
Timer11.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
If Directory.Exists(dostemps & TextBox8.Text) = True Then
|
|
co1()
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
|
|
End If
|
|
Catch ex As Exception
|
|
Timer11.Start()
|
|
End Try
|
|
End Sub
|
|
Sub co2()
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/vérification.txt")
|
|
If vri = 1 Then
|
|
Form16.ShowDialog()
|
|
Else
|
|
co3()
|
|
End If
|
|
End Sub
|
|
Sub co3()
|
|
vérification = 0
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/pass.txt")
|
|
Dim sw1 As New StreamWriter(compte)
|
|
sw1.WriteLine(TextBox8.Text)
|
|
sw1.Close()
|
|
Dim sw2 As New StreamWriter(connecter)
|
|
sw2.WriteLine(1)
|
|
sw2.Close()
|
|
Dim sw3 As New StreamWriter(doscompte & "passtemps.txt")
|
|
sw3.WriteLine(vri)
|
|
sw3.Close()
|
|
co5()
|
|
End Sub
|
|
Sub co4()
|
|
Panel2.Show()
|
|
Panel3.Show()
|
|
Label15.Text = "compte de: " & TextBox8.Text
|
|
Form1.NotifyIcon1.BalloonTipTitle = "compte"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous êtes connecter un compte: " & TextBox8.Text
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
nomutilisateur = TextBox8.Text
|
|
Form1.Label18.Text = nomutilisateur
|
|
ChromeTabcontrol1.TabPages.Add(TabPage6)
|
|
MsgBox("vous êtes connecter au compte de: " & TextBox8.Text, MsgBoxStyle.Information)
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/admin.txt")
|
|
If vri1 = 1 Then
|
|
Form1.Panel15.Show()
|
|
Else
|
|
Form1.Panel15.Hide()
|
|
End If
|
|
mailco()
|
|
End Sub
|
|
Sub co5()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/photo.png", doscompte & "photo.png")
|
|
Form1.PictureBox11.Image = Image.FromFile(doscompte & "\photo.png")
|
|
PictureBox8.Image = Form1.PictureBox11.Image
|
|
co4()
|
|
Catch ex As Exception
|
|
Timer12.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
|
|
Timer12.Stop()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/photo.png", doscompte & "\photo.png")
|
|
Form1.PictureBox11.Image = Image.FromFile(doscompte & "\photo.png")
|
|
PictureBox8.Image = Form1.PictureBox11.Image
|
|
co4()
|
|
Catch ex As Exception
|
|
Timer12.Start()
|
|
End Try
|
|
End Sub
|
|
Sub loadco()
|
|
PictureBox8.Image = Form1.PictureBox11.Image
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/extrème downloaders/utilisateur/" & nomutilisateur & "/vérification.txt")
|
|
If vri = 1 Then
|
|
ChromeCheckbox4.Checked = True
|
|
End If
|
|
loadco2()
|
|
End Sub
|
|
Sub levelup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "utilisateur/" & TextBox10.Text & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
XPup()
|
|
Catch ex As Exception
|
|
Timer14.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
|
|
Timer14.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "level.txt", ipserver & "utilisateur/" & TextBox10.Text & "/level.txt")
|
|
File.Delete(dostemps & "level.txt")
|
|
XPup()
|
|
Catch ex As Exception
|
|
Timer14.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ChromeCheckbox2_Click(sender As Object, e As EventArgs) Handles ChromeCheckbox2.Click
|
|
If ChromeCheckbox2.Checked = True Then
|
|
ChromeCheckbox3.Visible = True
|
|
Else
|
|
ChromeCheckbox3.Visible = False
|
|
End If
|
|
End Sub
|
|
Sub finiload()
|
|
Dim lines1() As String = File.ReadAllLines(setting)
|
|
If lines1(0) = 1 Then
|
|
ChromeCheckbox1.Checked = True
|
|
End If
|
|
If lines1(1) = 1 Then
|
|
ChromeCheckbox3.Visible = True
|
|
ChromeCheckbox2.Checked = True
|
|
End If
|
|
|
|
If lines1(2) = 1 Then
|
|
ChromeCheckbox3.Checked = True
|
|
ChromeCheckbox3.Visible = True
|
|
End If
|
|
|
|
If lines1(3) = 1 Then
|
|
ChromeCheckbox5.Checked = True
|
|
End If
|
|
|
|
Dim lines2() As String = File.ReadAllLines(setting2)
|
|
If lines2(0) = 0 Then
|
|
ComboBox3.SelectedItem = "Toujour me le demander"
|
|
Else
|
|
FolderBrowserDialog1.SelectedPath = (lines2(1))
|
|
ComboBox3.Items.Add(lines2(1))
|
|
ComboBox3.SelectedItem = (lines2(1))
|
|
End If
|
|
|
|
|
|
Dim lines3() As String = File.ReadAllLines(setting3)
|
|
If lines3(0) = 1 Then
|
|
ComboBox5.SelectedItem = "Ne rien faire"
|
|
ElseIf lines3(0) = 2 Then
|
|
ComboBox5.SelectedItem = "Ouvrir le dossier de destination"
|
|
ElseIf lines3(0) = 3 Then
|
|
ComboBox5.SelectedItem = "verrouiller la session"
|
|
ElseIf lines3(0) = 4 Then
|
|
ComboBox5.SelectedItem = "Fermer extrème downloaders"
|
|
ElseIf lines3(0) = 5 Then
|
|
ComboBox5.SelectedItem = "Arrêter l'ordinateur"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox3_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedValueChanged
|
|
If ComboBox3.SelectedItem = "Pacourir" Then
|
|
If FolderBrowserDialog1.ShowDialog = 1 Then
|
|
ComboBox3.Items.Clear()
|
|
ComboBox3.Items.Add("Toujour me le demander")
|
|
ComboBox3.Items.Add("Pacourir")
|
|
dosier2 = FolderBrowserDialog1.SelectedPath
|
|
ComboBox3.Items.Add(FolderBrowserDialog1.SelectedPath)
|
|
ComboBox3.SelectedItem = FolderBrowserDialog1.SelectedPath
|
|
dosier = 1
|
|
Else
|
|
ComboBox3.SelectedItem = "Toujour me le demander"
|
|
dosier = 0
|
|
End If
|
|
ElseIf ComboBox3.SelectedItem = "Toujour me le demander" Then
|
|
dosier = 0
|
|
Else
|
|
dosier2 = FolderBrowserDialog1.SelectedPath
|
|
dosier = 1
|
|
End If
|
|
End Sub
|
|
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
|
|
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")
|
|
Panel3.Hide()
|
|
Panel2.Hide()
|
|
ChromeTabcontrol1.TabPages.Remove(TabPage6)
|
|
PictureBox8.Image.Dispose()
|
|
Form1.PictureBox11.Image.Dispose()
|
|
Form1.PictureBox11.Image = My.Resources._1040005
|
|
File.Delete(doscompte & "photo.png")
|
|
Form1.NotifyIcon1.BalloonTipTitle = "déconnection"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous avez êtê deconnecter du compte " & nomutilisateur
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
MsgBox("vous êtes bien deconnecter du compte: " & nomutilisateur, MsgBoxStyle.Information)
|
|
Form1.Label18.Text = "se connecter"
|
|
nomutilisateur = ""
|
|
Form1.Panel15.Hide()
|
|
End Sub
|
|
|
|
Private Sub ChromeCheckbox4_Click(sender As Object, e As EventArgs) Handles ChromeCheckbox4.Click
|
|
If ChromeCheckbox4.Checked = True And vérification = 0 Then
|
|
Dim sw2 As New StreamWriter(dostemps & "vérification.txt")
|
|
sw2.WriteLine(1)
|
|
sw2.Close()
|
|
upvérificationchange()
|
|
ElseIf ChromeCheckbox4.Checked = False And vérification = 0 Then
|
|
Dim sw2 As New StreamWriter(dostemps & "vérification.txt")
|
|
sw2.WriteLine(0)
|
|
sw2.Close()
|
|
upvérificationchange()
|
|
End If
|
|
End Sub
|
|
Sub upvérificationchange()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "vérification.txt", ipserver & "utilisateur/" & nomutilisateur & "/vérification.txt")
|
|
upvérificationchangefini()
|
|
Catch ex As Exception
|
|
Timer15.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
|
|
Timer15.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "vérification.txt", ipserver & "utilisateur/" & nomutilisateur & "/vérification.txt")
|
|
upvérificationchangefini()
|
|
Catch ex As Exception
|
|
Timer15.Start()
|
|
End Try
|
|
End Sub
|
|
Sub upvérificationchangefini()
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "vérification.txt")
|
|
If lines1(0) = 1 Then
|
|
File.Delete(dostemps & "vérification.txt")
|
|
MsgBox("La double vérification est maintant activez", MsgBoxStyle.Information)
|
|
Else
|
|
File.Delete(dostemps & "vérification.txt")
|
|
MsgBox("La double vérification est maintant désactivez", MsgBoxStyle.Information)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
|
|
If OpenFileDialog2.ShowDialog = 1 Then
|
|
Form1.PictureBox11.Image.Dispose()
|
|
File.Delete(doscompte & "photo.png")
|
|
PictureBox8.Image = Image.FromFile(OpenFileDialog2.FileName)
|
|
PictureBox8.Image.Save(doscompte & "photo.png")
|
|
Form1.PictureBox11.Image = Image.FromFile(doscompte & "photo.png")
|
|
Try
|
|
My.Computer.Network.UploadFile(doscompte & "photo.png", ipserver & "utilisateur/" & nomutilisateur & "/photo.png")
|
|
MsgBox("votre photo de profil est bien êtê modifier", MsgBoxStyle.Information)
|
|
Catch ex As Exception
|
|
Timer16.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick
|
|
Timer16.Stop()
|
|
If OpenFileDialog2.ShowDialog = 1 Then
|
|
Form1.PictureBox11.Image.Dispose()
|
|
File.Delete(doscompte & "photo.png")
|
|
PictureBox8.Image = Image.FromFile(OpenFileDialog2.FileName)
|
|
PictureBox8.Image.Save(doscompte & "photo.png")
|
|
Form1.PictureBox11.Image = Image.FromFile(doscompte & "photo.png")
|
|
Try
|
|
My.Computer.Network.UploadFile(doscompte & "photo.png", ipserver & "utilisateur/" & nomutilisateur & "/photo.png")
|
|
MsgBox("votre photo de profil est bien êtê modifier", MsgBoxStyle.Information)
|
|
Catch ex As Exception
|
|
Timer16.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
|
|
Form17.ShowDialog()
|
|
End Sub
|
|
Sub créercompte10()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text & "/liste"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
créercompte11()
|
|
Catch ex As Exception
|
|
Timer17.Start()
|
|
End Try
|
|
End Sub
|
|
Sub créercompte11()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text & "/code de récupération/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
créercompte2()
|
|
Catch ex As Exception
|
|
Timer18.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
|
|
Timer17.Stop()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text & "/liste"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
créercompte11()
|
|
Catch ex As Exception
|
|
Timer17.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
|
|
Timer18.Stop()
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & TextBox10.Text & "/code de récupération"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
créercompte2()
|
|
Catch ex As Exception
|
|
Timer18.Start()
|
|
End Try
|
|
End Sub
|
|
Sub mailcréer()
|
|
If TextBox14.Visible = True Then
|
|
Dim MyMailMessage As New MailMessage()
|
|
Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
|
|
Dim mail = TextBox13.Text & TextBox14.Text
|
|
Dim message = "Bonjour, " & TextBox10.Text & vbNewLine & vbNewLine & "Bienvenue sur Extrème downloaders, vôtre compte a bien êtê créer !!! grâce a ce compte vous pourrez télécharger et publier des fichiers etc ... " & vbNewLine & vbNewLine & "vôtre nom d'utilisateur est: " & TextBox10.Text & vbNewLine & vbNewLine & "vôtre mots de passe est: " & TextBox11.Text & vbNewLine & vbNewLine & "lien de téléchargement de: Extrème downloaders" & vbNewLine & "http://Extreme-downloaders.fr/" & vbNewLine & vbNewLine & "Vous pouvez retrouvez en pièce jointe vos code de récupération qui vous permettras de récuperer votre compte en cas de probléme." & vbNewLine & vbNewLine & "Nous vous souhaitons une bonne journée."
|
|
MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
|
|
MyMailMessage.To.Add(mail)
|
|
MyMailMessage.Subject = ("compte Extrème downloaders")
|
|
MyMailMessage.Body = (message)
|
|
|
|
SMTPServer.Port = ("587") 'Port
|
|
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
|
|
SMTPServer.EnableSsl = True
|
|
|
|
Dim data = New Net.Mail.Attachment(dostemps & "code 1 de récupération " & TextBox10.Text & ".txt")
|
|
Dim data2 = New Net.Mail.Attachment(dostemps & "code 2 de récupération " & TextBox10.Text & ".txt")
|
|
Dim data3 = New Net.Mail.Attachment(dostemps & "code 3 de récupération " & TextBox10.Text & ".txt")
|
|
MyMailMessage.Attachments.Add(data)
|
|
MyMailMessage.Attachments.Add(data2)
|
|
MyMailMessage.Attachments.Add(data3)
|
|
SMTPServer.Send(MyMailMessage) 'Envoi
|
|
MyMailMessage.Attachments.Dispose()
|
|
cryptecode()
|
|
Else
|
|
Dim MyMailMessage As New MailMessage()
|
|
Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
|
|
Dim mail = TextBox13.Text & ComboBox2.SelectedItem
|
|
Dim message = "Bonjour, " & TextBox10.Text & vbNewLine & vbNewLine & "Bienvenue sur Extrème downloaders, vôtre compte a bien êtê créer !!! grâce a ce compte vous pourrez télécharger et publier des fichiers etc ... " & vbNewLine & vbNewLine & "vôtre nom d'utilisateur est: " & TextBox10.Text & vbNewLine & vbNewLine & "vôtre mots de passe est: " & TextBox11.Text & vbNewLine & vbNewLine & "lien de téléchargement de: Extrème downloaders" & vbNewLine & "http://Extreme-downloaders.fr/" & vbNewLine & vbNewLine & "Vous pouvez retrouvez en pièce jointe vos code de récupération qui vous permettras de récuperer votre compte en cas de probléme." & vbNewLine & vbNewLine & "Nous vous souhaitons une bonne journée."
|
|
MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
|
|
MyMailMessage.To.Add(mail)
|
|
MyMailMessage.Subject = ("compte Extrème downloaders")
|
|
MyMailMessage.Body = (message)
|
|
|
|
SMTPServer.Port = ("587") 'Port
|
|
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
|
|
SMTPServer.EnableSsl = True
|
|
|
|
Dim data = New Net.Mail.Attachment(dostemps & "code 1 de récupération " & TextBox10.Text & ".txt")
|
|
Dim data2 = New Net.Mail.Attachment(dostemps & "code 2 de récupération " & TextBox10.Text & ".txt")
|
|
Dim data3 = New Net.Mail.Attachment(dostemps & "code 3 de récupération " & TextBox10.Text & ".txt")
|
|
MyMailMessage.Attachments.Add(data)
|
|
MyMailMessage.Attachments.Add(data2)
|
|
MyMailMessage.Attachments.Add(data3)
|
|
SMTPServer.Send(MyMailMessage) 'Envoi
|
|
MyMailMessage.Attachments.Dispose()
|
|
cryptecode()
|
|
End If
|
|
End Sub
|
|
Sub cryptecode()
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "code 1 de récupération " & TextBox10.Text & ".txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "code 2 de récupération " & TextBox10.Text & ".txt")
|
|
Dim lines3() As String = File.ReadAllLines(dostemps & "code 3 de récupération " & TextBox10.Text & ".txt")
|
|
Dim code1 As String = lines1(0)
|
|
Dim code2 As String = lines2(0)
|
|
Dim code3 As String = lines3(0)
|
|
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostemps & info.Name)
|
|
Next
|
|
|
|
Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(code1.ToString)
|
|
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.CreateEncryptor
|
|
Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
|
|
Dim code1crypt = Convert.ToBase64String(Resultatbytes)
|
|
|
|
Dim t1 = dostemps & "code 1 de récupération " & TextBox10.Text & ".txt"
|
|
Dim sw1 As New StreamWriter(dostemps & "code 1 de récupération " & TextBox10.Text & ".txt")
|
|
sw1.WriteLine(code1crypt)
|
|
sw1.Close()
|
|
|
|
Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(code2.ToString)
|
|
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
|
Dim Crypto2 As New DESCryptoServiceProvider()
|
|
Crypto2.Key = keyBytes2
|
|
Crypto2.IV = keyBytes2
|
|
Dim Icrypto2 As ICryptoTransform = Crypto2.CreateEncryptor
|
|
Dim Resultatbytes2() As Byte = Icrypto2.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
|
|
Dim code1crypt2 = Convert.ToBase64String(Resultatbytes2)
|
|
|
|
Dim t2 = dostemps & "code 2 de récupération " & TextBox10.Text & ".txt"
|
|
Dim sw2 As New StreamWriter(dostemps & "code 2 de récupération " & TextBox10.Text & ".txt")
|
|
sw2.WriteLine(code1crypt2)
|
|
sw2.Close()
|
|
|
|
Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(code3.ToString)
|
|
Dim keyBytes3() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
|
Dim Crypto3 As New DESCryptoServiceProvider()
|
|
Crypto3.Key = keyBytes3
|
|
Crypto3.IV = keyBytes3
|
|
Dim Icrypto3 As ICryptoTransform = Crypto3.CreateEncryptor
|
|
Dim Resultatbytes3() As Byte = Icrypto3.TransformFinalBlock(texteEnBytes3, 0, texteEnBytes3.Length)
|
|
Dim code1crypt3 = Convert.ToBase64String(Resultatbytes3)
|
|
|
|
Dim t3 = dostemps & "code 3 de récupération " & TextBox10.Text & ".txt"
|
|
Dim sw3 As New StreamWriter(dostemps & "code 3 de récupération " & TextBox10.Text & ".txt")
|
|
sw3.WriteLine(code1crypt3)
|
|
sw3.Close()
|
|
upcode()
|
|
|
|
End Sub
|
|
Sub upcode()
|
|
Try
|
|
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
My.Computer.Network.UploadFile(dostemps & info.Name, ipserver & "utilisateur/" & TextBox10.Text & "/code de récupération/" & info.Name)
|
|
Next
|
|
créercomtpefini2()
|
|
Catch ex As Exception
|
|
Timer19.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
|
|
Timer19.Stop()
|
|
Try
|
|
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
My.Computer.Network.UploadFile(dostemps & info.Name, ipserver & "utilisateur/" & TextBox10.Text & "/code de récupération/" & info.Name)
|
|
Next
|
|
créercomtpefini2()
|
|
Catch ex As Exception
|
|
Timer19.Start()
|
|
End Try
|
|
End Sub
|
|
Sub créercomtpefini2()
|
|
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostemps & info.Name)
|
|
Next
|
|
Panel2.Enabled = True
|
|
Me.UseWaitCursor = False
|
|
MsgBox("le comtpe: " & TextBox10.Text & " a bien êtê créer", MsgBoxStyle.Information)
|
|
Panel2.Hide()
|
|
End Sub
|
|
|
|
Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
|
|
If TextBox8.Text = "" Then
|
|
MsgBox("merci d'entrer un pseudo", MsgBoxStyle.Critical)
|
|
Else
|
|
vifificomptemail()
|
|
End If
|
|
End Sub
|
|
Sub mailpassoubli()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/mail.txt", dostemps & "mail.txt")
|
|
mailpassoubli2()
|
|
Catch ex As Exception
|
|
Timer21.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
|
|
Timer20.Stop()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/pass.txt", dostemps & "pass.txt")
|
|
mailpassoubli()
|
|
Catch ex As Exception
|
|
Timer20.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
|
|
Timer21.Stop()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/mail.txt", dostemps & "mail.txt")
|
|
mailpassoubli2()
|
|
Catch ex As Exception
|
|
Timer21.Start()
|
|
End Try
|
|
End Sub
|
|
Sub mailpassoubli2()
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "pass.txt")
|
|
Dim lines2() As String = File.ReadAllLines(dostemps & "mail.txt")
|
|
|
|
|
|
Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
|
|
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 passdecrypte = Encoding.UTF8.GetString(donné)
|
|
|
|
Dim Resultatbytes2() As Byte = Convert.FromBase64String(lines2(0))
|
|
Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
|
|
Dim Crypto2 As New DESCryptoServiceProvider()
|
|
Crypto2.Key = keyBytes2
|
|
Crypto2.IV = keyBytes2
|
|
Dim Icrypto2 As ICryptoTransform = Crypto2.CreateDecryptor()
|
|
Dim donné2() As Byte = Icrypto2.TransformFinalBlock(Resultatbytes2, 0, Resultatbytes2.Length)
|
|
Dim maildecrypte = Encoding.UTF8.GetString(donné2)
|
|
|
|
Dim MyMailMessage As New MailMessage()
|
|
Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
|
|
Dim mail = maildecrypte
|
|
Dim message = "Bonjour, " & TextBox8.Text & vbNewLine & vbNewLine & "vous avez demmander votre mots de passe" & vbNewLine & vbNewLine & "votre mots de passe est: " & passdecrypte
|
|
MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
|
|
MyMailMessage.To.Add(mail)
|
|
MyMailMessage.Subject = ("mots de passe oublier")
|
|
MyMailMessage.Body = (message)
|
|
|
|
SMTPServer.Port = ("587") 'Port
|
|
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
|
|
SMTPServer.EnableSsl = True
|
|
|
|
SMTPServer.Send(MyMailMessage)
|
|
|
|
For Each fichier As String In IO.Directory.GetFiles(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostemps & info.Name)
|
|
Next
|
|
|
|
MsgBox("le mots de passe vous a êtê envoyer par mail", MsgBoxStyle.Information)
|
|
|
|
End Sub
|
|
Sub vifificomptemail()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
If Directory.Exists(dostemps & TextBox8.Text) = True Then
|
|
vifificomptemail2()
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
|
|
End If
|
|
Catch ex As Exception
|
|
Timer22.Start()
|
|
End Try
|
|
End Sub
|
|
Sub vifificomptemail2()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/pass.txt", dostemps & "pass.txt")
|
|
mailpassoubli()
|
|
Catch ex As Exception
|
|
Timer20.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
|
|
Timer22.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
If Directory.Exists(dostemps & TextBox8.Text) = True Then
|
|
vifificomptemail2()
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
|
|
End If
|
|
Catch ex As Exception
|
|
Timer22.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
|
|
If TextBox8.Text = "" Then
|
|
MsgBox("merci d'entrer un pseudo", MsgBoxStyle.Critical)
|
|
Else
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
If Directory.Exists(dostemps & TextBox8.Text) = True Then
|
|
Form18.ShowDialog()
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
|
|
End If
|
|
Catch ex As Exception
|
|
Timer23.Start()
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
|
|
Timer23.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
If Directory.Exists(dostemps & TextBox8.Text) = True Then
|
|
Form18.ShowDialog()
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Else
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
MsgBox("Le pseudo: " & TextBox8.Text & " exsite pas", MsgBoxStyle.Critical)
|
|
End If
|
|
Catch ex As Exception
|
|
Timer23.Start()
|
|
End Try
|
|
End Sub
|
|
Sub loadco2()
|
|
ComboBox4.Items.Clear()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
ComboBox4.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ComboBox4.Items.Count = 0 Then
|
|
Button22.Hide()
|
|
Label18.Hide()
|
|
ComboBox4.Hide()
|
|
TextBox15.Hide()
|
|
PictureBox9.Hide()
|
|
finiload()
|
|
Else
|
|
ComboBox4.SelectedIndex = 0
|
|
finiload()
|
|
End If
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
Timer24.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick
|
|
Timer24.Stop()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
ComboBox4.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ComboBox4.Items.Count = 0 Then
|
|
ComboBox4.Hide()
|
|
TextBox15.Hide()
|
|
PictureBox9.Hide()
|
|
finiload()
|
|
Else
|
|
ComboBox4.SelectedIndex = 0
|
|
finiload()
|
|
End If
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
Timer24.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ComboBox4_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedValueChanged
|
|
ListBox1.Items.Clear()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
ListBox1.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox1.Items.Count = 0 Then
|
|
Label18.Text = "aucun fichier trouver dans: " & ComboBox4.SelectedItem
|
|
Label18.Show()
|
|
Else
|
|
Label18.Hide()
|
|
End If
|
|
TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
|
|
|
|
Catch ex As Exception
|
|
Timer25.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer25_Tick(sender As Object, e As EventArgs) Handles Timer25.Tick
|
|
Timer25.Stop()
|
|
ListBox1.Items.Clear()
|
|
Try
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
|
|
ListBox1.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If ListBox1.Items.Count = 0 Then
|
|
Label18.Text = "aucun fichier trouver dans: " & ComboBox4.SelectedItem
|
|
Label18.Show()
|
|
Else
|
|
Label18.Hide()
|
|
|
|
End If
|
|
TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
|
|
|
|
Catch ex As Exception
|
|
Timer25.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TextBox15_Click(sender As Object, e As EventArgs) Handles TextBox15.Click
|
|
TextBox15.Clear()
|
|
End Sub
|
|
|
|
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
|
|
If ListBox1.Items.Count = 0 Then
|
|
TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
|
|
MsgBox("aucun fichier trouvez dans " & ComboBox4.SelectedItem, MsgBoxStyle.Information)
|
|
Timer25.Start()
|
|
Else
|
|
If TextBox15.Text = "" Or TextBox15.Text = " " Or TextBox15.Text = " " Or TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem Then
|
|
TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
|
|
Timer25.Start()
|
|
Else
|
|
Try
|
|
ListBox1.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox15.Text) = True Then
|
|
ListBox1.Items.Add(TextBox15.Text)
|
|
TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
|
|
Else
|
|
MsgBox("Le fichier: " & TextBox15.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer25.Start()
|
|
End If
|
|
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer26.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer26_Tick(sender As Object, e As EventArgs) Handles Timer26.Tick
|
|
Timer26.Stop()
|
|
If ListBox1.Items.Count = 0 Then
|
|
TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
|
|
MsgBox("aucun fichier trouvez dans " & ComboBox4.SelectedItem, MsgBoxStyle.Information)
|
|
Timer25.Start()
|
|
Else
|
|
If TextBox15.Text = "" Or TextBox15.Text = " " Or TextBox15.Text = " " Or TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem Then
|
|
TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
|
|
Timer25.Start()
|
|
Else
|
|
Try
|
|
ListBox1.Items.Clear()
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/")
|
|
fwr.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
Directory.CreateDirectory(dostemps & str)
|
|
|
|
|
|
str = sr.ReadLine()
|
|
|
|
End While
|
|
sr.Close()
|
|
|
|
If Directory.Exists(dostemps & TextBox15.Text) = True Then
|
|
ListBox1.Items.Add(TextBox15.Text)
|
|
TextBox15.Text = "rechercher dans " & ComboBox4.SelectedItem
|
|
Else
|
|
MsgBox("Le fichier: " & TextBox15.Text & " que vous chercher n'est pas disponible ou vous l'avait mal écrit", MsgBoxStyle.Exclamation)
|
|
Timer25.Start()
|
|
End If
|
|
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dostemps)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Directory.Delete(dostemps & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
Timer26.Start()
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
|
|
Form21.ShowDialog()
|
|
End Sub
|
|
Sub mailco()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/mail.txt", dostemps & "mail.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "mail.txt")
|
|
Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
|
|
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é)
|
|
|
|
Dim MyMailMessage As New MailMessage()
|
|
Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
|
|
Dim mail = a7
|
|
Dim message = "Bonjour, " & TextBox8.Text & vbNewLine & vbNewLine & "une nouvelle connection a votre compte a êtê détecter" & vbNewLine & vbNewLine & "nom de la machine: " & My.Computer.Name & vbNewLine & vbNewLine & "sytème d'exploitation: " & My.Computer.Info.OSFullName & vbNewLine & vbNewLine & vbNewLine & "si vous n'êtes pas a l'origine de cette connecter merci de modifier votre mots de passe"
|
|
MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
|
|
MyMailMessage.To.Add(mail)
|
|
MyMailMessage.Subject = ("nouvelle connection")
|
|
MyMailMessage.Body = (message)
|
|
|
|
SMTPServer.Port = ("587") 'Port
|
|
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
|
|
SMTPServer.EnableSsl = True
|
|
|
|
SMTPServer.Send(MyMailMessage)
|
|
|
|
File.Delete(dostemps & "mail.txt")
|
|
loadco2()
|
|
Catch ex As Exception
|
|
Timer27.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click
|
|
If TextBox9.UseSystemPasswordChar = True Then
|
|
TextBox9.UseSystemPasswordChar = False
|
|
Else
|
|
TextBox9.UseSystemPasswordChar = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer27_Tick(sender As Object, e As EventArgs) Handles Timer27.Tick
|
|
Timer27.Stop()
|
|
Try
|
|
My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/utilisateur/" & TextBox8.Text & "/mail.txt", dostemps & "mail.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostemps & "mail.txt")
|
|
Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
|
|
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é)
|
|
|
|
Dim MyMailMessage As New MailMessage()
|
|
Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
|
|
Dim mail = a7
|
|
Dim message = "Bonjour, " & TextBox8.Text & vbNewLine & vbNewLine & "une nouvelle connection a votre compte a êtê détecter" & vbNewLine & vbNewLine & "nom de la machine: " & My.Computer.Name & vbNewLine & vbNewLine & "sytème d'exploitation: " & My.Computer.Info.OSFullName & vbNewLine & vbNewLine & vbNewLine & "si vous n'êtes pas a l'origine de cette connecter merci de modifier votre mots de passe"
|
|
MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
|
|
MyMailMessage.To.Add(mail)
|
|
MyMailMessage.Subject = ("nouvelle connection")
|
|
MyMailMessage.Body = (message)
|
|
|
|
SMTPServer.Port = ("587") 'Port
|
|
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
|
|
SMTPServer.EnableSsl = True
|
|
|
|
SMTPServer.Send(MyMailMessage)
|
|
|
|
File.Delete(dostemps & "mail.txt")
|
|
|
|
loadco2()
|
|
Catch ex As Exception
|
|
Timer27.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TéléchargerLeFichierSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TéléchargerLeFichierSelectionnezToolStripMenuItem.Click
|
|
|
|
If ListBox1.SelectedItem = "" Then
|
|
MsgBox("merci de selectionnez un fichier", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form25.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click
|
|
If TextBox11.UseSystemPasswordChar = True Then
|
|
TextBox11.UseSystemPasswordChar = False
|
|
Else
|
|
TextBox11.UseSystemPasswordChar = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
|
|
If TextBox12.UseSystemPasswordChar = True Then
|
|
TextBox12.UseSystemPasswordChar = False
|
|
Else
|
|
TextBox12.UseSystemPasswordChar = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
|
|
Process.Start("http://kryptons.duckdns.org/?page_id=40")
|
|
End Sub
|
|
|
|
Private Sub SupprimerLeFichierSelectionnezToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerLeFichierSelectionnezToolStripMenuItem.Click
|
|
If ListBox1.SelectedItem = "" Then
|
|
MsgBox("merci de selectionnez un fichier", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Dim msg = MsgBox("voulez vous vraiment supprimer: " & ListBox1.SelectedItem & "?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
delfichierliste()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
End Sub
|
|
Sub delfichierliste()
|
|
Try
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/" & ListBox1.SelectedItem & "/download.txt")
|
|
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
delfichierliste2
|
|
Catch ex As Exception
|
|
Timer28.Start()
|
|
End Try
|
|
|
|
End Sub
|
|
Sub delfichierliste2()
|
|
Try
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/" & ListBox1.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
MsgBox("Le fichier: " & ListBox1.SelectedItem & " a êtê supprimer de la liste: " & ComboBox4.SelectedItem, MsgBoxStyle.Information)
|
|
loadco2()
|
|
Catch ex As Exception
|
|
Timer29.Start()
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Timer28_Tick(sender As Object, e As EventArgs) Handles Timer28.Tick
|
|
Timer28.Stop()
|
|
Try
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/" & ListBox1.SelectedItem & "/" & ListBox1.SelectedItem & ".zip")
|
|
ftreq.Method = WebRequestMethods.Ftp.DeleteFile
|
|
ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
delfichierliste2()
|
|
Catch ex As Exception
|
|
Timer28.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer29_Tick(sender As Object, e As EventArgs) Handles Timer29.Tick
|
|
Timer29.Stop()
|
|
Try
|
|
Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/" & ListBox1.SelectedItem & "/")
|
|
ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
|
|
ftreq.Credentials = New NetworkCredential("extremedownloaders", passftp)
|
|
Dim ftpresp As FtpWebResponse = ftreq.GetResponse
|
|
MsgBox("Le fichier: " & ListBox1.SelectedItem & " a êtê supprimer de la liste: " & ComboBox4.SelectedItem, MsgBoxStyle.Information)
|
|
loadco2()
|
|
Catch ex As Exception
|
|
Timer29.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
|
|
Dim msg = MsgBox("voulez vous vraiment supprimer Extrème downloaders ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
|
|
PictureBox8.Image.Dispose()
|
|
Form1.PictureBox11.Image.Dispose()
|
|
|
|
For Each fichier1 As String In IO.Directory.GetDirectories(dosrepertoire)
|
|
Dim info As New IO.FileInfo(fichier1)
|
|
Directory.Delete(fichier1, recursive:=True)
|
|
Next
|
|
Directory.Delete(dosrepertoire)
|
|
MsgBox("Les donnés de Extrème downloaders on êtê supprimer il vous reste plus qu'a supprimer Extrème downloaders.exe il se trouve: " & vbNewLine & vbNewLine & Application.StartupPath, MsgBoxStyle.Information)
|
|
Process.Start(Application.StartupPath)
|
|
End
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
|
Form26.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
|
|
Dim msg = MsgBox("voulez vous vraiment supprimer votre compte ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
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")
|
|
Panel3.Hide()
|
|
Panel2.Hide()
|
|
ChromeTabcontrol1.TabPages.Remove(TabPage6)
|
|
PictureBox8.Image.Dispose()
|
|
Form1.PictureBox11.Image.Dispose()
|
|
Form1.PictureBox11.Image = My.Resources._1040005
|
|
File.Delete(doscompte & "photo.png")
|
|
Form1.Label18.Text = "se connecter"
|
|
Dim nom = "Le compte: " & nomutilisateur & " souhaite supprimer sont compte."
|
|
|
|
Dim Message As String = nom
|
|
|
|
Dim MyMailMessage As New MailMessage()
|
|
Dim SMTPServer As New SmtpClient("mail51.lwspanel.com")
|
|
|
|
MyMailMessage.From = New MailAddress("noreply@extreme-downloaders.fr")
|
|
MyMailMessage.To.Add("contact@extreme-downloaders.fr")
|
|
MyMailMessage.To.Add("yoannmultigamig@gmail.com")
|
|
MyMailMessage.To.Add("adamnoah1511@yahoo.com")
|
|
|
|
MyMailMessage.Subject = ("suppression de compte")
|
|
MyMailMessage.Body = (Message)
|
|
|
|
SMTPServer.Port = ("587") 'Port
|
|
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@extreme-downloaders.fr", "yR9$sGrjZDwDMdA")
|
|
SMTPServer.EnableSsl = True
|
|
|
|
SMTPServer.Send(MyMailMessage) 'Envoi
|
|
|
|
nomutilisateur = ""
|
|
|
|
MsgBox("Une demmannde de suppression de compte a êtê envoyer a l'équipe de Extrème downloaders", MsgBoxStyle.Information)
|
|
MsgBox("La suppression de compte peux prendre plusieur jours", MsgBoxStyle.Information)
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
|
|
Form27.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
|
|
Dim msg = MsgBox("voulez vous vraiment supprimer la liste: " & ComboBox4.SelectedItem, MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
Try
|
|
Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "utilisateur/" & nomutilisateur & "/liste/" & ComboBox4.SelectedItem & "/"), System.Net.FtpWebRequest)
|
|
Dim ftpStream As Stream = Nothing
|
|
|
|
MaRequete.Credentials = New System.Net.NetworkCredential("extremedownloaders", passftp)
|
|
MaRequete.Method = System.Net.WebRequestMethods.Ftp.RemoveDirectory
|
|
|
|
Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
|
|
ftpStream = response.GetResponseStream
|
|
ftpStream.Close()
|
|
response.Close()
|
|
MsgBox("La liste: " & ComboBox4.SelectedItem & " a bien êtê supprimer", MsgBoxStyle.Information)
|
|
If ComboBox4.Items.Count = 1 Then
|
|
ComboBox4.Items.Remove(ComboBox4.SelectedItem)
|
|
Button22.Hide()
|
|
ComboBox4.Hide()
|
|
TextBox15.Hide()
|
|
PictureBox9.Hide()
|
|
Label18.Hide()
|
|
Else
|
|
ComboBox4.Items.Remove(ComboBox4.SelectedItem)
|
|
ComboBox4.SelectedIndex = 0
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox("merci de supprimer tout le fichier dans la liste: " & ComboBox4.SelectedItem, MsgBoxStyle.Exclamation)
|
|
End Try
|
|
Else
|
|
MsgBox("acction annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End Sub
|
|
Private Sub ComboBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedValueChanged
|
|
If ComboBox5.SelectedItem = "Ne rien faire" Then
|
|
set2 = 1
|
|
ElseIf ComboBox5.SelectedItem = "Ouvrir le dossier de destination" Then
|
|
set2 = 2
|
|
ElseIf ComboBox5.SelectedItem = "verrouiller la session" Then
|
|
set2 = 3
|
|
ElseIf ComboBox5.SelectedItem = "Fermer extrème downloaders" Then
|
|
set2 = 4
|
|
ElseIf ComboBox5.SelectedItem = "Arrêter l'ordinateur" Then
|
|
set2 = 5
|
|
End If
|
|
End Sub
|
|
Sub XPup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "utilisateur/" & TextBox10.Text & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
upup()
|
|
Catch ex As Exception
|
|
Timer13.Start()
|
|
End Try
|
|
End Sub
|
|
Sub upup()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "up.txt", ipserver & "utilisateur/" & TextBox10.Text & "/up.txt")
|
|
File.Delete(dostemps & "up.txt")
|
|
créercomtpefini()
|
|
Catch ex As Exception
|
|
Timer30.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
|
|
Timer13.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "XP.txt", ipserver & "utilisateur/" & TextBox10.Text & "/XP.txt")
|
|
File.Delete(dostemps & "XP.txt")
|
|
upup()
|
|
Catch ex As Exception
|
|
Timer13.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer30_Tick(sender As Object, e As EventArgs) Handles Timer30.Tick
|
|
Timer30.Stop()
|
|
Try
|
|
My.Computer.Network.UploadFile(dostemps & "up.txt", ipserver & "utilisateur/" & TextBox10.Text & "/up.txt")
|
|
File.Delete(dostemps & "up.txt")
|
|
créercomtpefini()
|
|
Catch ex As Exception
|
|
Timer30.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
|
|
Dim maj1 As New WebClient
|
|
Dim vri1 As String = maj1.DownloadString(ipsite & "extrème downloaders/utilisateur/" & nomutilisateur & "/money.txt")
|
|
If vri1 = 0 Then
|
|
MsgBox("vos n'avez pas de PB's", MsgBoxStyle.Exclamation)
|
|
Else
|
|
Form46.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
|
|
|
|
End Sub
|
|
End Class |