全局鼠标键盘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
原帖: /u/0825/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获取网络信息(下）
更多精彩>>>
