Anonymous Spam Mail

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