Что нового

выполнение по списку

olegkyka

Новичок
Сообщения
2
Репутация
0
Сразу говорю в програмvировании полный ноль. Не подскажете мне, как сделать, чтоб функция прошлась по заданным координатам, а то "промахивается":


Код:
While 1
;~ 1
SeloCheck(862,676)
Sleep(1000)
;~ 2
SeloCheck(1142,466)
Sleep(1000)
;~ 3
SeloCheck(1209,407)
Sleep(1000)
;~ 4
SeloCheck(1156,330)
Sleep(1000)
;~ 5
SeloCheck(911,221)
Sleep(1000)
;~ 6
SeloCheck(792,260)
Sleep(1000)
;~ 7
SeloCheck(760,290)
Sleep(1000)

WEnd

func MenuCheck()
    Dim $i=0
    
    if not @error then 
        While $i=0
      
        if not @error then 
           
            $i=$i+1
        EndIf
        WEnd
    EndIf
EndFunc

Func SeloCheck($x1,$y1)
    if not @error then 
        MouseClick('left',$x1,$y1,1,15)
	   Sleep(1500)
	   MouseClick('left',$x1,$y1,1,19)
	   Sleep(1900)
	   MouseClick('left',824,770,1,20)
	   Sleep(2000)
   
    EndIf 
EndFunc

Скрипт не мой, пытался переделать по аналогии.

Используйте для AutoIt кода тег [autoit]
autoit.gif

madmasles.
 

Dima1337

Осваивающий
Сообщения
186
Репутация
24
Поясните. "Промахивается" это значит щелкает мышью не по тем координатам или же не щелкает в какое то окно?

Уменьшил, все работает :scratch:
Код:
Global $xPos, $yPos

While 1
   Click( 325, 201)
   Sleep(1000)
   Exit
WEnd

Func Click( $xPos, $yPos)
   If Not @error Then
	  MouseClick( "left", $xPos, $yPos, 1)
	  Sleep(1000)
   EndIf
EndFunc
 
Верх