Я уже создавал эту тему (год назад) на другом форуме, но я посчитал её более-менее полезной. Создаём 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 'повторяем цикл Code 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 'повторяем цикл