Повтор функции заданое количество раз.

jufas222 · 10 Июн 2012

Есть функция, возможно задать ей повтор заданное количество раз вместо того, чтобы писать одно и то же???

Код:

Func korm()
		Sleep(2000)
		$c = PixelGetColor(659, 59)


if $c = 0xD7712C then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',659,59,1,5)
Else
	MouseClick('left',1279, 83,1,5)
	Sleep(1000)
	MouseClick('left',955, 384,1,5)
	Sleep(500)
	MouseClick('left',848, 433,1,5)
	Sleep(500)
	MouseClick('left',977, 588,1,5)
  EndIf

  $aCoord_6=PixelSearch( 557, 35, 1356, 628, 0xBABB6C) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_6[0],$aCoord_6[1],1)
 EndIf

 $aCoord_7=PixelSearch( 557, 35, 1356, 628, 0xBABB6C ) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_7[0],$aCoord_7[1],1)
 EndIf

 $aCoord_8=PixelSearch( 557, 35, 1356, 628, 0xBABB6C ) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_8[0],$aCoord_8[1],1)
 EndIf

  $aCoord_9=PixelSearch( 557, 35, 1356, 628, 0xBABB6C ) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_9[0],$aCoord_9[1],1)
 EndIf

  $aCoord_10=PixelSearch( 557, 35, 1356, 628, 0xBABB6C ) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_10[0],$aCoord_10[1],1)
 EndIf
EndFunc

_Lexa98_ · 10 Июн 2012

jufas222
А что вы подразумеваете под "одно и то же"?
Добавлено:
Сообщение автоматически объединено: 10 Июн 2012

Всю функцию Korm() ?

jufas222 · 10 Июн 2012

Да нужно повторить заданное количество раз функцию korm()

Я кое что упустил, вот так код выглядет:

Код:

Func korm()
		Sleep(2000)
		$c = PixelGetColor(659, 59)


if $c = 0xD7712C then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',659,59,1,5)
Else
	MouseClick('left',1279, 83,1,5)
	Sleep(1000)
	MouseClick('left',955, 384,1,5)
	Sleep(500)
	MouseClick('left',848, 433,1,5)
	Sleep(500)
	MouseClick('left',977, 588,1,5)
  EndIf

  $aCoord_6=PixelSearch( 557, 35, 1356, 628, 0xBABB6C) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_6[0],$aCoord_6[1],1)
 EndIf

 Sleep(2000)
		$c = PixelGetColor(659, 59)


if $c = 0xD7712C then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',659,59,1,5)
Else
	MouseClick('left',1279, 83,1,5)
	Sleep(1000)
	MouseClick('left',955, 384,1,5)
	Sleep(500)
	MouseClick('left',848, 433,1,5)
	Sleep(500)
	MouseClick('left',977, 588,1,5)
  EndIf

 $aCoord_7=PixelSearch( 557, 35, 1356, 628, 0xBABB6C ) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_7[0],$aCoord_7[1],1)
 EndIf

 Sleep(2000)
		$c = PixelGetColor(659, 59)


if $c = 0xD7712C then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',659,59,1,5)
Else
	MouseClick('left',1279, 83,1,5)
	Sleep(1000)
	MouseClick('left',955, 384,1,5)
	Sleep(500)
	MouseClick('left',848, 433,1,5)
	Sleep(500)
	MouseClick('left',977, 588,1,5)
  EndIf

 $aCoord_8=PixelSearch( 557, 35, 1356, 628, 0xBABB6C ) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_8[0],$aCoord_8[1],1)
 EndIf

 Sleep(2000)
		$c = PixelGetColor(659, 59)


if $c = 0xD7712C then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',659,59,1,5)
Else
	MouseClick('left',1279, 83,1,5)
	Sleep(1000)
	MouseClick('left',955, 384,1,5)
	Sleep(500)
	MouseClick('left',848, 433,1,5)
	Sleep(500)
	MouseClick('left',977, 588,1,5)
  EndIf

  $aCoord_9=PixelSearch( 557, 35, 1356, 628, 0xBABB6C ) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_9[0],$aCoord_9[1],1)
 EndIf

 Sleep(2000)
		$c = PixelGetColor(659, 59)


if $c = 0xD7712C then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',659,59,1,5)
Else
	MouseClick('left',1279, 83,1,5)
	Sleep(1000)
	MouseClick('left',955, 384,1,5)
	Sleep(500)
	MouseClick('left',848, 433,1,5)
	Sleep(500)
	MouseClick('left',977, 588,1,5)
  EndIf

  $aCoord_10=PixelSearch( 557, 35, 1356, 628, 0xBABB6C ) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_10[0],$aCoord_10[1],1)
 EndIf
