试图在 VB.NET DLL 中捕获窗口消息

Question

我正在尝试拦截使用 WINAPI 函数“BroadcastSystemMessage”发送的 Windows 消息（来自创建新工作簿时发送此消息的 XLL）。

我尝试使用两种方法来做到这一点，但每种方法都有其缺点：

1) 使用托管监听窗口：

但是，我不想冒用户关闭此侦听窗口的风险，并且，

listenForm.Show()
listenForm.visible = false

看起来很草率。

2) 使用钩子：

但是，“SetWindowsHookEx”的回调只有几个参数：

Protected Function HookCallBack(code As Integer, wParam As IntPtr, lParam As IntPtr) As Integer

我正在寻找一种访问“msg”结构的方法，该结构包含我在“RegisterWindowMessage”中注册的信息。

这里，“lParam”指向这个结构，我可以使用：

Dim output(100) As Byte
Marshal.Copy(e.lParam, output, 0, 100)

取消引用这个指针。我不知道如何解析结果，而且我在离托管宇宙这么远的地方徘徊也让我很困扰。

我的问题：每种方式的缺点都可以解决吗？拦截消息或做类似事情的标准方法是什么？

Answer 1

Show() 方法调用只是创建本地窗口的方法之一。你也可以在构造函数中自己简单地创建：

Public Sub new
    InitializeComponent()
    Me.CreateHandle()
End Sub

或者如果你不能避免 Show() 调用，因为它是你的应用程序的启动形式，那么这样做：

Protected Overrides Sub SetVisibleCore(value As Boolean)
    If Not Me.IsHandleCreated then
        value = False
        Me.CreateHandle()
    End If
    MyBase.SetVisibleCore(value)
End Sub

请注意，在这两种情况下都不会触发 Load 事件，因此请将其中的任何代码移至表单类的构造函数中。

---

不要使用窗口挂钩，您只需覆盖 WndProc() 子例程即可查看广播消息：

Protected Overrides Sub WndProc(ByRef m As Message)
    If m.Msg = theRegisteredMessage Then
        '' etc...
    End If
    MyBase.WndProc(m)
End Sub

使用 HWND_BROADCAST 的普通 SendMessage() 优于 BroadcastSystemMessage()。或者更好的是，一个 Socket，这样你就不必大声喊叫了。