Alert icon
We're changing our privacy policy. This stuff matters.  Learn more  Dismiss

VB08: How to make a Email Spammer. (also basic SMTP client tutorial)

Loading...

Sign in or sign up now!
11,061
Loading...
Alert icon
Sign in or sign up now!
Alert icon

Uploaded by on Jan 29, 2009

Find diffrent SMTP servers with mozilla thunderbird!

Finally got it done. Had to speed it up a bit else it was too long. If theres anything you can't catch PLEASE post a comment.

1st thing i wrote (at top):

Imports System.Net.Mail

2nd thing i wrote (when i doubleclick the "Send!" button):

Timer1.Start()

3rd thing i wrote (when i doubleclick the timer):
(delete the white between the lines, was just to make it easier)

ProgressBar1.Increment(1)

If ProgressBar1.Value = ProgressBar1.Maximum Then

Dim WC As New System.Net.WebClient

Dim MyMailMessage As New MailMessage

MyMailMessage.From = New MailAddress("YOUR GMAIL HERE@gmail.com")

MyMailMessage.To.Add('who its for(in my case TextBox1.Text)

MyMailMessage.Subject = ('subject(in my case TextBox2.Text)

WC.Dispose()

MyMailMessage.Body = ('message(in my case RichTextBox1.Text)

Dim SMTPServer As New SmtpClient("smtp.gmail.com")

SMTPServer.Port = 587

SMTPServer.Credentials = New System.Net.NetworkCredential("YOUR GMAIL HERE@gmail.com", "YOUR GMAIL PASSWORD HERE")

SMTPServer.EnableSsl = True

Try

SMTPServer.Send(MyMailMessage)

Catch ex As SmtpException

End Try

End If

4th thing i wrote (when i doubleclick the "Close" button):

Me.Close()
_____

Lets explain what happends above...

1st thing i write (at top):
Imports System.Net.Mail
_ _ _ _

The command to allow SMTP (email sending with Gmail)
________________________________________

2nd thing i wrote (when i doubleclick the "Send!" button):
Timer.Start()
_ _ _ _

Starts the timer when Send! is clicked
________________________________________

3rd thing i wrote (when i doubleclick the timer (which means that this will work when it "ticks")):
ProgressBar1.Increment(1) If ProgressBar1.Value = ProgressBar1.Maximum Then
_ _ _ _

When the progressbar is Maximum, it must send the email. And the progressbar doesn't stop beeing Maximum, so it keep sending.
________________________________________

4th thing i wrote (when i doubleclicked the "Close" button):
Me.Close()
_ _ _ _

Me is the form
Close is shutdown
=
Form shutdown
________________________________________

All the rest is just basic coding for sending a E-mail.

Link to this comment:

Share to:

Uploader Comments (wannabenyhm)

  • Hmm... It's not working for me =/

    Expression Expected... (there's more to the error msg's)

  • @MrD34thw1sh You can send me a message with the error. If you followed the tutorial from bottom to end, it should work :)

Video Responses

see all

All Comments (147)

Sign In or Sign Up now to post a comment!
  • Anybody know how to import private smtp's to help hide the IP & ISP addresses in the headers? Without being albe to send emails anonymously, this email sender is completely useless. People will still be able to see your information in the headers & report you to your ISP. Your ISP can then ban you and you will lose your internet connection. Any help people? Any good smtp's that we can use for free?

  • Nice work:)

    

  • you know

  • works

  • how do u change it from gmail to Live

  • @Kerkkoooh This is VB08, right? Not the VB6...

    This has worked for everyone else, don't blame me because you don't know how to copy paste?

  • @wannabenyhm

    This code has some problems... But they can be fixed!

    Use this in some some codes: Net.Mail.

    Like Net.Mail.MailMessage

    or Net.Mail.MailAddress

View all Comments »
Loading...

0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more