Email Spam Bot Using VBScript (VBS)


Introduction: Email Spam Bot Using VBScript (VBS)

About: Twitter: @devicemodder1

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 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 = ""
'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 _
("") = 2

objMessage.Configuration.Fields.Item _
("") = SMTPServer

objMessage.Configuration.Fields.Item _
("") = cdoBasic

objMessage.Configuration.Fields.Item _
("") = User

objMessage.Configuration.Fields.Item _
("") = Pass

objMessage.Configuration.Fields.Item _
("") = SMTPPort

objMessage.Configuration.Fields.Item _
("") = SMTPSSL

objMessage.Configuration.Fields.Item _
("") = 60



feel free to leave comments telling me what you think, what to improve ect.



  • Make it Move Contest

    Make it Move Contest
  • Microcontroller Contest

    Microcontroller Contest
  • Casting Contest

    Casting Contest

We have a be nice policy.
Please be positive and constructive.





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?



1 reply

Don't know how to do that, sorry.

Hi can someone please spam my school email? Thanks send like 50,000 emails. My address is ty! I appreciate it!

do you have to have premium to download it?

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?

Hey xp4xbox, can u send me the code?

How can you shut this off?

mensen kom op pixelplaneet met leuke pixels en gekke dingen dus kom snel

I find that it stops sending emails after about 100 are sent. Is there any way around this?

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


4 replies

You have to make sure that you enable access for less secure accounts in your gmail.

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.

I Have The Same Problem. I Checked My Firewall, It is allowed.

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.

does this still work

hey how many times will this spam the person

i recon you should add a part where you can choose how many times it spams the person.

1 reply

this will spam the person in an infinite loop until the bot is killed with taskmanager