锁住鼠标的的api有吗？

[路小雨]

如何在vb里实现像按键精灵“LockMous”这样的命令

按键精灵“LockMous”这样的命令就是让物理鼠标没反应，但用api 例如 SetCursorPos这个api还是可以自由操作鼠标


需要什么api

喜欢vb的进来分享一下经验

[帝企鹅已被占用]

api不知道，把鼠标扔了不就行了？

[贝隆]

可以限制鼠标在一定范围内移动

'标准模块
Option Explicit
Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Public 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
'窗体代码
Option Explicit

Private Sub Form_Load()
    Picture1.ScaleMode = 3
End Sub

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

[路小雨]

[Quote=引用 1 楼 patrickkong 的回复:]

api不知道，把鼠标扔了不就行了？
[/Quote]不行呀，我要实现一个功能一定暂时让物理鼠标没反应，然后用一系列的api模拟键盘动作，完成后再把物理鼠标控制权交给用户

[路小雨]

[Quote=引用 2 楼 veron_04 的回复:]

可以限制鼠标在一定范围内移动
VB code

'标准模块
Option Explicit
Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Public Declare Function ClipCursorClear Lib "user32" Alias "ClipCursor" (ByVal ……
[/Quote]你这个代码应该是锁死了鼠标，我需要的是用api 例如 SetCursorPos这个api还是可以自由操作鼠标
可以吗各位大大

[贝隆]

你的意思是把光标固定在某一控件上，不然它移动到其他地方？

[路小雨]

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

你的意思是把光标固定在某一控件上，不然它移动到其他地方？
[/Quote] 我的目的就是让 完成了一系列的api模拟键盘动作的过程中，不受物理硬件的鼠标的操作所影响，而导致影响程序

[路小雨]

拜托大家啦~~~~~~~

[贝隆]

在这期间禁用鼠标吧。等需要启用时再启用

[COSByVal]

学习一下。。。。。。。。。

[路小雨]

[Quote=引用 8 楼 veron_04 的回复:]

在这期间禁用鼠标吧。等需要启用时再启用
[/Quote] 嗯 这就是我的疑问点所在 ps:请问有哪个命令或者 api 可以暂时禁用鼠标一下?

[路小雨]

终于找到 解决办法，还是不能逃避麻烦的hook ps:本人菜鸟
以下是网站 http://www.vbgood.com/thread-73578-1-1.html
希望可以帮助大家

[贝隆]

其实就是Hook掉鼠标消息。

[碧海情天-赵亮]

以其人之道还施其身啊，用SetCursorPos破解的，还用SetCursorPos设置上去，用时钟控件，每0.1秒就SetCursorPos设置鼠标在固定的位置就可以了。

[myjisgreat]

用钩子呀

[robote2]

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT '用户自定义类型
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Dim mouse As RECT
Private Sub Command1_Click() '显示鼠标
mouse.Left = Me.Left / Screen.TwipsPerPixelX
mouse.Top = Me.Top / Screen.TwipsPerPixelY
mouse.Right = (Me.Left + Me.Width) / Screen.TwipsPerPixelX
mouse.Bottom = (Me.Top + Me.Height) / Screen.TwipsPerPixelY
ClipCursor mouse
End Sub
Private Sub Command2_Click() '解除锁定
mouse.Left = 0
mouse.Top = 0
mouse.Right = (Screen.Width) / Screen.TwipsPerPixelX
mouse.Bottom = (Screen.Height) / Screen.TwipsPerPixelY
ClipCursor mouse
End Sub
=========================
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function GetDoubleClickTime Lib "user32" () As Long
Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Any) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GCL_HCURSOR = -12
Dim curcursor As Long
Private Sub Command1_Click() '隐藏鼠标
lReturned = ShowCursor(0)
Command2.SetFocus
End Sub
Private Sub Command2_Click() '显示鼠标。
lReturned = ShowCursor(1)
End Sub
Private Sub Command3_Click() '设置双击间隔时间
wCount = Text1.Textw 'Count 为千分之一秒的时间间隔数
SetDoubleClickTime (wCount)
End Sub
Private Sub Command4_Click()
bSwsp = True 'bSwsp 值为 True,左手习惯。
SwapMouseButton (bSwsp)
End Sub
Private Sub Command5_Click()
bSwsp = False 'bSwsp 值为 True,右手习惯。
SwapMouseButton (bSwsp)
End Sub
Private Sub Form_Load() '取得双击间隔时间，返回千分之一秒的时间间隔数。
Text1.Text = GetDoubleClickTime
End Sub