VB关于全局键盘鼠标HOOK封装类代码.rar

关于Hook的源码,之前发表了不少,今天又发现一个,貌似每个作者都有自己的封装方法,虽然只是个简单的封装,但是这样做有益于让工程结构更清晰。 本Hook使用说明: 1、以事件方式(WithEvents)声明这个类. 2、调用SetKBHook启动键盘HOOK,调用SetMouseHook启动鼠标HOOK. 3、在不需要时,调用UnKBHook停止键盘HOOK,调用UnMouseHook停止鼠标HOOK. 4、分别在_KBHook()事件与_MouseHook()事件中处理键盘鼠标HOOK事件.