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

全局键盘鼠标HOOK封装类

虽然是个简单的封装,但是这样做有益于让工程结构更清晰.

使用比较简单:

一,以事件方式(WithEvents)声明这个类.

二,调用SetKBHook启动键盘HOOK,调用SetMouseHook启动鼠标HOOK.

三,在不需要HOOK时,调用UnKBHook停止键盘HOOK,调用UnMouseHook停止鼠标HOOK.

四,分别在_KBHook()事件与_MouseHook()事件中处理键盘鼠标HOOK事件.

BY 嗷嗷叫的老马

http://www.m5home.com/

2009-04-30

点击下载此文件

*************** 2010-08-20更新 *****************

之前的代码忘了在两个HOOK回调里处理吃掉的消息....汗一个

**********************************************

上一篇: 梦见参军,然后老兵欺负新兵,于是狠狠PK一顿!
下一篇: 记录一下:取网页验证码方案之一(VB6.0)
文章来自: 本站原创