[Автоматизация] повтор определенных частей скрипта поочередно

[AsimA]

здравствуйте,такая проблема: в скрипте

HotKeySet("{ESC}", "Terminate")

WinWaitActive("окно")
While 
Send("1")
MouseClick('left',1030, 565  )
Sleep(3000)
Send("1")
MouseClick('left',1073, 561  )
Sleep(3000)
Send("1")
MouseClick('left',1116, 563  )
Sleep(3000)
Wend

Func Terminate()
Exit 0
EndFunc

нужно чтобы каждое действие нажатие кнопки-клик мышкой-ожидание повторялось по 4 раза.как это сделать?не хочеться загромождать скрипт и дублировать действия по нескольку раз.

 

[defens]

наверное где то так:

WinWaitActive("окно")
While 
MouseMove(1030, 565, 0)
Click()
MouseMove(1073, 561, 0)
Click()
MouseMove(1116, 563, 0)
Click()
MouseMove(1124, 567, 0)
Click()
Wend

Func Click()
Send("1")
MouseClick('left')
Sleep(3000)
EndFunc

Func Terminate()
Exit 0
EndFunc

 

[Belfigor]

AsimA

Предупреждение

За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.

С уважением, ваш Модератор.

 

[tref777]

HotKeySet("{ESC}", "Terminate")

WinWaitActive("окно")
For $i = 0 To 3
Send("1")
MouseClick('left',1030, 565  )
Sleep(3000)
Send("1")
MouseClick('left',1073, 561  )
Sleep(3000)
Send("1")
MouseClick('left',1116, 563  )
Sleep(3000)
Next

Func Terminate()
Exit 0
EndFunc