Зациклить выполнение функции

n0kk · 15 Окт 2017

Помогите разобраться, необходимо зациклить выполнение функции на 500 раз, вроде бы все правильно написал но почему-то функция не выполняется столько раз сколько нужно

Код:

Func _click()
MouseMove (1169, 326, 50)
$ColorPx = PixelGetColor (1169, 326)
If $ColorPx = 16777215 Then
   MouseClick ("left", 1245, 846)
    ElseIf $ColorPx = 3708912 Then
	   Sleep(25000)
        MouseClick ("left", 1169, 326)
		MouseClick ("left", 1245, 846)
    Else
        Exit
	 EndIf

MouseMove (1169, 338)
	 $ColorPx = PixelGetColor (1169, 338)
If $ColorPx = 16777215 Then
   MouseClick ("left", 1245, 846)
    ElseIf $ColorPx = 3708912 Then
	   Sleep(25000)
        MouseClick ("left", 1169, 338)
		MouseClick ("left", 1245, 846)
    Else
        Exit
	 EndIf

	 MouseMove (1169, 349)
	 $ColorPx = PixelGetColor (1169, 349)
If $ColorPx = 16777215 Then
   MouseClick ("left", 1245, 846)
    ElseIf $ColorPx = 3708912 Then
	   Sleep(25000)
        MouseClick ("left", 1169, 349)
		MouseClick ("left", 1245, 846)
    Else
        Exit
	 EndIf

MouseMove (1169, 363)
	 $ColorPx = PixelGetColor (1169, 363)
If $ColorPx = 16777215 Then
   MouseClick ("left", 1245, 846)
    ElseIf $ColorPx = 3708912 Then
	   Sleep(25000)
        MouseClick ("left", 1169, 363)
		MouseClick ("left", 1245, 846)
    Else
        Exit
	 EndIf
  EndFunc

  $i = 0
While $i <= 500
    _click()
    $i += 1
WEnd

joiner · 15 Окт 2017

Код:

Do
Until $i <= 500

Добавлено:
Сообщение автоматически объединено: 15 Окт 2017

Либо

Код:

For $i = 1 To 500
;функция
Next

n0kk · 16 Окт 2017

Не знаю в чем дело и с тем и с тем вариантом не работает, писал так
В этом случае срабатывает один раз:

Код:

$i = 0
Do
   _click()
Until $i <= 500

В этом случае два:

Код:

$i = 0
For $i = 1 To 500
 _click()
Next

Tempo · 16 Окт 2017

n0kk

У вас в самой функции есть условия для выхода может в них проблема попробуйте перед ними поставить уведомляющее сообщение что бы проверить
Добавлено:
Сообщение автоматически объединено: 16 Окт 2017

n0kk сказал(а):
Код:

$i = 0 Do _click() Until $i <= 500

В этом варианте вы забыли

Код:

$i += 1

И так наверно будет лучше

Код:

Do
   _click()
   $i += 1
Until $i = 500

n0kk · 16 Окт 2017

Исправил, но к сожалению все так же

Tempo · 16 Окт 2017

n0kk
Что вы именно исправили у вас в функции если пиксель не соответствует определенному цвету выполняется выход из скрипта вы это исправили? Или хотя бы проверили не в этом ли причина?

n0kk · 16 Окт 2017

Tempo сказал(а):
n0kk

У вас в самой функции есть условия для выхода может в них проблема попробуйте перед ними поставить уведомляющее сообщение что бы проверить

Перед самим условием?

Tempo · 16 Окт 2017

Вот ваша функция добавил сообщения там где выход

Код:

Func _click()
	MouseMove(1169, 326, 50)
	$ColorPx = PixelGetColor(1169, 326)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 326)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(0, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf

	MouseMove(1169, 338)
	$ColorPx = PixelGetColor(1169, 338)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 338)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(0, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf

	MouseMove(1169, 349)
	$ColorPx = PixelGetColor(1169, 349)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 349)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(0, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf

	MouseMove(1169, 363)
	$ColorPx = PixelGetColor(1169, 363)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 363)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(0, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf
EndFunc

n0kk · 16 Окт 2017

Сообщения не выводятся, все так же происходит

Tempo · 16 Окт 2017

А может с паузами в 25 секунд вы не замечаете как он работает? :rofl:

В трее висит?

Код:

For $i = 0 To 500
	_Click()
Next

Func _Click()
	MouseMove(1169, 326, 50)
	$ColorPx = PixelGetColor(1169, 326)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 326)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(0, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf

	MouseMove(1169, 338)
	$ColorPx = PixelGetColor(1169, 338)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 338)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(0, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf

	MouseMove(1169, 349)
	$ColorPx = PixelGetColor(1169, 349)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 349)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(0, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf

	MouseMove(1169, 363)
	$ColorPx = PixelGetColor(1169, 363)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 363)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(0, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf
EndFunc

n0kk · 16 Окт 2017

Tempo сказал(а):
А может с паузами в 25 секунд вы не замечаете как он работает? В трее висит?

Нет, в трее не весит

Tempo · 16 Окт 2017

Вывел счетчик что бы было видно работает или нет

Код:

SplashTextOn("Test Script", "", 100, 50)
For $i = 0 To 500
	ControlSetText("Test Script", "", "Static1", $i)
	_Click()
Next

Func _Click()
	MouseMove(1169, 326, 50)
	$ColorPx = PixelGetColor(1169, 326)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 326)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(262144, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf

	MouseMove(1169, 338)
	$ColorPx = PixelGetColor(1169, 338)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 338)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(262144, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf

	MouseMove(1169, 349)
	$ColorPx = PixelGetColor(1169, 349)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 349)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(262144, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf

	MouseMove(1169, 363)
	$ColorPx = PixelGetColor(1169, 363)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 363)
		MouseClick("left", 1245, 846)
	Else
		MsgBox(262144, "", "Выход по условию") ;Добавил сообщение
		Exit ;тут выход из скрипта может быть в этом причина?
	EndIf
