锁定鼠标，如何锁定鼠标？

[law1980547304]

网上流传的这个，只要鼠标左键单机一下就破解了
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Sub Command1_Click() '锁定鼠标
Dim r As RECT
r.Left = 100
r.Top = 100
r.Right = 100
r.Bottom = 100
ClipCursor r
End Sub
Private Sub Command2_Click()
ClipCursor ByVal 0&
End Sub
还有没有别的
2问题，可不可以达到锁定键盘的时候，让软件的输入依然正常
例如，锁定键盘后，软件的程序是输入A ，用户的输入无效，但是软件依然在输入A

[贝隆]

怎样限制鼠标移动

本文介绍如何限制鼠标在窗口的指定范围内移动。这个技术在需要防止用户鼠标在指定区域内活动时非常
有用。例如在一个射击游戏中，需要限制鼠标在射击区内移动。
操作步骤
1、建立一个新工程项目，缺省建立窗体FORM1
2、添加一个新模体
3、粘贴下面代码到新模体

Option ExplicitDeclare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Declare Function ClipCursorClear Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long) As Long
Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Type POINTAPI
X As Long
Y As Long
End Type
Public RetValue As Long
Public ClipMode As Boolean


Public Sub SetCursor(ClipObject As Object, Setting As Boolean)
' used to clip the cursor into the viewport and
' turn off the default windows cursor


Dim CurrentPoint As POINTAPI
Dim ClipRect As RECT


If Setting = False Then
' set clip state back to normal
RetValue = ClipCursorClear(0)
Exit Sub
End If


' set current position
With CurrentPoint
.X = 0
.Y = 0
End With
' find position on the screen (not the window)
RetValue = ClientToScreen(ClipObject.hwnd, CurrentPoint)
' designate clip area
With ClipRect
.Top = CurrentPoint.Y
.Left = CurrentPoint.X
.Right = .Left + ClipObject.ScaleWidth
.Bottom = .Top + ClipObject.ScaleHeight
End With ' clip it
RetValue = ClipCursor(ClipRect)


End Sub


4、添加一个图片框控件（PICTURE1）到窗体（FORM1）
5、设置PICTURE1的尺寸和FORM1的一样大
6、在PICTURE1的CLICK事件中添加以下代码：


Private Sub Picture1_Click()
ClipMode = Not ClipMode
SetCursor Picture1, ClipMode
End Sub


7、保存工程项目
8、运行程序。在图片框单击鼠标，鼠标将被包含在图片框控件的区域内。要释放限制状态只需再次单击鼠标。
注意：如果释放限制状态失败，鼠标将被永久限制，只能用重新启动机器来解决。

[law1980547304]

等待高手

[咸清]

锁定键盘后，软件的程序是输入A ，用户的输入无效，但是软件依然在输入A
⋯⋯⋯⋯⋯⋯
什么意思？

锁定鼠标确实要用ClipCursor 这个API⋯⋯

[嗷嗷叫的老马]

'添加个按钮,再添加一个定时器,时间设置为100就行了.API自己声明.
dim bLock as boolean

private sub command1_cick()    '按空格停止,因为鼠标移不动啦,哈哈.
   block=not block
   timer1.enabled=true
end sub

private sub timer1_timer()
    timer1.enabled=false
   do while block=false
        setcursorpos 100,100
        doevents
   loop
end sub

[嗷嗷叫的老马]

do while block=false
应该改为:
do while block=true

这样逻辑才正确.......头昏了....

[熊孩子开学喽]

[Quote=引用 5 楼 myjian 的回复:]

do while block=false
应该改为:
do while block=true

这样逻辑才正确.......头昏了....
[/Quote]


哈`哈`哈`,`老`马`, do while block=true 这`种`凶`残`的`语`句`你`也`写`得`出`来`啊

[q260401998]

[Quote=引用 6 楼 wallescai 的回复:]
引用 5 楼 myjian 的回复:

do while block=false
应该改为:
do while block=true

这样逻辑才正确.......头昏了....



哈`哈`哈`,`老`马`, do while block=true 这`种`凶`残`的`语`句`你`也`写`得`出`来`啊
[/Quote]
不如直接写
while block

这样就可以了啊

[Gordon_Freeman]

要是我的话就用VC写个钩子，然后导出一个函数给VB用，用钩子用户输入最管用

[Gordon_Freeman]

[Quote=引用 4 楼 myjian 的回复:]

VB code
'添加个按钮,再添加一个定时器,时间设置为100就行了.API自己声明.
dim bLock as boolean

private sub command1_cick() '按空格停止,因为鼠标移不动啦,哈哈.
block=not block
timer1.enabled=true
end sub

private sub timer1_timer()
……
[/Quote]

这也挺好的，原理是定时把鼠标移动到指定的位置，这样也差不多可以屏蔽鼠标移动了

[嗷嗷叫的老马]

[Quote=引用 6 楼 wallescai 的回复:]
哈`哈`哈`,`老`马`, do while block=true 这`种`凶`残`的`语`句`你`也`写`得`出`来`啊
[/Quote]老蔡,被你的这些点弄得头晕眼花了........

[嗷嗷叫的老马]

[Quote=引用 7 楼 q260401998 的回复:]
不如直接写
while block

这样就可以了啊[/Quote]
可读性还是显式表达好.

[duaozhuan0]

锁在一个form框内

[底层Diaos元宇宙web3.0程序猿]

这种根本不能锁住鼠标，你只要单击一下就能移出，不信你试试