Hook技术屏蔽鼠标右键的菜单(如realplayer的)

最新推荐文章于 2021-01-02 12:30:58 发布

abysm

最新推荐文章于 2021-01-02 12:30:58 发布

阅读量1.9k

点赞数

分类专栏： vb.net 文章标签： hook integer function module user object

本文链接：https://blog.csdn.net/abysm/article/details/106041

版权

本文通过实例介绍了如何使用Hook技术来屏蔽Realplayer控件的鼠标右键菜单，通过创建一个模块，设置WH_MOUSE类型的Hook，监听鼠标事件，在右键点击时显示自定义的Context Menu。

摘要由CSDN通过智能技术生成

我们以做一个realplayer控件的播放器为例子

首先在form界面放一个realG2控件。然后设定CtlControls的属性值为imagewindow,all
这样我们就可以在form界面上看到一个realplay的播放器界面了。

然后我们再在form界面上加一个ContextMenu的菜单。自己随便加几个菜单项。

(我这里面的contextMenu的名字为contextMenu2。你们根据自己的情况
可以改变名字。但底下的名字也要相应改变）

现在我们在项目中添加一个模板

在里面加入以下代码：
Module Module1

Public frm1 As New form1()

Declare Function GetCurrentThreadId Lib "kernel32" Alias "GetCurrentThreadId" () As Integer

Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As HOOKPROC, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer

Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer

Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Integer, ByVal ncode As