如何在后台桌面向VB6无窗口控件发送鼠标点击？

核心逻辑：绕过系统消息机制，直接触发控件事件 #

VB6的无窗口控件（如Label、Shape等）没有独立的hWnd，Windows的消息队列机制（PostMessage/SendMessage）无法直接触发它们的鼠标事件——这类控件的事件是由VB6运行时自行维护的，不走系统消息通道；而SendInput是模拟全局输入，后台窗体无法获取系统定向的输入信号，因此两种常规方法都失效。

可行的解决方向分为以下几种：

1. VB6端直接暴露事件触发方法 #

如果可以修改VB6窗体代码，最直接的方式是给目标控件编写公开的触发函数，直接调用其事件处理逻辑：

' VB6窗体代码
Public Sub TriggerControlClick(targetCtrl As Control)
    ' 根据控件类型匹配对应的事件处理过程
    If TypeOf targetCtrl Is Label Then
        Call targetCtrl_Click(targetCtrl) ' 替换为你的Label实际Click事件名
    ElseIf TypeOf targetCtrl Is Shape Then
        Call shape_Click(targetCtrl) ' 替换为你的Shape实际Click事件名
    End If
End Sub

' 示例：Label的Click事件
Private Sub Label1_Click()
    ' 原有的事件处理逻辑
    MsgBox "Label1被触发点击"
End Sub

之后在C#互操作DLL中，通过COM调用VB6窗体的TriggerControlClick方法，即可直接触发目标控件的点击逻辑，不受窗体前后台状态影响。

2. C#端通过IDispatch调用控件事件 #

如果无法修改VB6代码，可以借助VB6控件实现的IDispatch接口，直接调用其事件处理方法：

// C#互操作DLL代码
using System;
using System.Runtime.InteropServices;

public class VB6EventTrigger
{
    [ComImport, Guid("00020400-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
    private interface IDispatch
    {
        void GetTypeInfoCount(out uint pctinfo);
        void GetTypeInfo(uint iTInfo, uint lcid, out IntPtr ppTInfo);
        void GetIDsOfNames(ref Guid riid, [MarshalAs(UnmanagedType.LPArray, ArraySubType = UnmanagedType.LPWStr)] string[] rgszNames, uint cNames, uint lcid, [MarshalAs(UnmanagedType.LPArray)] int[] rgDispId);
        void Invoke(int dispIdMember, ref Guid riid, uint lcid, ushort wFlags, ref System.Runtime.InteropServices.ComTypes.DISPPARAMS pDispParams, out object pVarResult, ref System.Runtime.InteropServices.ComTypes.EXCEPINFO pExcepInfo, out uint puArgErr);
    }

    public static void TriggerClick(object vb6Control)
    {
        IDispatch dispatch = (IDispatch)vb6Control;
        Guid emptyGuid = Guid.Empty;
        int[] dispId = new int[1];
        
        // 获取Click事件的DispID
        dispatch.GetIDsOfNames(ref emptyGuid, new string[] { "Click" }, 1, 0, dispId);

        var dispparams = new System.Runtime.InteropServices.ComTypes.DISPPARAMS();
        dispparams.cArgs = 0;
        dispparams.cNamedArgs = 0;

        object result = null;
        var excepInfo = new System.Runtime.InteropServices.ComTypes.EXCEPINFO();
        uint errArg;

        // 调用Click事件
        dispatch.Invoke(dispId[0], ref emptyGuid, 0, 1, ref dispparams, out result, ref excepInfo, out errArg);
    }
}

在VB6中将需要触发的控件实例传递给C#的TriggerClick方法，即可直接触发其点击事件，无需依赖系统消息或窗体前台状态。

3. 替代方案：替换为有窗口控件 #

如果上述方法都无法落地，可以考虑将VB6中的无窗口控件替换为带hWnd的控件（比如用PictureBox替代Label），这类控件可以通过PostMessage发送WM_LBUTTONDOWN和WM_LBUTTONUP消息模拟点击，后台状态下也能生效。

内容的提问来源于stack exchange，提问作者Luca Romagnoli