Clicker

Option Explicit

Dim WshShell, my_arr(16), index

' Создаем ссылку на объект
Set WshShell = WScript.CreateObject("WScript.Shell")

'Определяем элементы массива
my_arr(0) = "Э"
my_arr(1) = "т"
my_arr(2) = "о"
my_arr(3) = "{ENTER 2}"
my_arr(4) = "п"
my_arr(5) = "р"
my_arr(6) = "о"
my_arr(7) = "с"
my_arr(8) = "т"
my_arr(9) = "о"
my_arr(10) = "й"
my_arr(11) = "{ENTER 2}"
my_arr(12) = "т"
my_arr(13) = "е"
my_arr(14) = "к"
my_arr(15) = "с"
my_arr(16) = "т"

' Запускаем программу блокнот
WshShell.Run "Notepad.exe", 1

'Делаем задержку в 2 секунды
WScript.Sleep 2000

' Используем цикл для перебора элементов массива
For each index in my_arr
     ' Имитируем нажатие клавиши
     WshShell.SendKeys(index)
     ' Делаем задержку в 500 миллисекунд
     WScript.Sleep 500
Next

MsgBox "Конец теста!"