Email Spammer (only works for gmail accounts atm)
Source by me, references to books
The spammer currently only works with Gmail accounts, and will cut off at around 600 emails due to their smtp server. Enjoy
Code:
Imports System.Net.Mail
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(TextBox1.Text)
MyMailMessage.To.Add(TextBox3.Text)
MyMailMessage.Subject = (TextBox4.Text)
MyMailMessage.Body = (RichTextBox1.Text)
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTPServer.EnableSsl = True
Label7.Text = Val(Label7.Text + 1)
TextBox4.Text = Val(Label7.Text + 1)
SMTPServer.Send(MyMailMessage)
End If
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
End Class
Please be sure to include the Imports System.Net.Mail at the top of the form.
I added the progressbar for fun while I was practicing some shit.