[Мышь, клавиатура] Бесконечный клик ЛКМ с условием

Flammable · 3 Дек 2009

Требуется скрипт, эмулирующий нажатия ЛКМ с заданным интервалом пока ЛКМ зажата. Т.к я нуб в AutoItX и только начинаю разбираться что к чему, хотел бы узнать от вас, как именно это можно реализовать :smile:

Собственно говоря, что я пытался сделать:

Код:

Global $MOUSE_PRIMARYDOWN_EVENT
Global $MOUSE_PRIMARYUP_EVENT

HotKeySet ("{NUMPAD1}", "ScriptStart")
HotKeySet ("{NUMPAD2}", "ScriptStop")
HotKeySet ("{NUMPAD3}", "ScriptExit")

Func ScriptStart()
	if ($MOUSE_PRIMARYDOWN_EVENT = 1) Then
		While ($MOUSE_PRIMARYUP_EVENT = 0)
		MouseClick("left")
		Sleep(75)
		WEnd
	EndIf
EndFunc

Func ScriptStop()
	Sleep(1000000) 
EndFunc

Func ScriptExit()
	Exit
EndFunc

Жду вашей поддержки =)

CreatoR · 4 Дек 2009

Flammable [?]

Требуется скрипт, эмулирующий нажатия ЛКМ с заданным интервалом пока ЛКМ зажата

Дело в том что таким образом мы создаём зацикливание, т.е мы проверяем если кнопка мышки зажата, но в то же время мы скриптом её и нажимаем, цикл никогда не будет завершён.

Нужна более подробная постановка задачи ;)

Flammable · 4 Дек 2009

Хорошо, перефразирую. Нужно сделать "переключение" режима работы мыши, жмем num1 и при зажатой ЛКМ получаем повторяющиеся клики ЛКМ. Это возможно?

Добавлено
-----------

Можно ли отменять захват ЛКМ, а потом включать, чтобы во время отключения эмулировать клик?

CreatoR · 4 Дек 2009

Flammable [?]

жмем num1 и при зажатой ЛКМ получаем повторяющиеся клики ЛКМ. Это возможно?

Код:

#include <Misc.au3>

Global $bRuning = False

HotKeySet("{NUMPAD1}", "ScriptStart")
HotKeySet("{NUMPAD2}", "ScriptStop")
HotKeySet("{NUMPAD3}", "ScriptExit")

While 1
	Sleep(100)
WEnd

Func ScriptStart()
	$bRuning = True
	
	If _IsPressed("01") Then
		While $bRuning
			MouseClick("Main")
			Sleep(75)
		WEnd
	EndIf
EndFunc

Func ScriptStop()
	$bRuning = False
EndFunc

Func ScriptExit()
	Exit
EndFunc

Flammable · 4 Дек 2009

Спасибо, попробую.
Можно еще разъяснить как оно работает? =)

Misc.au3

Где это можно скачать? Поиском не нашел..
Добавлено:
Сообщение автоматически объединено: 4 Дек 2009

Попробовал в точности так написать и запустить. Не работает. Вернее, работает, но черт знает как - очереди из нескольких кликов. При отпускании ЛКМ продолжается, останавливается NUM2.

Может вы неправильно меня поняли, num1 нажимается и отпускается, т.е ЛКМ зажимается при отжатой num1.

CreatoR · 4 Дек 2009

Flammable [?]

Где это можно скачать?

Это стандартная библиотека в AutoIt, она уже там есть.

Попробовал в точности так написать и запустить

А не проще скопировать отсюда с форума? :D

Не работает. Вернее, работает, но черт знает как

Работает так, как и была поставлена задача.

При отпускании ЛКМ продолжается

Я сделал так как вы и просили... «жмем num1 и при зажатой ЛКМ получаем повторяющиеся клики ЛКМ». Т.е зажать ЛКМ, нажать Num1, и клики начнуться.
Сложность осуществления «нажатия кликов при зажатом клике :wacko: » я уже озвучил, видимо нужно перечитать ещё пару раз то что я написал.

Может вы неправильно меня поняли

А может вы всё же неправильно описали задачу ;)...

num1 нажимается и отпускается, т.е ЛКМ зажимается при отжатой num1

Это уже другая задача...

Код:

Global $bRuning = False

