Что нового

Нужно чтобы скрипт выполнялся множественное кол-во раз

Art4D

Новичок
Сообщения
22
Репутация
3
вот скрипт:
Код:
$coord = PixelSearch( 440, 134, 1699, 989, 0xFBFDFD )
If @error=0 Then MouseClick('left',$coord[0],$coord[1])
$coord = PixelSearch( 440, 134, 1699, 989, 0xFCB975 )
If @error=0 Then MouseClick('left',$coord[0],$coord[1])	
$coord = PixelSearch( 440, 134, 1699, 989, 0x8A82C0 )
If @error=0 Then MouseClick('left',$coord[0],$coord[1])
$coord = PixelSearch( 440, 134, 1699, 989, 0x45B217 )
If @error=0 Then MouseClick('left',$coord[0],$coord[1])
$coord = PixelSearch( 440, 134, 1699, 989, 0x7178E2 )
If @error=0 Then MouseClick('left',$coord[0],$coord[1])
$coord = PixelSearch( 440, 134, 1699, 989, 0xA17F4F )
If @error=0 Then MouseClick('left',$coord[0],$coord[1])

Как сделать чтобы он бесконечно выполнялся а потом на какую нибудь клавишу останавливался.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Код:
While 1
    script()
Wend


и HotKeySet команда для работы со скриптом по хоткею.
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Попробуй так

Код:
HotKeySet("{ESC}", "_exit")
Dim $value[6] = [0xFBFDFD,0xFCB975,0x8A82C0,0x45B217,0x7178E2,0xA17F4F]

while 1	
For $i = 0 to UBound($value)-1
$coord = PixelSearch( 440, 134, 1699, 989, $value[$i])
If @error=0 Then MouseClick('left',$coord[0],$coord[1])
Next
wend 

func _exit ()
exit	
EndFunc
 
Автор
A

Art4D

Новичок
Сообщения
22
Репутация
3
VladUs сказал(а):
Попробуй так

Код:
HotKeySet("{ESC}", "_exit")
Dim $value[6] = [0xFBFDFD,0xFCB975,0x8A82C0,0x45B217,0x7178E2,0xA17F4F]

while 1	
For $i = 0 to UBound($value)-1
$coord = PixelSearch( 440, 134, 1699, 989, $value[$i])
If @error=0 Then MouseClick('left',$coord[0],$coord[1])
Next
wend 

func _exit ()
exit	
EndFunc
сейчас попробую
 
Верх