EndFunc

n0kk · 16 Окт 2017

С 0-2 посчитал а потом выдал выход по условию

Tempo · 16 Окт 2017

n0kk сказал(а):
С 0-2 посчитал а потом выдал выход по условию

Ну вот значит проблема в вашей функции меняйте в ней выход на Return или на что вам нужно это же ваша функция

n0kk · 16 Окт 2017

Ну если функцию возвращать ошибка будет

Tempo · 16 Окт 2017

n0kk сказал(а):
Ну если функцию возвращать ошибка будет

Вы о чем? Return остановит функцию в указанном месте и после этого счетчик запустит её заново. Возвращать она будет по умолчанию 0 (у вас не тот случай что нужно возвращаемое значение для вас оно ничего не значит) и все какие ошибки?

Справка вам в помощь Func...Return...EndFunc

n0kk · 16 Окт 2017

Сделал так, но все тоже самое, один раз выполняется и все

Код:

Func _click()
MouseMove (1169, 326, 50)
$ColorPx = PixelGetColor (1169, 326)

If $ColorPx = 16777215 Then

   MouseClick ("left", 1245, 846)
    ElseIf $ColorPx = 3708912 Then
	   Sleep(25000)
        MouseClick ("left", 1169, 326)
		MouseClick ("left", 1245, 846)
	 Else
		MsgBox(0, "", "Выход по условию")
        Return _click()
	 EndIf

MouseMove (1169, 338)
	 $ColorPx = PixelGetColor (1169, 338)
If $ColorPx = 16777215 Then
   MouseClick ("left", 1245, 846)
    ElseIf $ColorPx = 3708912 Then
	   Sleep(25000)
        MouseClick ("left", 1169, 338)
		MouseClick ("left", 1245, 846)
	 Else
		MsgBox(0, "", "Выход по условию")
        Return _click()
	 EndIf

	 MouseMove (1169, 349)
	 $ColorPx = PixelGetColor (1169, 349)
If $ColorPx = 16777215 Then
   MouseClick ("left", 1245, 846)
    ElseIf $ColorPx = 3708912 Then
	   Sleep(25000)
        MouseClick ("left", 1169, 349)
		MouseClick ("left", 1245, 846)
	 Else
		MsgBox(0, "", "Выход по условию")
        Return _click()
	 EndIf

MouseMove (1169, 363)
	 $ColorPx = PixelGetColor (1169, 363)
If $ColorPx = 16777215 Then
   MouseClick ("left", 1245, 846)
    ElseIf $ColorPx = 3708912 Then
	   Sleep(25000)
        MouseClick ("left", 1169, 363)
		MouseClick ("left", 1245, 846)
	 Else
		MsgBox(0, "", "Выход по условию")
        Return _click()
	 EndIf
  EndFunc

$i = 0
Do
_click()
   $i+=1
Until $i <= 50

Tempo · 16 Окт 2017

n0kk
Зачем? Это уже какое-то подобие рекурсии зачем оно вам?

Код:

Return _click()

Попробуйте почитать справку

Код:

SplashTextOn("Test Script", "", 100, 50)
For $i = 0 To 500
	ControlSetText("Test Script", "", "Static1", $i)
	_Click()
Next

Func _Click()
	MouseMove(1169, 326, 50)
	$ColorPx = PixelGetColor(1169, 326)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 326)
		MouseClick("left", 1245, 846)
	Else
		Return
	EndIf

	MouseMove(1169, 338)
	$ColorPx = PixelGetColor(1169, 338)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 338)
		MouseClick("left", 1245, 846)
	Else
		Return
	EndIf

	MouseMove(1169, 349)
	$ColorPx = PixelGetColor(1169, 349)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 349)
		MouseClick("left", 1245, 846)
	Else
		Return
	EndIf

	MouseMove(1169, 363)
	$ColorPx = PixelGetColor(1169, 363)
	If $ColorPx = 16777215 Then
		MouseClick("left", 1245, 846)
	ElseIf $ColorPx = 3708912 Then
		Sleep(25000)
		MouseClick("left", 1169, 363)
		MouseClick("left", 1245, 846)
	Else
		Return
	EndIf
EndFunc

n0kk · 16 Окт 2017

Выполняется один раз если написать просто Return

Попробовал заменить на

Код:

$i = 0
While $i <= 50
    _click()
    $i += 1
WEnd

Два раза выполняется а потом много раз пишет "Выход по условию"

Tempo · 16 Окт 2017

Вы хоть код тот что выше пробовали?

Автор темы	Похожие темы	Форум	Ответы	Дата
P	Зациклить Select или Switch пока все case не будут соответствовать условию	Общие вопросы по AutoIt	7	13 Июл 2018
	Перенесено: Не могу зациклить Imagesearch до появления изображения	Общие вопросы по AutoIt	0	16 Дек 2015
	Не могу зациклить Imagesearch до появления изображения	Боты для игр	2	16 Дек 2015
	Не получается зациклить все действия мишки	Общие вопросы по AutoIt	2	30 Июн 2015
P	Как зациклить чтение строк из файла?	Общие вопросы по AutoIt	14	16 Апр 2015

Зациклить выполнение функции

Новичок

Модератор

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру