Panter Spammer

MsgBox "Spammer by Rysed {Starte indem du OK drückst}",0,"Spammer Module by Rysed [Panter v1]"

set shell = createobject ("wscript.shell")

spammertext = inputbox ("Was willst du spammen?:")
spammertimes = inputbox ("Wie oft willst du den Text spammen lassen?:")
spammerspeed = inputbox ("Wie schnell willst du spammen?: (Millisekunden / 1000)")
spammertime = inputbox ("In wie vielen Sekunden soll gespammt werden?: (Empfohlen 3-5)")

If not isnumeric (spammertimes & spammerspeed & spammertime) then
msgbox "Du hast den Spammer unerwartet beendet. Spambot beendet"
wscript.quit
End If
spammertime2 = spammertime * 1000
do
msgbox "Du hast " & spammertime & " Sekunden Zeit, dann wird gespammt. (Nachdem du OK geklickt hast)"
wscript.sleep spammertime2
for i=0 to spammertimes
shell.sendkeys (spammertext & "{enter}")
wscript.sleep spammerspeed
Next
wscript.sleep spammerspeed * spammertimes / 10
returnvalue=MsgBox ("Soll erneut gespammt werden?(klick Ja oder Nein",36)
If returnvalue=6 Then
Msgbox "Ok Spammer wird erneut, aktiviert"
End If
If returnvalue=7 Then
msgbox "Spammer wurde beendet !"
wscript.quit
End IF
loop