hello, i recently got back into VBS programming and wanted to make an email bot. so i did.

here it is
just copy paste into notepad save as anything.vbs, where anything is any name you want.

if you use hotmail just find the lines labelled smtp.gmail.com and change to the one for hotmail or whatever one you use.

Dim User
Dim Pass
Dim Name
Dim Input
Dim Input2
Dim Input3
X=MsgBox("Welcome. To log in Please Click OK and enter your G-mail & pass.",0,"EmailSpamBot V1.0")
User = InputBox("Enter your G-mail:")
Pass = InputBox("Enter Password:"& vbCrLf & ""& vbCrLf & "Please note passwords are NOT stored in this script and are case sensitive.")
Name = InputBox("Enter Name:")
Input = InputBox("Enter e-mail of victim:")
Input2 = InputBox("Enter title:")
Input3 = InputBox("Enter message:")
EmailSubject = (""& Input2)
EmailBody = (""& Input3)

'Const EmailFrom = ""
'Const EmailFromName = ""

Const SMTPServer = "smtp.gmail.com"
'Const SMTPLogon = ""
'Const SMTPPassword = ""
Const SMTPSSL = True
Const SMTPPort = 465

Const cdoSendUsingPickup = 1  'Send message using local SMTP service pickup directory.
Const cdoSendUsingPort = 2  'Send the message using SMTP over TCP/IP networking.

Const cdoAnonymous = 0  ' No authentication
Const cdoBasic = 1  ' BASIC clear text authentication
Const cdoNTLM = 2  ' NTLM, Microsoft proprietary authentication

' First, create the message

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = EmailSubject
objMessage.From = "<" & User & Name & ">"
objMessage.To = "<" & Input & ">"
objMessage.TextBody = EmailBody

' Second, configure the server

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = User

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Pass

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = SMTPSSL

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60



feel free to leave comments telling me what you think, what to improve ect.
<p>I felt that I needed to improve this, so I added lots of if's, such as if the user typed in a invalid username, or the user hit cancel to quit,ect if you are interested I will send you the code.</p>
<p>can you please send me the improved code.</p>
<p>One note about using vbscript to send emails, is that you must make sure you that you allow access for less secure apps to be turned on in <strong>your</strong> gmail. Otherwise you will get an error. </p>
<p>It only sends 40 how can we accelerate it?</p>
<p>It must be a limit with the email provider. In that case then there is no way to increase it.</p>
<p>Where can you find that option of allowing less secure app to access?</p>
<p>I keep getting an error: The transportfunction can not connect to the server. What us this? and how can i solve this?</p>
<p>Also, if you want an error report from VBscript, remove line 2 in the file 'On Error Resume Next'. And remove lines 115 to 119 in my script</p>
<p>Make sure you are using gmail, since the port number is configured to 465, it is probably different for other email service providers. Then make sure that you typed everything correctly. Make sure you have an internet connection and if you get any prompts from your firewall from WScript.exe make sure to allow it. Other than that, I don't know why it wouldn't work, since it works for me.</p>
<p>can you sned me the code ?</p>
<p>k, I will send you a pm</p>
<p>Can you send it to me too?</p>
<p>Sure, I'd be interested. </p>
<p>Can you get this to work through the console?</p>
<p>hello, </p><p>What if I want to take all the attached files from a specific mail and save it into a folder? can you help me do it please? </p><p>Thanks, </p><p>Bareket</p>
<p>Hi can someone please spam my school email? Thanks send like 50,000 emails. My address is rkrishnan@cfsnc.org ty! I appreciate it!</p>
<p>do you have to have premium to download it?</p>
<p>Is there any way i can make it to always login to the same email without having me to type it in all the time? And: Can i limit it to a specic amount of emails?</p>
<p>Hey xp4xbox, can u send me the code? raxhonPlex@yandex.com</p>
<p>How can you shut this off?</p>
<p>mensen kom op pixelplaneet met leuke pixels en gekke dingen dus kom snel</p>
<p>I find that it stops sending emails after about 100 are sent. Is there any way around this?</p>
<p>hey there is apparently an error in line 70 saying the message could not be sent to the SMTP server. The server response was not avaible</p><p>PLS PLS FIX IT</p>
<p>You have to make sure that you enable access for less secure accounts in your gmail.</p>
<p>that problem is on google's end or it is your firewall, ports closed ect. i get same error with the code code is correct.</p>
<p>I Have The Same Problem. I Checked My Firewall, It is allowed.</p>
<p>there is no error ,works fine on my machine. havent tested with hotmail yet ,only gmail. works on my end for gmail. sorry for late reply, been busy with the family.</p>
<p>does this still work</p>
<p>hey how many times will this spam the person</p><p>i recon you should add a part where you can choose how many times it spams the person. </p>
<p>this will spam the person in an infinite loop until the bot is killed with taskmanager</p>

About This Instructable




Bio: Twitter: @devicemodder1
More by devicemodder:Hacking Camcorder CRT Viewfinders Email Spam Bot using VBScript (VBS) speed controlled desk fan 
Add instructable to: