Anonymous Spam Mail
Download:
Spoiler for Login Form:
Public Class intro
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text & TextBox2.Text = "" Then
sername and Password!"
ElseIf TextBox1.Text = "" Then
error1.Text = "You must insert a Gmail
Uerror1.Text = "You must insert a Gmail Username!"
ElseIf TextBox2.Text = "" Then
& TextBox2.Text <> "" Then
error1.Text = "Succes
error1.Text = "You must insert a Gmail Password!"
ElseIf TextBox1.Tex
tsful Login!"
Form1.Show()
End If
End Sub
e As System.EventArgs) Handles Button2.Click
System.Diagnostics.Process.Start("https://accounts.google.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal
com/SignUp")
End Sub
Private Sub intro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Ha
error1.Text = "A Gmail account is required (Recommend using hacked accounts)"
End Sub
Private Sub PictureBox1_MouseC
lndles PictureBox1.MouseClick
System.Diagnostics.Process.Start("https://twitter.com/#!/Anon_Architect")
End Sub
over
Label5.Text = "Click!"
End Sub
Private Sub PictureBox1_MouseLeave(ByVal sender As System.Object, ByVal e As
Private Sub PictureBox1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Mouse
H System.EventArgs) Handles PictureBox1.MouseLeave
Label5.Text = ""
End Sub
Private Sub Label1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick
5.Text = "Click!"
End Sub
Private Sub Label1_MouseLeave(ByVal sender As
System.Diagnostics.Process.Start("https://twitter.com/#!/Anon_Architect")
End Sub
Private Sub Label1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.MouseHover
Labe
lSystem.Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
Label5.Text = ""
End Sub
End Class
Spoiler for After Login:
MsgBox("You must enter the email address of the person you would like to spam.", _
vbExclamation, _
"Target field is Empty")
ElseIf TextBox1.Text = "" Then
ct field is Empty")
ElseIf RichTextBox1.Text = ""
MsgBox("You must enter the message Subject.", _
vbExclamation, _
"Subj
e Then
MsgBox("You must enter the message Body.", _
vbExclamation, _
"Message field is Empty")
Else
Mail.From = New MailAddress(T
Dim Mail As New MailMessage
Mail.Subject = TextBox1.Text
Mail.To.Add(TextBox2.Text)
extBox4.Text)
Mail.Body = RichTextBox1.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
l)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, By
SMTP.Credentials = New System.Net.NetworkCredential(TextBox4.Text, TextBox3.Text)
SMTP.Port = "587"
SMTP.Send(Ma
iVal e As System.EventArgs) Handles MyBase.Load
TextBox2.Hide()
Label4.Hide()
TextBox4.Enabled = False
TextBox3.Enabled = False
TextBox4.Text = intro.TextBox1.Text
If ComboBox1.Text = "Create my own"
TextBox3.Text = intro.TextBox2.Text
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Then
TextBox2.Show()
TextBox2.Enabled = True
TextBox2.Text = ""
Label4.Show()
End If
If ComboBox1.Text = "MPAA" Then
TextBox2.Show()
TextBox2.Enabled = False
TextBox4.Text = ""
TextBox3.Text = ""
TextBox2.Text = "ContactUs@mpaa.org"
Label4.Show()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox2.Hide()
TextBox1.Text = ""
ComboBox1.Text = ""
RichTextBox1.Text = ""
Label4.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
intro.Show()
Me.Close()
intro.TextBox1.Text = ""
intro.TextBox2.Text = ""
intro.error1.Text = ""
End Sub
End Class
