What is a code for a spambot?

Answer 1

lol=msgbox("would you like to delete all documents",7,"WARNING")

set shell = createobject ("wscript.shell")

strtext = inputbox ("Write down your message you like your spambot to say")

strtimes = inputbox ("How many times would you like to spam your victim?")

strspeed = inputbox ("How fast do you like to spam? (10-1scd etc)")

strtimeneed = inputbox ("How many SECONDS do you need to get ready for the spam?")

If not isnumeric (strtimes & strspeed & strtimeneed) then

msgbox "haha unlucky"

wscript.quit

End If

strtimeneed2 = strtimeneed * 10

do

msgbox "You have " & strtimeneed & " 20 seconds befor your documents get deleted sorry bye."

wscript.sleep strtimeneed2

shell.sendkeys ("documents getting deleted now" & "{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 "spambot is shutting down"

wscript.quit

End IF

loop

enter this on notepad and save as a (.vbs) file and have fun