Простой флудер на VBS (Разбор каждой строки)

Я уже создавал эту тему (год назад) на другом форуме, но я посчитал её более-менее полезной.
Создаём txt вставляем текст ниже и переименовуем в 123.vbs

dim a,b,c,i
'обьявляем переменные
Set a = CreateObject("WScript.Shell")
'добавляем возможностей проге
b=50
'устанавливаем колво повторов
wscript.sleep 10000
'ждем пока не нажмут на поле ввода 20 сек.
for i=1 to b
' начинаем цикл
a.SendKeys ("ты крут!")
'печатаем сообщение
a.SendKeys ("{ENTER}")
'отправляем
wscript.sleep 4500
'ждем 9 сек (что бы не просило капчу) по желанию можно убрать
next
'повторяем цикл

Код

dim a,b,c,i

'обьявляем переменные

Set a = CreateObject("WScript.Shell")

'добавляем возможностей проге

b=50

'устанавливаем колво повторов

wscript.sleep 10000

'ждем пока не нажмут на поле ввода 20 сек.

for i=1 to b

' начинаем цикл

a.SendKeys ("ты крут!")

'печатаем сообщение

a.SendKeys ("{ENTER}")

'отправляем

wscript.sleep 4500

'ждем 9 сек (что бы не просило капчу) по желанию можно убрать

next

'повторяем цикл