HotKeySet("{NUMPAD1}", "ScriptStart")
HotKeySet("{NUMPAD2}", "ScriptStop")
HotKeySet("{NUMPAD3}", "ScriptExit")

While 1
	Sleep(100)
WEnd

Func ScriptStart()
	$bRuning = True
	
	While $bRuning
		MouseClick("Main")
		Sleep(75)
	WEnd
EndFunc

Func ScriptStop()
	$bRuning = False
EndFunc

Func ScriptExit()
	Exit
EndFunc

Flammable · 4 Дек 2009

А не проще скопировать отсюда с форума?

Гы

Я же не полный идиот, скопипастил конечно =)
Спасибо большое за пояснения. Скрипт никак теперь не работает=)
Давайте упростим задачу. Безо всяких хоткеев при зажимании ЛКМ эмулировать бесконечный клик до отпускания ЛКМ.

kaster · 4 Дек 2009

Flammable [?]

при зажимании ЛКМ эмулировать бесконечный клик до отпускания ЛКМ

так сказали же, так не получится. условия выхода из цикла - отжим ЛКМ. в то время как в самом цикле зажим ЛКМ. следовательно цикл никогда не прекратится запустившись раз.

Flammable · 4 Дек 2009

Спасибо, Kaster. Можно ли тогда эмулировать бесконечные клики при зажатой ПКМ, либо другой кнопке мыши или клавиатуры?.. Даже просто при одном клике дополнительно эмулировать еще десяток кликов. Такое реализуемо?

CreatoR · 4 Дек 2009

Flammable [?]

Скрипт никак теперь не работает

Работает.

[?]

Можно ли тогда эмулировать бесконечные клики при зажатой ПКМ, либо другой кнопке мыши или клавиатуры?

Можно... но сперва встречный, и я бы сказал лобовой вопрос - к чему это нужно, именно так?

просто при одном клике дополнительно эмулировать еще десяток кликов. Такое реализуемо?

Да:
MouseSetOnEvent_UDF.au3 брать тут.

Код:

#include <MouseSetOnEvent_UDF.au3>

Global $bPrimaryUp_Event = False

HotKeySet("^+e", "_Quit")
_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "MousePrimaryUp_Event", "", "", 0, 0)

While 1
	Sleep(10)
	
	If $bPrimaryUp_Event Then
		$bPrimaryUp_Event = False
		
		_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT)
		
		For $i = 1 To 10
			MouseClick("Main")
		Next
		
		_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "MousePrimaryUp_Event", "", "", 0, 0)
	EndIf
WEnd

Func MousePrimaryUp_Event()
	$bPrimaryUp_Event = True
EndFunc

Func _Quit()
	Exit
EndFunc

Добавлено:
Сообщение автоматически объединено: 4 Дек 2009

Flammable [?]

эмулировать бесконечные клики при зажатой ПКМ

Вот так например:

Код:

#include <MouseSetOnEvent_UDF.au3>

Global $bSecondaryDown_Event = False

HotKeySet("^+e", "_Quit")

_MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT, "MouseSecondary_Event", 1, "", 0, 0)
_MouseSetOnEvent($MOUSE_SECONDARYUP_EVENT, "MouseSecondary_Event", 2, "", 0, 0)

While 1
	Sleep(10)
	
	If $bSecondaryDown_Event Then
		_MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT)
		
		While $bSecondaryDown_Event
			MouseClick("Main")
		WEnd
		
		_MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT, "MouseSecondary_Event", 1, "", 0, 0)
		_MouseSetOnEvent($MOUSE_SECONDARYUP_EVENT, "MouseSecondary_Event", 2, "", 0, 0)
	EndIf
WEnd

Func MouseSecondary_Event($iEvent)
	$bSecondaryDown_Event = ($iEvent = 1)
EndFunc

Func _Quit()
	Exit
EndFunc

Flammable · 6 Дек 2009

эмулировать бесконечные клики при зажатой ПКМ
Вот так например:

Большое спасибо, CreatoR! Еще вопросы есть.. Происходит эмуляция двойного клика при одиночном клике. Как исправить на одиночный клик?
И второе: Как правильно написать тот же скрипт, но эмулирующий "клики" кнопкой клавиатуры при зажатой ЛКМ? Пробовал просто заменить MouseClick("left") на Send("{ENTER}"), но получаются глюки, если во время эмуляции нажимать другие клавиши клавиатуры.

