Что нового

Скрипт работает только 10 кликов

Maks1888

Новичок
Сообщения
10
Репутация
0
Хочу пошутить над коллегой на работе, но скрипт отрабатывает только 10 кликов. Подскажите в чем косяк
Код:
#include <GUIConstantsEx.au3>
#include "..\MouseOnEvent.au3"

$num = 1
While 1
	_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "_MouseClick")
	Sleep(25)
HotKeySet("{ESC}", "_Quit")

WEnd

Func _MouseClick()
	$aPos = MouseGetPos() ; текущие координаты курсора
	$flagX = Random(0, 1, 1) ; если 0 то координата отрицательная
	$flagY = Random(0, 1, 1) ; если 1 то коодината положительная
	$MoveX = Random(0, 100, 1) ; новая координата Х
	$MoveY = Random(0, 100, 1) ; Новая координата У
	if $flagX = 0 Then
		$MoveX = $MoveX * (-1)
	EndIf
	if $flagY = 0 Then
		$MoveY = $MoveY * (-1)
	EndIf

	MouseMove($aPos[0] + $MoveX, $aPos[1] + $MoveY, 1)

	ToolTip($num)
	$num += 1
EndFunc

Func _Quit()
	ToolTip("Стоп")
	Exit
EndFunc
 
Автор
M

Maks1888

Новичок
Сообщения
10
Репутация
0
что, совсем никаких идей? заметил такую особенность, на вин ХР работает без ограничений в 10 кликов, но некоторые клики пропадают. на вин 10 появляется ограничение в пресловутые 10 кликов
 

joiner

Модератор
Локальный модератор
Сообщения
3,425
Репутация
597
Код:
#include <GUIConstantsEx.au3>
#include "MouseOnEvent.au3"
HotKeySet("{ESC}", "_Quit")
Global $num = 1
_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "_MouseClick", 0, 0)
While 1
	Sleep(25)
WEnd

Func _MouseClick()
	Local $aPos = MouseGetPos() ; текущие координаты курсора
	Local $flagX = Random(0, 1, 1) ; если 0 то координата отрицательная
	Local $flagY = Random(0, 1, 1) ; если 1 то коодината положительная
	Local $MoveX = Random(0, 100, 1) ; новая координата Х
	Local $MoveY = Random(0, 100, 1) ; Новая координата У
	If $flagX = 0 Then
		$MoveX = $MoveX * (-1)
	EndIf
	If $flagY = 0 Then
		$MoveY = $MoveY * (-1)
	EndIf
	MouseMove($aPos[0] + $MoveX, $aPos[1] + $MoveY, 1)
	ToolTip($num)
	$num += 1
EndFunc   ;==>_MouseClick

Func _Quit()
	ToolTip("Стоп")
	Exit
EndFunc   ;==>_Quit
 
Верх