[Мышь, клавиатура] Кликер мышка клавиатура

[Петр]

Версия AutoIt: 3.

Описание:
Господа здравствуйте,прошу помощи! Нужен кликер который будет кликать 1000 раз (лкм),после будет нажимать клавишу 1,потом снова 1000 кликов (лкм) и нажимать кнопку 2 и так далее до клавиши 9, после 9ой клавиши,кликал 1000 раз и останавливался. Помогите пожалуйста! заранее спасибо!

 

[Alofa]

Спойлер

Local $fTrigger

HotKeySet('{F1}', '_Start') ; F1 - Стартуем
HotKeySet('{PAUSE}', '_Stop') ; Кнопка "PAUSE" - Останавливаем циклы
HotKeySet('{ESC}', '_Exit') ; Кнопка "ESC" - Выход из скрипта

While Sleep(100)
WEnd

Func _Start()
	$fTrigger = False
	_MouseClicks()
	For $i = 1 To 9
		If $fTrigger Then Return
		Send('{NUMPAD' & $i & '}')
		For $j = 1 To 1000
			If $fTrigger Then Return
			_MouseClicks()
		Next
	Next
EndFunc   ;==>_Start

Func _MouseClicks()
	MouseClick('primary')
	Sleep(10)
EndFunc   ;==>_MouseClicks

Func _Stop()
	$fTrigger = True
EndFunc   ;==>_Stop

Func _Exit()
	Exit
EndFunc   ;==>_Exit

 

[Петр]

Огромное спасибо, а можно как ни будь сделать что бы он делал 1000 кликов но по 8ми координатам просто я пытался сам разрулить ситуацию вышло вот это и все хорошо робит но почему то он не выходит из программы по нажатию Ecs и делает всего лишь 15 кликов

HotKeySet('Ecs', '_Exit') 
HotKeySet('z', '_Click') 
HotKeySet('я', '_Click') 
Global $iClicks = 1000;1000кликов 
While 1 

WEnd 
Func _Click() 

MouseClick('Right',707,563) 
MouseClick('Right',707,595) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',740,563) 
MouseClick('Right',739,595) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',771,564) 
MouseClick('Right',772,594) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',807,562) 
MouseClick('Right',805,598) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',839,563) 
MouseClick('Right',839,596) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',871,564) 
MouseClick('Right',871,595) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',906,562) 
MouseClick('Right',904,598) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',937,564) 
MouseClick('Right',937,596) 
MouseClick("Left", 477, 694, $iClicks) 

Send("Ecs") 


EndFunc ;==>_Click 

Func _Exit() 
Exit 
EndFunc ;==>_ExitHotKeySet('Ecs', '_Exit') 
HotKeySet('z', '_Click') 
HotKeySet('я', '_Click') 
Global $iClicks = 1000;1000кликов 
While 1 

WEnd 
Func _Click() 

MouseClick('Right',707,563) 
MouseClick('Right',707,595) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',740,563) 
MouseClick('Right',739,595) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',771,564) 
MouseClick('Right',772,594) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',807,562) 
MouseClick('Right',805,598) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',839,563) 
MouseClick('Right',839,596) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',871,564) 
MouseClick('Right',871,595) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',906,562) 
MouseClick('Right',904,598) 
MouseClick("Left", 477, 694, $iClicks) 

MouseClick('Right',937,564) 
MouseClick('Right',937,596) 
MouseClick("Left", 477, 694, $iClicks) 

Send("Ecs") 


EndFunc ;==>_Click 

Func _Exit() 
Exit 
EndFunc ;==>_Exit

 

[Alofa]

Закройте свой код в тег [autoit][/autoit].
В данный момент я смотрю ваш код с гуглофона, без подсветки выглядит неприглядно (да и нарушение это правил форума).

 

[Петр]

Я Очень извиняюсь но почему то не получается пытаюсь запихнуть как вы сказали пишет "Извините, вам запрещено оставлять внешние ссылки." проблема кода в том что он очень быстро делает эти 1000 кликов как задать время нажатия кликов?


Добавлено:

Сообщение автоматически объединено: 20 Авг 2016

Все Благодарю решил проблему)

 

[Alofa]

... почему то не получается

Описание тегов

Все Благодарю решил проблему)

Очень хорошо.