Координаты курсора в переменную, затем кликнуть

[kvitnitskiy]

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

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "Pause")
HotKeySet("{F2}", "MousGetpo")


Global $Paused
Func Terminate()
	Exit 0
EndFunc

Func Pause()
	$Paused = Not $Paused
	While $Paused
		Sleep(50)
		ToolTip("ПАУЗА! F1")
	WEnd
    ToolTip("")
EndFunc

$xk =0

Func MousGetpo()
    $xk=MouseGetPos()
	;ConsoleWrite('X= ' & $xk[0] & ", Y= " & $xk[1])
EndFunc
$cc =0

while $cc <=10
 MouseClick("left",$xk[0],$xk[1],3,10)
$cc=$cc+1
wend

 

[qqww22]

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "Pause")
HotKeySet("{F2}", "MousGetpo")
HotKeySet("{F3}", "click")
 #include <File.au3>

Global $Paused
Func Terminate()
    Exit 0
EndFunc

Func Pause()
    $Paused = Not $Paused
    While $Paused
        Sleep(50)
        ToolTip("ПАУЗА! F1")
    WEnd
    ToolTip("")
EndFunc


Func MousGetpo()
    $xk=MouseGetPos()
  $clck=$xk[0]&","&$xk[1]&@CRLF
    FileWrite("coord",$clck)
  EndFunc
  


func click()
  $stroka = 0
  while 1
  $stroka+=1
   $max = _FileCountLines("coord")
 $cli= FileReadLine("coord",$stroka)
  local $xy = StringSplit($cli,",",3)
  MouseClick("left",$xy[0],$xy[1],1,3)
if $stroka > $max then ExitLoop
wend

EndFunc
 
while 1
  sleep(10)
  wend

 

[kvitnitskiy]

Вроде бы оно, координаты берет исправно, затем кликает по ним, но..
1 - Как "завернуть в цикл", что бы после получения кор, пройтись например 10 раз по ним ?
2 - при каждом запуске скрипта и получении кор - дописывает в конец файла, и следовательно начинает кликать по тем корам, которые были записаны в файл ранее, и в конце соответственно по нужным.

 

[qqww22]

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "Pause")
HotKeySet("{F2}", "MousGetpo")
HotKeySet("{F3}", "click")
 #include <File.au3>

FileDelete("coord")

Global $Paused
Func Terminate()
    Exit 0
EndFunc

Func Pause()
    $Paused = Not $Paused
    While $Paused
        Sleep(50)
        ToolTip("ПАУЗА! F1")
    WEnd
    ToolTip("")
EndFunc


Func MousGetpo()
    $xk=MouseGetPos()
  $clck=$xk[0]&","&$xk[1]&@CRLF
    FileWrite("coord",$clck)
  EndFunc

$cikl = 5 ;~ количество циклов кликов.
$count = 0

func click()
  $stroka = 0
   $max = _FileCountLines("coord")
  while 1
  $stroka+=1
if $stroka > $max then ExitLoop
ConsoleWrite(@CR&$max)
$cli= FileReadLine("coord",$stroka)
local $xy = StringSplit($cli,",",3)
MouseClick("left",$xy[0],$xy[1],1,3)
wend
$count+=1
if $cikl = $count then
   $count = 0
Else
click()
endif
EndFunc

while 1
  sleep(10)
  wend

 

[kvitnitskiy]

qqww22 спасибо, то что надо :thumbs_up: