set shell = createobject ("wscript.shell") strtext = inputbox ("You have been hacked! PLease turn off your electronic!") strtimes = inputbox ("1000000000000000") strspeed = inputbox ("1") strtimeneed = inputbox ("0") 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?",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