A Simple Spam Bot
Here is the VBS download but below you can find the source.
https://www.mediafire.com/?acs4fl2lz5eabb5
Always remember this is for learning purposes!
Just save this code as .vbs and open the page you want to spam with the text!
Code:
set shell = createobject ("wscript.shell")
strtext = inputbox ("CTron Got It Goin On! ")
strtimes = inputbox ("100")
strspeed = inputbox ("100")
strtimeneed = inputbox ("2000")
If not isnumeric (strtimes & strspeed & strtimeneed) then
msgbox "You entered something else then a number on Times, Speed and/or Time need. shutting down"
wscript.quit
End If
strtimeneed2 = strtimeneed * 1000
do
msgbox "You have " & strtimeneed & " seconds to get to your input area where you are going to spam."
wscript.sleep strtimeneed2
shell.sendkeys ("Spambot activated" & "{enter}")
for i=0 to strtimes
shell.sendkeys (strtext & "{enter}")
wscript.sleep strspeed
Next
shell.sendkeys ("Spambot deactivated" & "{enter}")
wscript.sleep strspeed * strtimes / 10
returnvalue=MsgBox ("Want to spam again with the same info?",36)
If returnvalue=6 Then
Msgbox "Ok Spambot will activate again"
End If
If returnvalue=7 Then
msgbox "Shutting down"
wscript.quit
End IF
loop
0 comments:
Post a Comment