vb点虐 HOOK实例

这是微软MSDN官方文档，里面详细介绍了Hook机制，别告诉我你看不懂英文哦

成都创新互联服务项目包括庐江网站建设、庐江网站制作、庐江网页制作以及庐江网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，庐江网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到庐江省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

(VS.85).aspx

我当初自己研究Hook技术时就是看的这个

几个重要的函数：

// 安装钩子

HHOOK SetWindowsHookEx(int idHook, // 钩子类型

HOOKPROC lpfn, // 回调函数

HINSTANCE hMod, // 实例句柄

DWORD dwThreadId // 线程ID

); // 返回值：钩子句柄

// 将消息传递给下一个钩子

LRESULT CallNextHookEx(HHOOK hhk, int nCode, WPARAM wParam, LPARAM lParam); // 太累了不想翻译了

// 卸载钩子

BOOL UnhookWindowsHookEx(HHOOK hhk);

// 鉴于你给的悬赏分太低，我就不多写了，自己研究MSDN文档吧，祝你好运

// 顺便再说一句，全局钩子要在DLL中实现

/* 刚才看了你的资料，觉得你这人挺有意思，貌似VB.NET玩得不错，哈哈 */

VB.NET键盘Hook成功后拦截不了组合键

最简单的就是把属性改一下,效果跟无框的差不多。

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle

Me.ControlBox = False

Me.MaximizeBox = False

Me.Text = ""

至于hook的问题,它确实是比系统慢了一步得到消息,当前线程或全局的都一样,不过你可以先拦截Windows键或者Up键其中一键来阻拦组合键。

VB.NET 使用鼠标HOOK判断是否按下鼠标左键 说明： 如图所示 我可怜的全部分数都给出来了，哪位大侠帮帮忙

在MouseDown或MouseUp事件中

Select Case e.Button

Case MouseButtons.Left

MsgBox("")

Case MouseButtons.Middle

MsgBox("'")

Case MouseButtons.Right

MsgBox("""")

End Select

即可知道是左键还是右键