Gmail Spammer

'#################################################'
'# Coded By John O'Neill From FiveStarGamerz.Com #'
'#                                               #'
'# Feel Free To Use These Codes                  #'
'# These Codes Are For A Gmail Spammer           #'
'#                                               #'
'# Please Note: You Use A Gmail Account To Send  #'
'# These But The Email You Are Spamming Can Be   #'
'# Any Email Provider!!                          #'
'#################################################'


Imports System.Net.Mail
Imports System.Net.Mail.MailAddressCollection
Imports System.IO
Public Class John_s_Advanced_Email_Bomber

    Private Sub StartButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartButton.Click
        Timer1.Start() 'Starts The Timer
    End Sub

    Private Sub StopButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopButton.Click
        Timer1.Stop() 'Stops The Timer
    End Sub

    Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click
        End 'Closes The Progam
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'This Sets Up The Server Connection, And What Is Sent Via The Layout
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(GmailUsernameTextBox.Text)
        MyMailMessage.To.Add(ToTextBox.Text)
        MyMailMessage.Subject = (SubjectTextBox.Text)
        MyMailMessage.Body = (EmailMessageTextBox.Text)
        Dim SMTPServer As New SmtpClient("smtp.gmail.com") 'This Indicates The Smtp Server Address
        SMTPServer.Port = 587 'Smtp Server Port (For Outgoing Connections)
        SMTPServer.Credentials = New System.Net.NetworkCredential(GmailUsernameTextBox.Text, GmailPasswordTextBox.Text) 'This Uses The Text Within GmailUsernameTextBox & GmailPasswordTextBox To Log In
        SMTPServer.EnableSsl = True
        EmailCountDisplayLabel.Text = Val(EmailCountDisplayLabel.Text + 1)
        SMTPServer.Send(MyMailMessage)
    End Sub
End Class