Email Spam Bot Using VBScript (VBS)





Introduction: Email Spam Bot Using VBScript (VBS)

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.



  • Epilog Challenge 9

    Epilog Challenge 9
  • Pocket-Sized Contest

    Pocket-Sized Contest
  • Science of Cooking

    Science of Cooking

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?



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