限制鼠标范围代码(按键精灵)

Declare Function ClipCursor Lib "user32" (lpRect As RECT)//限制鼠标活动范围，定义为矩形

Declare Function ClipCursorA Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long)//解除定义为整数型在解除的时候传入“0”即可。

Declare Function SetRec Lib "user32" Alias "SetRect"(ByVal 矩形 As Any,ByVal 左边 As Long,ByVal 顶边 As Long,ByVal 右边 As Long,ByVal 底边 As Long) As Long

Declare Function LocalAlloc Lib "kernel32" Alias "LocalAlloc" (ByVal wOemChar As Long,ByVal wOmChar As Long) As Long

Declare Function LocalFree Lib "kernel32" Alias "LocalAlloc" (ByVal hMem As Long) As Long

Sub 限制鼠标范围(左边, 上边, 右边, 下边)

矩形结构 = LocalAlloc(0, 16)
SetRec 矩形结构, 左边, 上边, 右边, 下边

ClipCursor 矩形结构
LocalFree 矩形结构

End Sub

限制鼠标范围 0, 0, 500, 600

Delay 5000//线程结束，会自行取消限制。如果没有延时，就看不到效果