Примерно так:
Код:
While 1
$iLoop = InputBox("Ввод", "Введите число повторении цикла:", "")
If @error Then Exit
If StringIsDigit($iLoop) Then ExitLoop
MsgBox(48, "Ошибка!", "Позволено вводить только числа, повторите попытку...", 5)
WEnd
HotKeySet("!a", "_Loop_Proc")
While 1
Sleep(100)
WEnd
Func _Loop_Proc()
Sleep(500)
HotKeySet("!a")
For $i = 1 To $iLoop
Sleep(10)
Send(100000)
Next
Exit
EndFunc