AHK: Блокировка передвижения мышки по оси Х при нажатой кнопке

CoordMode, Mouse
VarSetCapacity(Rect, 16)
Return

~XButton1::
   MouseGetPos, MouseX
   NumPut(MouseX, Rect), NumPut(0, Rect, 4)
   NumPut(MouseX, Rect, 8), NumPut(A_ScreenHeight, Rect, 12)
   DllCall("ClipCursor", UInt, &Rect)
   Return
   
~XButton1 Up:: DllCall("ClipCursor", UInt, 0)

; ортогональное движение курсора
   CoordMode, Mouse
   VarSetCapacity(Rect, 16)
   Return

~LShift::    ; вертикальное
   MouseGetPos, MouseX
   NumPut(MouseX, Rect), NumPut(0, Rect, 4)
   NumPut(MouseX, Rect, 8), NumPut(A_ScreenHeight, Rect, 12)
   DllCall("ClipCursor", UInt, &Rect)
   KeyWait, LShift
   Return

~LControl::  ; горизонтальное
   MouseGetPos,, MouseY
   NumPut(0, Rect), NumPut(MouseY, Rect, 4)
   NumPut(A_ScreenWidth, Rect, 8), NumPut(MouseY, Rect, 12)
   DllCall("ClipCursor", UInt, &Rect)
   KeyWait, LControl
   Return

~LShift Up::
~LControl Up:: DllCall("ClipCursor", UInt, 0)

x := 500, y := 300

CoordMode, Mouse
MouseMove, x, y

x := 500, y := 300

MOUSEEVENTF_ABSOLUTE := 0x8000, MOUSEEVENTF_MOVE := 0x1
DllCall("mouse_event"
    , UInt, MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_MOVE
    , Int, Round(x*0xFFFF/A_ScreenWidth)
    , Int, Round(y*0xFFFF/A_ScreenHeight)
    , UInt, 0)

   SetBatchLines, -1
   SetMouseDelay, -1
   CoordMode, Mouse
   OnExit, Exit

   hHook := DllCall("SetWindowsHookEx"
      , Int, WH_MOUSE_LL := 14
      , Int, RegisterCallback("LowLevelMouseProc", "Fast")
      , UInt, DllCall("GetModuleHandle", UInt, 0)
      , UInt, 0)
   Return

Exit:
   DllCall("UnhookWindowsHookEx", UInt, hHook)
   ExitApp

~LCtrl::
   MouseGetPos,, y_prev
   Direction = horizontal
   KeyWait, LCtrl
   Return

~LShift::
   MouseGetPos, x_prev
   Direction = vertical
   KeyWait, LShift
   Return

~LCtrl Up::   Direction =
~LShift Up:: Direction =

LowLevelMouseProc(nCode, wParam, lParam)
{
   global Direction, x_prev, y_prev
   static MOUSEEVENTF_ABSOLUTE = 0x8000, MOUSEEVENTF_MOVE = 0x1

   if (nCode < 0 || !Direction || wParam != 0x200)   ; WM_MOUSEMOVE = 0x200
      Return DllCall("CallNextHookEx", UInt, 0, Int, nCode, UInt, wParam, UInt, lParam)

   if Direction = horizontal
      x := NumGet(lParam+0), y := y_prev

   if Direction = vertical
      y := NumGet(lParam+0, 4), x := x_prev

   DllCall("mouse_event"
       , UInt, MOUSEEVENTF_ABSOLUTE|MOUSEEVENTF_MOVE
       , Int, Ceil(x*0xFFFF/A_ScreenWidth)
       , Int, Ceil(y*0xFFFF/A_ScreenHeight)
       , UInt, 0)
   Return 1
}

Gui, -Caption +E0x80000 +AlwaysOnTop +ToolWindow +LastFound
hgui:=WinExist()
DllCall("SetLayeredWindowAttributes","uint",hgui,"uint",0xecebea,"uchar",185,"uint",3)
Gui, Margin, 0,0
Gui, Font, bold s12 cff7f00
tw:=300,th:=50
Gui, Add, Text, w%tw% h%th%
CoordMode, Mouse,Screen
VarSetCapacity(RECT,16,0)

;bgra
bmd= 
( Join 
0000ffff0000ffff0000ffff
0000ffff0000000000000000
0000ffff0000000000000000
)

nSize:=StrLen(bmd)//2 
VarSetCapacity(buf,nSize,0)
Loop % nSize 
NumPut("0x" . SubStr(bmd,2*A_Index-1,2),buf,A_Index-1,"Char")
hbrbm:=DllCall("CreateBitmap","int",3,"int",3,"uint",1,"uint",32,"uint",&buf)
hpatbr:=DllCall("CreatePatternBrush","uint",hbrbm)
DllCall("DeleteObject","uint",hbrbm)

Esc::
DllCall("DeleteObject","uint",hpatbr)
Loop, Parse, rgnlist, |
DllCall("DeleteObject","uint",A_LoopField)
ExitApp

