[Мышь, клавиатура] Нужен скрипт для поочерёдного клика

[zelich]

Сделал:

#include <Misc.au3>
TraySetToolTip('Clicker')

HotKeySet('{Esc}', '_Exit')
HotKeySet('{F1}', 'What')
HotKeySet('{F2}', 'What2')
HotKeySet('{F3}', 'Inpute')
HotKeySet('{F4}', 'Click')
$t = InputBox('Clicker', "F1  ====>Откуда клик"&@CRLF&"F2  ====>Куда клик"&@CRLF&"F3  ====>Кол-во"&@CRLF&"F4  ====>On\Off" & @CRLF & @CRLF & "Кол-во раз:", '', '', 150, 170)
If $t = '' Then
   $t=0
EndIf
Global	$zX
Global	$zY 
Global	$qX
Global	$qY

While 1
    Sleep(10)
WEnd 

Func Click()
	$i = 0
    While $i < $t
    MouseMove($zX, $zY)
    MouseClick('LEFT')
	Sleep(1000)
	MouseMove($qX, $qY)
	MouseClick('LEFT')
	Sleep(1000)
	$i = $i + 1
	WEnd
EndFunc

Func What1()
    $aMousePos = MouseGetPos()
	$zX = $aMousePos[0]
	$zY = $aMousePos[1]
 EndFunc 
 
 Func What2()
    $aMousePos = MouseGetPos()
	$qX = $aMousePos[0]
	$qY = $aMousePos[1]
 EndFunc 
 
 Func Inpute()
   $t = InputBox('Koli4estvo', "Кол-во раз:", '', '', 150, 120)
EndFunc
 
Func _Exit()
    Exit
 EndFunc

От скрипта хочу:
При нажатие на F1 запоминалась точка A, при нажатие F2 запоминалась точка В.
После нажатия F4 было сделано N кликов A-> B

Заранее спасибо!

 

[CreatoR]

Re: [Мышь, клавиатура] Не запускается скрипт

zelich [?]

Скрипт запускается

А заголовок темы говорит иначе.

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Мышь, клавиатура] Не запускается скрипт" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Администратор.

После этого скрипт выключаеься

Всё правильно, а с чего ему продолжать, ему не задано продолжение.

 

[zelich]

CreatoR, изменил

 

[C2H5OH]

zelich,
а вопрос у тебя какой?
Или ты просто похвастаться своим скриптом хотел?

 

[zelich]

C2H5OH

От скрипта хочу:
При нажатие на F1 запоминалась точка A, при нажатие F2 запоминалась точка В.
После нажатия F4 было сделано N кликов A-> B

 

[C2H5OH]

. . .

Спойлер

Сделал:

#include <Misc.au3>
TraySetToolTip('Clicker')

HotKeySet('{Esc}', '_Exit')
HotKeySet('{F1}', 'What')
HotKeySet('{F2}', 'What2')
HotKeySet('{F3}', 'Inpute')
HotKeySet('{F4}', 'Click')
$t = InputBox('Clicker', "F1  ====>Откуда клик"&@CRLF&"F2  ====>Куда клик"&@CRLF&"F3  ====>Кол-во"&@CRLF&"F4  ====>On\Off" & @CRLF & @CRLF & "Кол-во раз:", '', '', 150, 170)
If $t = '' Then
   $t=0
EndIf
Global  $zX
Global  $zY 
Global  $qX
Global  $qY

While 1
    Sleep(10)
WEnd 

Func Click()
    $i = 0
    While $i < $t
    MouseMove($zX, $zY)
    MouseClick('LEFT')
    Sleep(1000)
    MouseMove($qX, $qY)
    MouseClick('LEFT')
    Sleep(1000)
    $i = $i + 1
    WEnd
EndFunc

Func What1()
    $aMousePos = MouseGetPos()
    $zX = $aMousePos[0]
    $zY = $aMousePos[1]
 EndFunc 
 
 Func What2()
    $aMousePos = MouseGetPos()
    $qX = $aMousePos[0]
    $qY = $aMousePos[1]
 EndFunc 
 
 Func Inpute()
   $t = InputBox('Koli4estvo', "Кол-во раз:", '', '', 150, 120)
EndFunc
 
Func _Exit()
    Exit
 EndFunc

zelich,
а помощь тебе какая нужна?

 

[zelich]

C2H5OH, мне нужно, чтоб посмотрели и сказали где я ошибся...

 

[C2H5OH]

Ну, я разве что поставил бы ещё вот тут задержки

MouseMove($zX, $zY)
    Sleep(1000)
    MouseClick('LEFT')
    Sleep(1000)
    MouseMove($qX, $qY)
    Sleep(1000)
    MouseClick('LEFT')
    Sleep(1000)

А так не вижу никаких "ошибок".
В чём проявляется проблема?

 

[zelich]

C2H5OH, спасибо. Уже сделал

 

[defens]

можно сделать меньше строк и писать без MouseMove($zX, $zY), а сразу MouseClick("primary", $zX, $zY, 1) по аналоги и в других подобных строках, если конечно не нужно предварительно перемещение


Добавлено:

Сообщение автоматически объединено: 21 Дек 2012

да и если это не часть скрипта то на F1 не идентифицирована функция запоминания точки "А"

можно еще так переделать если ты это $aMousePos еще где не применяешь

Func What2()
    $qX = MouseGetPos(0)
    $qY = MouseGetPos(1)
 EndFunc