Mouse Border

[hekt0]

Окончательно заколебавшись прицеливаться в контролы мышой, когда работаю с двумя мониторами, написал скрипт на AutoHotekey (фришная тулза, брать тут www.autohotkey.com).



Работает следующим образом:

- в нормальном состоянии не пускает мыша за границу текущего монитора

- при нажатом правом шифте позволяет двигать его как угодно без ограничений



Выкладываю код сюда, вдруг кому-то понравится:



------8<------

; Author: Andrey Lebedenko ([e-mail])

; version 1.0

; 01.05.06

;

; Warning: you are using this tool at your own risk.

;

; This sсriрt keeps mouse inside the current screen.

; If you need to move mouse to another one,

; press and hold Right Shift while moving the animal.

;



SysGet, Monitor, Monitor, 1

CoordMode Mouse, Screen

Border := 3



MouseGetPos, MouseX

if (MouseX <= MonitorRight) then

ActiveScreen := 0

else

ActiveScreen := 1





#Persistent

SetTimer, WatchCursor, 5

return



WatchCursor:

MouseGetPos, MouseX, MouseY



; For debug only

; ToolTip, Mouse: %MouseX% %MouseY%`nActiveScreen: %ActiveScreen%`ni : %i%



if !GetKeyState( "RShift", "P" ) then

{

i := A_MouseDelay

if ((MouseX > MonitorRight-Border) && (ActiveScreen == 0)) then

{

SetMouseDelay, -1

MouseMove, MonitorRight-Border, MouseY, 0

SetMouseDelay, %i%

} else

{

if ((MouseX < MonitorRight+Border) && (ActiveScreen == 1)) then

{

SetMouseDelay, -1

MouseMove, MonitorRight+Border, MouseY, 0

SetMouseDelay, %i%

}

}

} else

{

if (MouseX <= MonitorRight) then

ActiveScreen := 0

else

ActiveScreen := 1

}



return

------8<------