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

马大哈

<p>&nbsp;&nbsp;&nbsp;&nbsp;全局键盘鼠标HOOK封装类<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;虽然是个简单的封装,但是这样做有益于让工程结构更清晰.<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;使用比较简单:<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;一,以事件方式(WithEvents)声明这个类.<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;二,调用SetKBHook启动键盘HOOK,调用SetMouseHook启动鼠标HOOK.<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;三,在不需要HOOK时,调用UnKBHook停止键盘HOOK,调用UnMouseHook停止鼠标HOOK.<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;四,分别在_KBHook()事件与_MouseHook()事件中处理键盘鼠标HOOK事件.<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;BY 嗷嗷叫的老马<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://www.m5home.com/" target="_blank">http://www.m5home.com/</a><br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;2009-04-30</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp;&nbsp; <a href="http://www.m5home.com/blog/article.asp?id=245">点此下载</a></p>

upring

{:soso_e132:}代码错乱