CreatoR · 6 Дек 2009

Flammable [?]

Происходит эмуляция двойного клика при одиночном клике. Как исправить на одиночный клик?

Поставить паузу между кликами?

Пробовал просто заменить MouseClick("left") на Send("{ENTER}")

Только так, или через ControlSend если заранее известен элемент и заголовок окна.

Flammable · 6 Дек 2009

Поставить паузу между кликами?

Можно попробовать..
У меня на мышке 5 кнопок (две основные, одна на колесе и две по бокам от колеса), как узнать имена кнопок около колеса?

CreatoR · 6 Дек 2009

Flammable [?]

как узнать имена кнопок около колеса?

Имена? Primary это слева, Secondary справа... :smile:

А зачем оно?

Flammable · 6 Дек 2009

CreatoR сказал(а):
Имена? Primary это слева, Secondary справа... А зачем оно?

Вроде primary и secondary это ЛКМ и ПКМ, а меня интересуют мелкие кнопки возле колеса, используются как назад/вперед. В общем случае, как узнавать имена кнопок?

CreatoR · 6 Дек 2009

Flammable [?]

В общем случае, как узнавать имена кнопок?

В справке.

Dzaiter · 24 Авг 2019

Flammable сказал(а):
Требуется скрипт, эмулирующий нажатия ЛКМ с заданным интервалом пока ЛКМ зажата. Т.к я нуб в AutoItX и только начинаю разбираться что к чему, хотел бы узнать от вас, как именно это можно реализовать
Собственно говоря, что я пытался сделать:

Код:

Global $MOUSE_PRIMARYDOWN_EVENT Global $MOUSE_PRIMARYUP_EVENT HotKeySet ("{NUMPAD1}", "ScriptStart") HotKeySet ("{NUMPAD2}", "ScriptStop") HotKeySet ("{NUMPAD3}", "ScriptExit") Func ScriptStart() if ($MOUSE_PRIMARYDOWN_EVENT = 1) Then While ($MOUSE_PRIMARYUP_EVENT = 0) MouseClick("left") Sleep(75) WEnd EndIf EndFunc Func ScriptStop() Sleep(1000000) EndFunc Func ScriptExit() Exit EndFunc

Жду вашей поддержки =)

а можно скрипт при зажатой лкм будет кликаться клавиша т (русская)

ZaRaki · 24 Авг 2019

Dzaiter сказал(а):
а можно скрипт при зажатой лкм будет кликаться клавиша т (русская)

Кликкер при зажатой лкм кликает клавишу "n"

В общем, мне нужен скрипт, который нажимает клавишу (английскую) "n" , при зажатой лкм.

autoit-script.ru

Автор темы	Похожие темы	Форум	Ответы	Дата
Y	[Мышь, клавиатура] Комбинация клавиш	Общие вопросы по AutoIt	2	30 Июл 2019
L	[Мышь, клавиатура] Имитация движения мыши	Общие вопросы по AutoIt	1	10 Апр 2019
K	[Мышь, клавиатура] макрос/бхоп(банихоп)	Общие вопросы по AutoIt	1	25 Мар 2019
A	[Мышь, клавиатура] Управление движениями мыши в игре(шутер) через скрипт	Общие вопросы по AutoIt	0	28 Фев 2019
W	[Мышь, клавиатура] Бесконечный цикл нажатия клавиши пробел	Общие вопросы по AutoIt	4	16 Май 2013

Поиск

Поиск

[Мышь, клавиатура] Бесконечный клик ЛКМ с условием

Flammable

Новичок

CreatoR

Must AutoIt!

Flammable

Новичок

CreatoR

Must AutoIt!

Flammable

Новичок

CreatoR

Must AutoIt!

Flammable

Новичок

kaster

Мой Аватар, он лучший самый

Flammable

Новичок

CreatoR

Must AutoIt!

Flammable

Новичок

CreatoR

Must AutoIt!

Flammable

Новичок

CreatoR

Must AutoIt!

Flammable

Новичок

CreatoR

Must AutoIt!

Dzaiter

Новичок

ZaRaki

Знающий

Кликкер при зажатой лкм кликает клавишу "n"