BOT Spam Sky

set shell = createobject ("wscript.shell")
'extention_type=".vbs" (Visual Basic Script)
'msgbox "Copyright 2014 Glitch."
strtext = inputbox("Enter the message you want to send in the box below. No longer than 100 characters.")
strtimes = inputbox("Now, enter the ammount of messages you want to send in the box below. Do not go above 500.")
strtdelay = inputbox("How much time should the bot wait in between messages? Enter your value in the box below, in seconds. Decimal points ARE allowed. No less than 0.1.")
if not isnumeric(strtimes) then
wscript.quit
end if
msgbox "Make sure Skype is started up. Once you hit ok, you will have 5 seconds to get to the inputbox on Skype."
wscript.sleep( 5000 )
for i=1 to strtimes
shell.sendkeys(strtext & "{enter}")
wscript.sleep(strdelay)
next