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

全局鼠标键盘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

原帖:      http://topic.csdn.net/u/20090825/11/d33dfa0a-2c8f-41f3-b78e-c70d352c887c.html

---

VB部分相关文章推荐

※VB快速读取 TextBox 第 N 行的资料

※VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、ocx打包进exe文件

※VB利用资源文件进行工作

※[转]vb高效编程（优化）

※VB阳历转阴历

※纯VB代码取得硬盘的物理序列号

※VB获得磁盘的文件系统

※做VB的，经常注册和反注册OCX控件和DLL链

※VB从程序中生成Exe文件

※VB6监视/操作剪贴板示例(VB6.0代码)

※VB6里自动提交/自动填表的一种相对通用的方案

※VB移动没有标题的窗体

※VB随机字母的函数

※VB删除带子文件夹和文件的文件夹

※VB怎样屏蔽 Alt+F4键

※VB 隐藏进程

※vb屏蔽文本框点右键时的弹出菜单

※VB手控Combobox的打开或收起

※在VB中INI文件的读写、删除（对中文支持很好）

※vb全局热键的写法（占很少的资源）

※vb取消文本框的粘贴功能

※VB常用文件操作类

※VB获取特殊文件夹

※VB获取windows各常用目录的函数（模块）

※VB生成太极图

※VB:常用内部函数大全,你会了几个呢?

※vb中SendMessage函数

※精简VB程序的代码

※VB:将数字转换为大写中文

※VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

※VB:读取及设定NumLock/CapsLock/ScrollLock的值

※VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

※VB后台获得按键,并执行自己的函数(非钩子及热键)

※VB:将短文件名格式转成长文件名

※在vb中使用Iphlpapi.dll获取网络信息(上）

※在vb中使用Iphlpapi.dll获取网络信息(下）

---

更多精彩>>>