first commit
This commit is contained in:
@@ -0,0 +1,321 @@
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Net.Mail
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Text
|
||||
|
||||
Public Class signalezplaylist
|
||||
Dim nom As String = ""
|
||||
Dim catégorie As String = ""
|
||||
Dim maillecteur As String = ""
|
||||
Private Sub signalezplaylist_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Dim lines1a() As String = File.ReadAllLines(théme)
|
||||
|
||||
If lines1a(0) = 2 Then
|
||||
Me.BackColor = Color.FromArgb(64, 64, 64)
|
||||
Label1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
TextBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
GunaAdvenceButton1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
GunaAdvenceButton1.OnHoverBaseColor = Color.FromArgb(64, 64, 64)
|
||||
GunaAdvenceButton1.OnHoverBorderColor = Color.FromArgb(64, 64, 64)
|
||||
GunaAdvenceButton1.OnHoverLineColor = Color.FromArgb(64, 64, 64)
|
||||
GunaAdvenceButton1.OnPressedColor = Color.FromArgb(64, 64, 64)
|
||||
GunaAdvenceButton1.LineColor = Color.FromArgb(64, 64, 64)
|
||||
GunaAdvenceButton1.BaseColor = Color.FromArgb(64, 64, 64)
|
||||
GunaAdvenceButton1.ForeColor = Color.White
|
||||
GunaAdvenceButton1.OnHoverForeColor = Color.White
|
||||
Label1.ForeColor = Color.White
|
||||
TextBox1.ForeColor = Color.White
|
||||
ElseIf lines1a(0) = 3 Then
|
||||
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
GunaAdvenceButton1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
GunaAdvenceButton1.OnHoverBaseColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
GunaAdvenceButton1.OnHoverBorderColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
GunaAdvenceButton1.OnHoverLineColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
GunaAdvenceButton1.OnPressedColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
GunaAdvenceButton1.LineColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
GunaAdvenceButton1.BaseColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
GunaAdvenceButton1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
GunaAdvenceButton1.OnHoverForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
TextBox1.Clear()
|
||||
If payliststorelit = 1 Then
|
||||
Me.Text = "Signalez: " & playliststore.ListBox1.SelectedItem
|
||||
GunaAdvenceButton1.Text = "Signalez: " & playliststore.ListBox1.SelectedItem
|
||||
nom = playliststore.ListBox1.SelectedItem
|
||||
catégorie = "autre"
|
||||
ElseIf payliststorelit = 2 Then
|
||||
Me.Text = "signalez: " & playliststore.ListBox2.SelectedItem
|
||||
GunaAdvenceButton1.Text = "Signalez: " & playliststore.ListBox2.SelectedItem
|
||||
nom = playliststore.ListBox2.SelectedItem
|
||||
catégorie = "classique"
|
||||
ElseIf payliststorelit = 3 Then
|
||||
Me.Text = "signalez: " & playliststore.ListBox3.SelectedItem
|
||||
GunaAdvenceButton1.Text = "Signalez: " & playliststore.ListBox3.SelectedItem
|
||||
nom = playliststore.ListBox3.SelectedItem
|
||||
catégorie = "jazz"
|
||||
ElseIf payliststorelit = 4 Then
|
||||
Me.Text = "signalez: " & playliststore.ListBox4.SelectedItem
|
||||
GunaAdvenceButton1.Text = "Signalez: " & playliststore.ListBox4.SelectedItem
|
||||
nom = playliststore.ListBox4.SelectedItem
|
||||
catégorie = "rap"
|
||||
ElseIf payliststorelit = 5 Then
|
||||
Me.Text = "signalez: " & playliststore.ListBox5.SelectedItem
|
||||
GunaAdvenceButton1.Text = "Signalez: " & playliststore.ListBox5.SelectedItem
|
||||
nom = playliststore.ListBox5.SelectedItem
|
||||
catégorie = "youtube"
|
||||
ElseIf payliststorelit = 6 Then
|
||||
Me.Text = "signalez: " & playliststore.ListBox6.SelectedItem
|
||||
GunaAdvenceButton1.Text = "Signalez: " & playliststore.ListBox6.SelectedItem
|
||||
nom = playliststore.ListBox6.SelectedItem
|
||||
catégorie = "libre de droit"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GunaAdvenceButton1_Click(sender As Object, e As EventArgs) Handles GunaAdvenceButton1.Click
|
||||
If TextBox1.Text = "" Then
|
||||
MsgBox("Merci d'expliquer le signalement", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
Try
|
||||
If My.Computer.Network.Ping("www.google.com") = True Then
|
||||
mal1()
|
||||
Else
|
||||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Critical)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
Sub mail()
|
||||
Try
|
||||
Dim maj As New WebClient
|
||||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/passmail.txt")
|
||||
Dim MyMailMessage As New MailMessage()
|
||||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||||
Dim mail = "contact@lecteur-media.fr"
|
||||
Dim message = "La playlist: " & nom & vbNewLine & "catégorie: " & catégorie & vbNewLine & "signaler par un utilisateur" & vbNewLine & vbNewLine & "explication du signalement: " & vbNewLine & vbNewLine & TextBox1.Text
|
||||
|
||||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||||
MyMailMessage.To.Add(mail)
|
||||
MyMailMessage.Subject = ("playlist signalé")
|
||||
MyMailMessage.Body = (message)
|
||||
|
||||
SMTPServer.Port = ("587") 'Port
|
||||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", vri)
|
||||
SMTPServer.EnableSsl = True
|
||||
|
||||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||||
nom = ""
|
||||
catégorie = ""
|
||||
payliststorelit = 0
|
||||
MsgBox("Le signalement a été transmis au staff", MsgBoxStyle.Information)
|
||||
Close()
|
||||
Catch ex As Exception
|
||||
Timer1.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||||
Timer1.Stop()
|
||||
Try
|
||||
Dim maj As New WebClient
|
||||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/passmail.txt")
|
||||
Dim MyMailMessage As New MailMessage()
|
||||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||||
Dim mail = "contact@lecteur-media.fr"
|
||||
Dim message = "La playlist: " & nom & vbNewLine & "catégorie: " & catégorie & vbNewLine & "signaler par un utilisateur" & vbNewLine & vbNewLine & "explication du signalement: " & vbNewLine & vbNewLine & TextBox1.Text
|
||||
|
||||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||||
MyMailMessage.To.Add(mail)
|
||||
MyMailMessage.Subject = ("playlist signalé")
|
||||
MyMailMessage.Body = (message)
|
||||
|
||||
SMTPServer.Port = ("587") 'Port
|
||||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", vri)
|
||||
SMTPServer.EnableSsl = True
|
||||
|
||||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||||
nom = ""
|
||||
catégorie = ""
|
||||
payliststorelit = 0
|
||||
MsgBox("Le signalement a été transmis au staff", MsgBoxStyle.Information)
|
||||
Close()
|
||||
Catch ex As Exception
|
||||
Timer1.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub mal1()
|
||||
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
||||
If lines1(0) = 0 Then
|
||||
mail()
|
||||
Else
|
||||
mail2
|
||||
End If
|
||||
End Sub
|
||||
Sub mail2()
|
||||
Try
|
||||
Dim lines1() As String = File.ReadAllLines(compteco)
|
||||
Dim maj As New WebClient
|
||||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/passmail.txt")
|
||||
Dim MyMailMessage As New MailMessage()
|
||||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||||
Dim mail = "contact@lecteur-media.fr"
|
||||
Dim message = "La playlist: " & nom & vbNewLine & "catégorie: " & catégorie & vbNewLine & "signaler par: " & lines1(0) & vbNewLine & vbNewLine & "explication du signalement: " & vbNewLine & vbNewLine & TextBox1.Text
|
||||
|
||||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||||
MyMailMessage.To.Add(mail)
|
||||
MyMailMessage.Subject = ("playlist signalé")
|
||||
MyMailMessage.Body = (message)
|
||||
|
||||
SMTPServer.Port = ("587") 'Port
|
||||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", vri)
|
||||
SMTPServer.EnableSsl = True
|
||||
|
||||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||||
mail3()
|
||||
Catch ex As Exception
|
||||
Timer2.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
Timer2.Stop()
|
||||
Try
|
||||
Dim lines1() As String = File.ReadAllLines(compteco)
|
||||
Dim maj As New WebClient
|
||||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/passmail.txt")
|
||||
Dim MyMailMessage As New MailMessage()
|
||||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||||
Dim mail = "contact@lecteur-media.fr"
|
||||
Dim message = "La playlist: " & nom & vbNewLine & "catégorie: " & catégorie & vbNewLine & "signaler par: " & lines1(0) & vbNewLine & vbNewLine & "explication du signalement: " & vbNewLine & vbNewLine & TextBox1.Text
|
||||
|
||||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||||
MyMailMessage.To.Add(mail)
|
||||
MyMailMessage.Subject = ("playlist signalé")
|
||||
MyMailMessage.Body = (message)
|
||||
|
||||
SMTPServer.Port = ("587") 'Port
|
||||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", vri)
|
||||
SMTPServer.EnableSsl = True
|
||||
|
||||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||||
mail3()
|
||||
Catch ex As Exception
|
||||
Timer2.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub mail3()
|
||||
Try
|
||||
Dim lines1() As String = File.ReadAllLines(compteco)
|
||||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & lines1(0) & "/mail.txt", cozip & "mail.txt")
|
||||
mail4()
|
||||
Catch ex As Exception
|
||||
Timer3.Start()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
||||
Timer3.Stop()
|
||||
Try
|
||||
Dim lines1() As String = File.ReadAllLines(comtpeco2)
|
||||
My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & lines1(0) & "/mail.txt", cozip & "mail.txt")
|
||||
mail4()
|
||||
Catch ex As Exception
|
||||
Timer3.Start()
|
||||
End Try
|
||||
End Sub
|
||||
Sub mail4()
|
||||
Dim lines1() As String = File.ReadAllLines(cozip & "/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 maildecrypt = Encoding.UTF8.GetString(donné)
|
||||
maillecteur = maildecrypt.ToString
|
||||
Try
|
||||
Dim maj As New WebClient
|
||||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/passmail.txt")
|
||||
Dim MyMailMessage As New MailMessage()
|
||||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||||
Dim mail = maildecrypt.ToString
|
||||
Dim message = "Votre signalement sur La playlist: " & nom & vbNewLine & "catégorie: " & catégorie & vbNewLine & vbNewLine & "A bien été transmis au staff" & vbNewLine & vbNewLine & vbNewLine & "Merci de ne pas répondre ceci est un message automatique 👍👍👍"
|
||||
|
||||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||||
MyMailMessage.To.Add(mail)
|
||||
MyMailMessage.Subject = ("playlist signalé")
|
||||
MyMailMessage.Body = (message)
|
||||
|
||||
SMTPServer.Port = ("587") 'Port
|
||||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", vri)
|
||||
SMTPServer.EnableSsl = True
|
||||
|
||||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||||
nom = ""
|
||||
catégorie = ""
|
||||
payliststorelit = 0
|
||||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(cozip & info.Name)
|
||||
Next
|
||||
MsgBox("Le signalement a été transmis au staff", MsgBoxStyle.Information)
|
||||
Close()
|
||||
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()
|
||||
Dim lines1() As String = File.ReadAllLines(cozip & "/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 maildecrypt = Encoding.UTF8.GetString(donné)
|
||||
maillecteur = maildecrypt.ToString
|
||||
Try
|
||||
Dim maj As New WebClient
|
||||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/passmail.txt")
|
||||
Dim MyMailMessage As New MailMessage()
|
||||
Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
|
||||
Dim mail = maildecrypt.ToString
|
||||
Dim message = "Votre signalement sur La playlist: " & nom & vbNewLine & "catégorie: " & catégorie & vbNewLine & vbNewLine & "A été transmis au staff" & vbNewLine & vbNewLine & vbNewLine & "Merci de ne pas répondre ceci est un message automatique 👍👍👍"
|
||||
|
||||
MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
|
||||
MyMailMessage.To.Add(mail)
|
||||
MyMailMessage.Subject = ("playlist signalé")
|
||||
MyMailMessage.Body = (message)
|
||||
|
||||
SMTPServer.Port = ("587") 'Port
|
||||
SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", vri)
|
||||
SMTPServer.EnableSsl = True
|
||||
|
||||
SMTPServer.Send(MyMailMessage) 'Envoi
|
||||
nom = ""
|
||||
catégorie = ""
|
||||
payliststorelit = 0
|
||||
For Each fichier As String In IO.Directory.GetFiles(cozip)
|
||||
Dim info As New IO.FileInfo(fichier)
|
||||
File.Delete(cozip & info.Name)
|
||||
Next
|
||||
MsgBox("Le signalement a été transmis au staff", MsgBoxStyle.Information)
|
||||
Close()
|
||||
Catch ex As Exception
|
||||
Timer4.Start()
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user