87aCk_X

Untitled

Oct 21st, 2016
191
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #Spam bot VBS Script
  2. set shell = createobject ("wscript.shell")
  3.  
  4. strtext = inputbox ("Write down your message you would like to spam you fgt")
  5. strtimes = inputbox ("How many times do you like to spam?")
  6. strspeed = inputbox ("How fast do you like to spam? (1000 = one per sec, 100 = 10 per sec etc)")
  7. strtimeneed = inputbox ("How many SECONDS do you need to get to your victims input box?")
  8.  
  9. If not isnumeric (strtimes & strspeed & strtimeneed) then
  10. msgbox "You entered something else then a number on Times, Speed and/or Time need. shutting down"
  11. wscript.quit
  12. End If
  13. strtimeneed2 = strtimeneed * 1000
  14. do
  15. msgbox "You have " & strtimeneed & " seconds to get to your input area where you are going to spam."
  16. wscript.sleep strtimeneed2
  17. shell.sendkeys ("" & "{enter}")
  18. for i=0 to strtimes
  19. shell.sendkeys (strtext & "{enter}")
  20. wscript.sleep strspeed
  21. Next
  22. shell.sendkeys ("" & "{enter}")
  23. wscript.sleep strspeed * strtimes / 10
  24. returnvalue=MsgBox ("Want to spam again with the same info?",36)
  25. If returnvalue=6 Then
  26. Msgbox "Ok Spambot will activate again"
  27. End If
  28. If returnvalue=7 Then
  29. msgbox "Shutting down"
  30. wscript.quit
  31. End IF
  32. loop
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×