~LButton & WheelUp::
if clip_mode>0
clip_mode:=-1
else clip_mode:=prev_clip_mode-1
~LButton & WheelDown::
clip_mode+=(clip_mode<4)-clip_mode*(clip_mode>3)
MouseGetPos, x,y,hwnd,hctrl,2
if (!hctrl&&clip_mode=3)
Return
if (!hwnd&&clip_mode=4)
Return
tx:=x+25,ty:=y+25
if clip_mode
{
	if clip_mode=1
	{
		DllCall("SetRect","uint",&RECT,"int",0,"int",y,"int",A_ScreenWidth,"int",y+1)
		infotext:="По оси x"
	}
	else if clip_mode=2
	{
		DllCall("SetRect","uint",&RECT,"int",x,"int",0,"int",x+1,"int",A_ScreenHeight)
		infotext:="По оси y"
	}
	else if clip_mode=3
	{
		WinGetPos, wx,wy,ww,wh,ahk_id %hctrl%
		DllCall("SetRect","uint",&RECT,"int",wx,"int",wy,"int",wx+ww,"int",wy+wh)
		infotext:="В пределах дочернего окна-`n контрола под курсором"
		Gosub, showclippedarea
		hctrl=
	}
	else if clip_mode=4
	{
		WinGetPos, wx,wy,ww,wh,ahk_id %hwnd%
		DllCall("SetRect","uint",&RECT,"int",wx,"int",wy,"int",wx+ww,"int",wy+wh)
		infotext:="В пределах окна под курсором"
		Gosub, showclippedarea
		hwnd=
	}
	prev_clip_mode:=clip_mode
	DllCall("ClipCursor","uint",&RECT)
}
else
{
	DllCall("ClipCursor","uint",0)
	infotext:="Ограничение снято"
}
GuiControl,,Static1, % clip_mode . ". " . infotext
; Gui, Show, % "NA x" . tx . " y" . ty . " w" . tw . " h" . th
DllCall("SetWindowPos","uint",hgui,"uint",0,"int",tx,"int",ty,"int",tw,"int",th,"uint",4|16|64)
SetTimer, hidetext, -2000
Return

hidetext:
DllCall("SetWindowPos","uint",hgui,"uint",0,"int",tx,"int",ty,"int",tw,"int",th,"uint",4|16|128)
Return

showclippedarea:
hdcscr:=DllCall("GetDC","uint",0)
DllCall("SetROP2","uint",hdcscr,"int",15)
hrgn:=DllCall("CreateRectRgn","int",wx,"int",wy,"int",wx+ww,"int",wy+wh)
rgnlist .=hrgn . "|"
DllCall("FrameRgn","uint",hdcscr,"uint",hrgn,"uint",hpatbr,"int",7,"int",7)
DllCall("ReleaseDC","uint",0,"uint",hdcscr)
SetTimer, redraweclippedarea, -2500
Return

redraweclippedarea:
Loop, Parse, rgnlist, |
{
	if A_LoopField
	{
		DllCall("RedrawWindow","uint",0,"uint",0,"uint",A_LoopField,"uint",1|2|4|128|256|512|1024)
		DllCall("DeleteObject","uint",A_LoopField)
	}
}
rgnlist=
Return

/*
hdc2:=DllCall("GetWindowDC","uint",hclipped)
DllCall("GetRandomRgn","uint",hdc2,"uint",hrgn,"int",4)
DllCall("ReleaseDC","uint",hclipped,"uint",hdc2)
DllCall("GetWindowRgn","uint",hclipped,"uint",hrgn)
DllCall("FillRgn","uint",hdc,"uint",hrgn_wnd,"uint",hpatbr)

R2_BLACK	1
R2_NOTMERGEPEN	2
R2_MASKNOTPEN	3
R2_NOTCOPYPEN	4
R2_MASKPENNOT	5
R2_NOT	6
R2_XORPEN	7
R2_NOTMASKPEN	8
R2_MASKPEN	9
R2_NOTXORPEN	10
R2_NOP	11
R2_MERGENOTPEN	12
R2_COPYPEN	13
R2_MERGEPENNOT	14
R2_MERGEPEN	15
R2_WHITE	16

RDW_INVALIDATE 1
RDW_INTERNALPAINT 2
RDW_ERASE 4
RDW_VALIDATE 8
RDW_NOINTERNALPAINT 16
RDW_NOERASE 32
RDW_NOCHILDREN 64
RDW_ALLCHILDREN 128
RDW_UPDATENOW 256
RDW_ERASENOW 512
RDW_FRAME 1024
RDW_NOFRAME 2048
*/

~LButton & WheelUp::
if clip_mode>0
clip_mode:=-1
else clip_mode:=prev_clip_mode-1
~LButton & WheelDown::
clip_mode+=(clip_mode<4)-clip_mode*(clip_mode>3)

~z:: ; клавиша z
clip_mode:=!clip_mode ; по горизонтали вкл/выкл