如何添加菜单并响应事件

[nansa2000]

在vb中如何给一个外部程序添加一个自己的菜单并响应事件？

例如：vb程序中调用了记事本，在记事本的菜单栏中添加一个一级菜单，例如“我的菜单”，点击后也能响应当前vb中程序定义的一个事件。

[c_cyd2008]

对于标准的windows菜单，可以

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Const MF_STRING = &H0&

Private Sub Command1_Click()
Dim hM As Long
hM = GetMenu(记事本的窗口句柄)

AppendMenu hM, MF_STRING, 123, "我的菜单"
End Sub

添加一个菜单项目，响应菜单命令可拦截WM_COMMAND消息进行处理;

但用VB响应外部菜单命令却会有一个几乎不能实现的障碍：windows不允许跨进程子类化窗口，因此也就无法直接拦截WM_COMMAND消息；其它语言，如C，可通过DLL注入实现子类化，遗憾的是VB的DLL不支持这样做!
只能望洋兴叹!

[嗷嗷叫的老马]

跨进程子类化,这个课题老外研究得比咱们早多了,而且已经都是不玩的了.....

看看这个:



http://allapi.mentalis.org/vbexamples/vbexample.php?vbexample=ADDMENU&category=MISC

这个就是与楼主的需求一模一样,添加菜单到其它进程,然后可以响应菜单事件,当时的一些流氓软件就是这样干的,中招后记事本啊资源管理器啊,都有一个新添加的菜单...

我04还是05年也有类似的需求,一番搜索才得出的.

记得这套DLL是那老外01年还是02年就已经完成的,咱们国内在这些方面确实还差一些,比不过啊.....