EndFunc

Garrett · 10 Июн 2012

jufas222 [?]

возможно задать ей повтор заданное количество раз

Так?

Код:

korm(100)

Func korm($iCount)

	For $i = 1 To $iCount ; количество циклов
		
		Sleep(2000)
		$c = PixelGetColor(659, 59)

		If $c = 0xD7712C then
			$cc = 1
		Else
			$cc = 0
		EndIf
		
		Sleep(1000)
		
		If $cc = 1 Then
			MouseClick('left',659,59,1,5)
		Else
			
			MouseClick('left',1279, 83,1,5)
			Sleep(1000)
			
			MouseClick('left',955, 384,1,5)
			Sleep(500)
			
			MouseClick('left',848, 433,1,5)
			Sleep(500)
			
			MouseClick('left',977, 588,1,5)
		EndIf

		$aCoord = PixelSearch( 557, 35, 1356, 628, 0xBABB6C) ;++++
		
		If @error Then
			
			MouseClick('left',659,59,1,5)
		Else
			
			MouseClick('left',659,59,1,5)
			Sleep (3000)
			MouseClick('left', $aCoord[0], $aCoord[1],1)
		EndIf
	Next
	
EndFunc

jufas222 · 10 Июн 2012

Garrett [?]

Так?

Нет не получилось, если на ваши действия повлияли как то "++++" то я их ставил для себя, для отметки, когда копировал код, не заметил их.

Garrett · 10 Июн 2012

jufas222 [?]

Нет не получилось

Ну, тогда заключите саму функцию в оператор For To Next

Код:

For $i = 1 To 100
	korm()
Next

Иначе как понимать ваш вопрос:

возможно задать ей повтор заданное количество раз

jufas222 · 10 Июн 2012

Я извеняюсь, по хоже что я не правельно изложил свой скрипт и мысль....может быть дело в том что я всю ночь искал, изучал и писал функции, действия, а может и в чём то другом )

Моя функция вызывается через определнный период времени командой:

Код:

AdlibRegister('korm', 3*60*1000)

Мне не обходимо что, бы эта функция :

Код:

Func korm()
		Sleep(2000)
		$c = PixelGetColor(659, 59)


if $c = 0xD7712C then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',659,59,1,5)
Else
	MouseClick('left',1279, 83,1,5)
	Sleep(1000)
	MouseClick('left',955, 384,1,5)
	Sleep(500)
	MouseClick('left',848, 433,1,5)
	Sleep(500)
	MouseClick('left',977, 588,1,5)
  EndIf

  $aCoord_6=PixelSearch( 557, 35, 1356, 628, 0xBABB6C) ;++++
If @error Then
     MouseClick('left',659,59,1,5)
 Else
	 MouseClick('left',659,59,1,5)
	 sleep (3000)
	 MouseClick('left',$aCoord_6[0],$aCoord_6[1],1)
 EndIf

Повторялась столько раз, сколько я ей задам....

Функция ищет цвет, если цвет найден кликает по предмету, затем по другому предмету, а если цвет не найден, то закупает предмет.

P.S. Хотелось бы укоротить скрипт, вместо того чтобы копировать строки и делать длинный скрипт.

CreatoR · 10 Июн 2012

jufas222 [?]

Моя функция вызывается через определнный период времени командой:

Ну так через цикл можно сделать также (не используя Adlib):

Код:

$iCallsPeriod = 3*60*1000 ;Период времени запуска функции
$iCallsCount = 10 ;Количество запусков функции

For $i = 1 To $iCallsCount
	Sleep($iCallsPeriod)
	korm()
Next

jufas222 · 10 Июн 2012

CreatoR [?]

Ну так через цикл можно сделать также (не используя Adlib):

Если я вас правельно понял, то у меня не получилось....C:\Users\user\Desktop\ proverka.au3(5,27) : WARNING: $iCallsCount: possibly used before declaration.

Garrett [?]

For To Next

Так как я не знаю, как пользоватся ForToNext и справка не помогла я ввёл в поиске нашёл тему: http://autoit-script.ru/index.php/topic,4899.0.html

Сделал по примеру, но функция срабатывала только 1 раз....

CreatoR · 10 Июн 2012

jufas222 [?]

у меня не получилось

Что вы делали чтобы не получилось? :smile:

