[Мышь, клавиатура] Блокировка мышки во время MouseMove()

[maddoc]

Возможно ли отобрать у пользователя право руководить мышкой, во время MouseMove ?
Из примеров блокировки мышки, которые есть на форуме (моус хука) сделать что либо подобное не вышло, мышка перестает двигатца )

 

[kaster]

maddoc
справка -> BlockInput

 

[Yuri]

While 1
$pos = MouseGetPos() ; получить текущие координыты указателя мыши
Call("MouseIce")
WEnd

Func MouseIce()
    While 1
    MouseMove($pos[0], $pos[1], 1) ; устанавливать всегда указатель по этим координатам    
    WEnd
EndFunc

Аккуратно! Мышь (курсор) замрет замертво. Снимать задачу из диспетчера клавиатурой (Up, Down, Tab, Backspace)

 

[FlatX007]

Yuriy - ты гениально придумал, а теперь запусти и посмотри нагрузку на процессор!

Задача снимается из открытого окна SciTE комбинацией клавиш : Ctrl + Pause Break

 

[Yuri]

Ну просто убрал задержки.
Так, с задержками у меня 1% грузит проц.

While 1
	Sleep(100)
	$pos = MouseGetPos() ; получить текущие координыты указателя мыши
	Call("MouseIce")
WEnd

Func MouseIce()
	While 1
	Sleep(10)	
	MouseMove($pos[0], $pos[1], 1) ; устанавливать всегда указатель по этим координатам    
	WEnd
EndFunc

 

[FlatX007]

Мышь не стоит на месте это раз, а два - то, что проц всё равно сильно грузит!! (30%)

 

[Yuri]

У меня в первом варианте загрузка ЦП 50% была (проц 2 ядра).
Во втором - 0-3%

 

[kaster]

Yuriy
не плохо бы предусмотреть в скрипте выход из него.

 

[Yuri]

не плохо бы предусмотреть в скрипте выход из него

HotKeySet("{ESC}", "Terminate") ; выход из программы по ESC
While 1
	Sleep(100)
	$pos = MouseGetPos() ; получить текущие координаты указателя мыши
	Call("MouseIce")
WEnd

Func Terminate()
    Exit 0
EndFunc

Func MouseIce()
	While 1		
	MouseMove($pos[0], $pos[1], 1) ; устанавливать всегда указатель по этим координатам    
	WEnd
EndFunc

 

[FlatX007]

Всё равно фигня, мышь двигается и очень много.

мышь - 2000dpi

 

[Arei]

скажите пожалуйста, а как можно во время работы скрипта, что бы не работало средняя кнопка(листать страницы) такое можно сделать

 

[Tyr]

не плохо бы предусмотреть в скрипте выход из него

HotKeySet("{ESC}", "Terminate") ; выход из программы по ESC
While 1
	Sleep(100)
	$pos = MouseGetPos() ; получить текущие координаты указателя мыши
	Call("MouseIce")
WEnd

Func Terminate()
    Exit 0
EndFunc

Func MouseIce()
	While 1		
	MouseMove($pos[0], $pos[1], 1) ; устанавливать всегда указатель по этим координатам    
	WEnd
EndFunc

Была аналогичная задача:
1. $pos[0] и $pos[1] для удобства лучше передать в переменные
2. MouseMove($coordX, $coordY, 0) - зачем скорость перемещения делать "1". Мышка должна в эти координаты сразу попадать
3. MouseGetPos нужно использовать за циклом... если каждый раз определять заново координаты мыши, то за милисикунды её легко сдвинуть, а так даже при сдвиге - она вернётся к замороженным координатам.