后台程序全局钩子获取鼠标滚轮滚动方向(VB6.0)

最新推荐文章于 2024-06-20 18:24:23 发布

miaozk2006

最新推荐文章于 2024-06-20 18:24:23 发布

阅读量1.3k

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82416327

版权

该博客介绍了如何在VB6.0中设置全局钩子以捕获鼠标滚轮滚动事件，通过解析MSLLHOOKSTRUCT结构体获取滚轮滚动方向，并提供相关VB代码示例。此外，还列举了多个与VB编程相关的文章推荐。

摘要由CSDN通过智能技术生成

全局鼠标键盘HOOK封装: 封装了一个键盘鼠标HOOK类,使用方便(VB6.0)

需要增加的代码:

'复制内容到剪贴板程序代码
Private Type MSLLHOOKSTRUCT     '鼠标HOOK时lParam指针指向的结构
    pt As POINTAPI
    dwMouseData As Long
    dwFlags As Long
    dwTime As Long
    dwExtraInfo As Long
End Type
Private Const WM_MOUSEWHEEL As Long = &H20A

Private Sub objHookLL_MouseHook(ByVal Code As Long, ByVal wParam As Long, ByVal lParam As Long, lRet As Long)
    '鼠标HOOK事件.
    '要吃了当前消息,把lRet = -1即可.
    If Code = HC_ACTION And wParam = WM_MOUSEWHEEL Then
        Dim stMLL As MSLLHOOKSTRUCT

Call CopyMemory(ByVal VarPtr(stMLL), ByVal lParam, Len(stMLL))

        With stMLL
            Debug.Print .dwMouseData / 65536        '输出滚轮状态
            '在这里可以得到鼠标坐标以及其它信息
        End With
    End If
    txtMCode.Text = Code
    txtMwParam.Text = wParam
    txtMlParam.Text = lParam
    Debug.Print "   M = " & Code, wParam, lParam
End Sub