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

grow-your-own asked:

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