jufas222 · 10 Июн 2012

CreatoR [?]

Что вы делали чтобы не получилось?

Вот так, я подставил ваш скрипт к своему :smile:

Код:

For $i = 1 To $iCallsCount 
    Sleep($iCallsPeriod)
    korm()
Next

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


Func _exit()
	Exit
EndFunc

$iCallsPeriod = 3*60*1000 ;Период времени запуска функции
$iCallsCount = 10 ;Количество запусков функции

While 1
	Sleep(1000)
	WEnd





Func korm()
	Opt("PixelCoordMode", 2)
	Opt("MouseCoordMode", 2)
		Sleep(2000)
		$c = PixelGetColor(108, 34)


if $c = 0xF37E32 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',104, 36,1,5)
Else
	MouseClick('left',723, 56,1,5)
	Sleep(1000)
	MouseClick('left',401, 349,1,5)
	Sleep(500)
	MouseClick('left',385, 397,1,5)
	Sleep(500)
	MouseClick('left',422, 545,1,5)
  EndIf

  $aCoord_6=PixelSearch( 557, 35, 1356, 628, 0xBABB6C) ;++++
If @error Then
     MouseClick('left',104, 36,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_6[0],$aCoord_6[1],1)
 EndIf
 EndFunc

running-frag · 10 Июн 2012

Код:

$iCallsPeriod = 3*60*1000 ;Период времени запуска функции
$iCallsCount = 10 ;Количество запусков функции

Вытяни в начало скрипта. Они "вызываются" раньше чем обьявляются. Отсюда и ошибка.

jufas222 · 10 Июн 2012

running-frag [?]

Вытяни в начало скрипта

Вытянул, скрипт работает, но функция вместо 10 раз выполняется 1.

running-frag · 10 Июн 2012

Может так? Правда это без For но как вариант.

Код:

Opt ("PixelCoordMode", 2)
Opt ("MouseCoordMode", 2)
Opt ("MustDeclareVars", 1)
HotKeySet("{ESC}","_exit")
HotKeySet("{PAUSE}","_skip")

Local $_flag = True

Func _skip ()
	$_flag = Not $_flag
EndFunc

Func _exit()
    Exit
EndFunc


While True
    Sleep (100)
	If $_flag Then korm ()
WEnd

Func korm ()
    ; без таймингов
	If PixelGetColor (108, 34) = 0xF37E32 Then
		MouseClick ('left',104, 36,1,5)
	Else
		MouseClick ('left',723, 56,1,5)
		Sleep (1000)
		MouseClick ('left',401, 349,1,5)
		Sleep (500)
		MouseClick ('left',385, 397,1,5)
		Sleep (500)
		MouseClick ('left',422, 545,1,5)
	EndIf

	Local $aCoord_6 = PixelSearch ( 557, 35, 1356, 628, 0xBABB6C)
	If @error Then
		MouseClick ('left',104, 36,1,5)
	Else
		MouseClick ('left',$aCoord_6[0], $aCoord_6[1], 1)
	EndIf
	
 EndFunc

Смысл в том что по функция выполняется если

Код:

$_flag = True

в свою очередь значение меняется по кнопке пауза

Код:

HotKeySet("{PAUSE}","_skip")

PS: А если всё же интересно как с For то разберитесь с кодом Garrett'a, там всё чётко что вы хотели (согласно первому посту).

Garrett · 10 Июн 2012

jufas222 [?]

Так как я не знаю, как пользоватся ForToNext

Пример

running-frag · 10 Июн 2012

Код:

For $i = 1 To $iCallsCount
    ;Sleep ($iCallsPeriod)
	ConsoleWrite ($i&@CR)
    ;korm()
Next

Закомментируйте и посмотрите в консоль. Если там от 1 до 10, значит у вас косяк в функции т.к. цикл сам по себе пробегает правильно. Если там меньше или больше, значит неверно задана

Код:

Local $iCallsCount = 10

jufas222 · 10 Июн 2012

Garrett [?]

Пример

Если ваш "пример" вставить в скрипт, то сразу же активируется скрипт, и к тому же работает не так как задумывалось. Первый раз нормально, второй раз третий и четвёртый он просто кликает 2 раза (по пакетику с кормом).

Добавлено:
Сообщение автоматически объединено: 10 Июн 2012

Я изначально "выклал" не весь скрипт , а только функцию , я думал, что по примеру доделаю скрипт.
Мне изложить весь скрипт ? или это ни чего не решит ?

running-frag · 10 Июн 2012

