Войти

Показать полную графическую версию : [решено] Цикл... Как его правельно использовать в моём случае???


sashadeg
24-03-2009, 15:46
Я не разу не использовал функцию цикла... если можно то объясните каждую вашу строчку в цикле...
Вот что мне нужно:
1. Вылазит Inputbox, в котором вводят число повторений цикла
2. если введено не число, то программа выдает сообщение об ошибке и сново просит ввести число (ну эту команду можно убрать, если она не может быть выполнена в AutoIt)
3. после ввода программа ждёт нажатия "горячей кнопки" (например alt+A) и после нажатия alt+A программа выполняет указное число раз вот эту команду:
send("100000")
как это осуществить???

Creat0R
24-03-2009, 16:23
как это осуществить? »
Примерно так:


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

sashadeg
24-03-2009, 16:40
А как сделать чтобы программа не завершалась, а ждала ещё нажатия "горячей клавиши", чтобы ещё раз повторить цикл???

Creat0R
24-03-2009, 16:53
как сделать чтобы программа не завершалась, а ждала ещё нажатия "горячей клавиши" »
Exit в функции заменить на HotKeySet("!a", "_Loop_Proc").




© OSzone.net 2001-2012