jufas222 [?]

Мне изложить весь скрипт ?

Покажите то что должно повторятся N-ное кол. раз и в каком цикле вы хотите это повторять.

jufas222 · 10 Июн 2012

Вот скрипт полностью, в каждой функции много одинаковых действий.

Код:

HotKeySet ("{F1}", "_Exit")

Func _Exit()
	Exit
EndFunc



AdlibRegister('leika', 2*60*1000) ; функция вызывается и должна повторятся столько раз, сколько я ей задам
AdlibRegister('korm', 3*60*1000)  ; функция вызывается и должна повторятся столько раз, сколько я ей задам
AdlibRegister('raspilitel', 5*60*1000)  ; функция вызывается и должна повторятся столько раз, сколько я ей задам
AdlibRegister('musik', 7*60*1000)   ; функция вызывается и должна повторятся столько раз, сколько я ей задам





WinWaitActive ("Plants vs. Zombie")

While 1

	$aCoord=PixelSearch( 568, 108, 1342, 564, 0x965F24 )     ; мышка должна найти цвет и кликать на него.
If Not @error Then
    MouseClick('left', $aCoord[0], $aCoord[1], 10,7)
EndIf
	WEnd


	Func leika()                              
		Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
		Sleep(2000)
		$c = PixelGetColor(46, 47)


if $c = 0xFFCF11 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',46,47,1,5)
  EndIf

  $aCoord_6=PixelSearch( 1,71, 789, 526, 0x5BECF2) 
If @error Then
     MouseClick('left',46, 47,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_6[0],$aCoord_6[1],1)
 EndIf



 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
		Sleep(2000)
		$c = PixelGetColor(46, 47)


if $c = 0xFFCF11 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',46,47,1,5)
  EndIf

  $aCoord_7=PixelSearch( 1,71, 789, 526, 0x5BECF2) 
If @error Then
     MouseClick('left',46, 47,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_7[0],$aCoord_7[1],1)
 EndIf





 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
		Sleep(2000)
		$c = PixelGetColor(46, 47)


if $c = 0xFFCF11 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',46,47,1,5)
  EndIf

  $aCoord_8=PixelSearch( 1,71, 789, 526, 0x5BECF2) 
If @error Then
     MouseClick('left',46, 47,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_8[0],$aCoord_8[1],1)
 EndIf



 EndFunc




 Func korm()
	 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
	 Sleep(2000)
		$c = PixelGetColor(107, 41)


if $c = 0x50918A then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',107,41,1,5)
Else
	MouseClick('left',725, 57,1,5)
	Sleep(1000)
	MouseClick('left',396, 356,1,5)
	Sleep(500)
	MouseClick('left',302, 399,1,5)
	Sleep(500)
	MouseClick('left',429, 552,1,5)
  EndIf

  $aCoord_9=PixelSearch( 5, 6, 795, 540, 0xE0D47F) 
If @error Then
     MouseClick('left',107,41,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_9[0],$aCoord_9[1],1)
 EndIf






 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
	 Sleep(2000)
		$c = PixelGetColor(107, 41)


if $c = 0x50918A then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',107,41,1,5)
Else
	MouseClick('left',725, 57,1,5)
	Sleep(1000)
	MouseClick('left',396, 356,1,5)
	Sleep(500)
	MouseClick('left',302, 399,1,5)
	Sleep(500)
	MouseClick('left',429, 552,1,5)
  EndIf

  $aCoord_10=PixelSearch( 5, 6, 795, 540, 0xE0D47F) 
If @error Then
     MouseClick('left',107,41,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_10[0],$aCoord_10[1],1)
 EndIf






 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
	 Sleep(2000)
		$c = PixelGetColor(107, 41)


if $c = 0x50918A then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',107,41,1,5)
Else
	MouseClick('left',725, 57,1,5)
	Sleep(1000)
	MouseClick('left',396, 356,1,5)
	Sleep(500)
	MouseClick('left',302, 399,1,5)
	Sleep(500)
	MouseClick('left',429, 552,1,5)
  EndIf

  $aCoord_11=PixelSearch( 5, 6, 795, 540, 0xA5D570) 
If @error Then
     MouseClick('left',107,41,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_11[0],$aCoord_11[1],1)
 EndIf
	 EndFunc




Func raspilitel()
	Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
	 Sleep(2000)
		$c = PixelGetColor(177, 47)


if $c = 0x609538 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',177,47,1,5)
Else
	MouseClick('left',725, 57,1,5)
	Sleep(1000)
	MouseClick('left',473, 362,1,5)
	Sleep(500)
	MouseClick('left',302, 399,1,5)
	Sleep(500)
	MouseClick('left',429, 552,1,5)
  EndIf

  $aCoord_12=PixelSearch( 5, 6, 795, 540, 0x6DA042)
If @error Then
     MouseClick('left',177,44,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_12[0],$aCoord_12[1],1)
 EndIf




 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
	 Sleep(2000)
		$c = PixelGetColor(177, 47)


if $c = 0x609538 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',177,47,1,5)
Else
	MouseClick('left',725, 57,1,5)
	Sleep(1000)
	MouseClick('left',473, 362,1,5)
	Sleep(500)
	MouseClick('left',302, 399,1,5)
	Sleep(500)
	MouseClick('left',429, 552,1,5)
  EndIf

  $aCoord_13=PixelSearch( 5, 6, 795, 540, 0x6DA042)
If @error Then
     MouseClick('left',177,44,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_13[0],$aCoord_13[1],1)
 EndIf







 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
	 Sleep(2000)
		$c = PixelGetColor(177, 47)


if $c = 0x609538 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',177,47,1,5)
Else
	MouseClick('left',725, 57,1,5)
	Sleep(1000)
	MouseClick('left',473, 362,1,5)
	Sleep(500)
	MouseClick('left',302, 399,1,5)
	Sleep(500)
	MouseClick('left',429, 552,1,5)
  EndIf

  $aCoord_14=PixelSearch( 5, 6, 795, 540, 0x6DA042)
If @error Then
     MouseClick('left',177,44,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_14[0],$aCoord_14[1],1)
 EndIf








 EndFunc



 Func musik()

	 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
	 Sleep(2000)
		$c = PixelGetColor(247, 33)


if $c = 0xB57D02 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',247,33,1,5)
  EndIf

  $aCoord_15=PixelSearch( 5, 6, 795, 540, 0xFFFF09)
If @error Then
     MouseClick('left',247,33,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_15[0],$aCoord_15[1],1)
 EndIf







 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
	 Sleep(2000)
		$c = PixelGetColor(247, 33)


if $c = 0xB57D02 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',247,33,1,5)
  EndIf

  $aCoord_16=PixelSearch( 5, 6, 795, 540, 0xFFFF09)
If @error Then
     MouseClick('left',247,33,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_16[0],$aCoord_16[1],1)
 EndIf







 Opt("PixelCoordMode", 2)
		Opt("MouseCoordMode", 2)
	 Sleep(2000)
		$c = PixelGetColor(247, 33)


if $c = 0xB57D02 then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
if $cc = 1 then
MouseClick('left',247,33,1,5)
  EndIf

  $aCoord_17=PixelSearch( 5, 6, 795, 540, 0xFFFF09)
If @error Then
     MouseClick('left',247,33,1,5)
 Else
	 sleep (3000)
	 MouseClick('left',$aCoord_17[0],$aCoord_17[1],1)
 EndIf
 EndFunc

Я хотел сделать так, что бы функция включалась через определённое время и повторялась, столько раз, сколько я ей задам, вместо того что бы писать одни и те жи действия в функциях.

Garrett · 10 Июн 2012

jufas222

Код:

AdlibRegister('leika', 2*60*1000) ; функция вызывается и должна повторятся столько раз, сколько я ей задам

Нет, она не повторяется "столько раз, сколько вы ей задаете". Она выполняется один раз в определённый интервал времени, который вы задаёте.
Не путайте понятия :smile:

Автор темы	Похожие темы	Форум	Ответы	Дата
	Мышь, клавиатура Как предотвратить случайный повторный вызов функции по горячей клавише?	Общие вопросы по AutoIt	9	1 Авг 2021
A	Не обнуляются локальные переменные при повторном вызове функции	Разработка ботов	1	19 Окт 2018
R	Повтор в функции _ImageSearch	Общие вопросы по AutoIt	1	31 Май 2016
V	как сделать повторение функции с пунктовой нумерацией?	Общие вопросы по AutoIt	7	1 Авг 2015
K	Подсчёт повтора функции.	Общие вопросы по AutoIt	17	14 Мар 2014

Повтор функции заданое количество раз.

Знающий

Осваивающий

Знающий

Модератор

Знающий

Модератор

Знающий

Must AutoIt!

Знающий

Must AutoIt!

Знающий

why me?

Знающий

why me?

Модератор

why me?

Знающий

why me?

Знающий

Модератор