如何获取COM组件特定实例？VB.NET多实例交互疑难

问题描述 #

我使用VB.NET代码通过COM接口与某应用交互，单实例运行时一切正常，但当应用启动两个实例后，使用Interaction.GetObject(, "XXX.application")初始化连接无法指定要连接的实例。

我研究过Component Object Model (COM)相关内容，但信息繁杂，不确定这个问题是可解决的，还是Windows的固有限制？

通过查阅文档，我了解到运行中的COM对象存储在Running Object Table (ROT)中，于是改写了查询ROT的代码（如下）。代码返回的COM引用数量与应用实例数一致，但所有引用都指向同一个应用实例，发送命令时仅对该实例生效。请问我哪里遗漏了？

Imports System.Runtime.InteropServices
Imports System.Runtime.InteropServices.ComTypes

Public Class RunningObjectTableInterface

    'Returns a pointer to an implementation of IBindCtx (a bind context object). This object stores information about a particular moniker-binding operation.
    Private Declare Function CreateBindCtx Lib "ole32.dll" (ByVal reserved As UInteger, <Out> ByRef ppbc As IBindCtx) As Integer
    
    'Returns a pointer To the IRunningObjectTable Interface On the local running Object table (ROT).
    Private Declare Sub GetRunningObjectTable Lib "ole32.dll" (ByVal reserved As Integer, <Out> ByRef prot As IRunningObjectTable)
    
    Public Const S_OK As Integer = 0
    
    Public Shared Sub TestROT()
        Dim progIds As String() = {"XXX.Application"}
        Dim retInstances As List(Of Object) = GetRunningInstances(progIds)
    
        For Each comInstance As Object In retInstances
            'Interact with each of the returned COM Objects here
        Next
    End Sub
    
    'Get all running instance of the input progIds by querying ROT
    Public Shared Function GetRunningInstances(ByVal progIds As String()) As List(Of Object)
        Dim clsIds As List(Of String) = New List(Of String)
    
        'Get the clsIds for each of the programIds that were passed in
        For Each progId As String In progIds
            Dim type As Type = Type.GetTypeFromProgID(progId)
            If type IsNot Nothing Then
                clsIds.Add(type.GUID.ToString().ToUpper())
            End If
        Next
    
        'Get Running Object Table ...
        Dim ROT As IRunningObjectTable = Nothing
        Call GetRunningObjectTable(0, ROT)
    
        If ROT Is Nothing Then 'Error handle GetRunningObjectTable for nothing returned
            Throw New Exception("GetRunningObjectTable did not return a value.")
            Return Nothing
        End If
    
        'Get enumerator for all entries in ROT
        Dim monikerEnumerator As IEnumMoniker = Nothing
        ROT.EnumRunning(monikerEnumerator)
    
        If monikerEnumerator Is Nothing Then 'Error handle EnumRunning for nothing returned
            Throw New Exception("EnumRunning on the ROT did not return values.")
            Return Nothing
        End If
    
    
        'Create a list of items to return
        Dim retInstances As List(Of Object) = New List(Of Object)()
    
    
        Dim monikers As IMoniker() = New IMoniker(0) {} 'Create an object to hold the item returned from the monikerEnumerator
        monikerEnumerator.Reset() 'Reset the enumeration sequence to the beginning.
    
        'Loop through each moniker and see if it is the requested type
        While monikerEnumerator.Next(1, monikers, Nothing) = S_OK
    
            'Create a IBindCtx object to use in GetDisplayName
            Dim bindCtx As IBindCtx = Nothing
            CreateBindCtx(0, bindCtx)
    
            If bindCtx Is Nothing Then 'Error handle CreateBindCtx for nothing returned
                Continue While
            End If
    
            'Get the display name of this moniker
            Dim displayName As String = ""
            monikers(0).GetDisplayName(bindCtx, Nothing, displayName)
    
            'Loop through each clsId to see if the display name of the current moniker is equal
            For Each clsId As String In clsIds
                If displayName.ToUpper().Contains(clsId) Then 'The display name is equal to one of the clsIds
    
                    'Get the object associated with this moniker
                    Dim ComObject As Object = Nothing
                    ROT.GetObject(monikers(0), ComObject)
    
                    If ComObject IsNot Nothing Then 'Error handle GetObject for nothing returned
                        retInstances.Add(ComObject) 'Add COMObject to the return list
                        Exit For 'Exit loop and check the next moniker
                    End If
                End If
            Next
        End While
    
        Return retInstances
    End Function

End Class

问题分析与解决方案 #

核心原因 #

你的问题根源在两个方面：

1. 目标应用的COM服务器实现：很多应用的COM服务器默认是单实例模式，即便程序本身允许多实例运行，新启动的实例不会在ROT中注册独立的COM对象条目，而是复用已有的引用。这种情况下，ROT里的多个条目实际指向同一个COM实例。
2. ROT条目识别逻辑粗糙：仅通过CLSID匹配displayName的方式无法区分实例——多个实例的ROT条目可能共享同一个CLSID，导致你误将所有条目识别为同一个实例的引用。

解决步骤 #

1. 确认应用是否支持多实例COM连接

首先要核实目标应用的COM服务器是否支持为每个实例注册独立的COM对象：

• 查看应用官方文档或COM接口说明，确认是否存在多实例COM支持的相关配置或接口。
• 如果应用本身不支持，这属于设计限制，无法通过ROT查询区分实例，只能通过其他方式（比如窗口句柄、进程ID）结合应用特定接口实现。

2. 优化ROT条目识别逻辑

如果应用支持多实例COM注册，需要更精准的方式区分ROT条目：

• 解析moniker的额外属性：比如使用IMoniker的其他方法（如GetClassID、IsEqual），或查询moniker的内部数据，提取实例的唯一标识（如进程ID、窗口句柄、实例名称）。
• 细化displayName匹配：有些应用的ROT条目displayName会包含实例的唯一标识（如XXX.Application:1234中的进程ID），可以拆分displayName提取这些信息来区分实例。

3. 修复现有代码的资源泄漏问题

你的代码中未释放IBindCtx、IRunningObjectTable等COM接口资源，长期运行会导致内存泄漏，建议添加释放逻辑：

' 在使用完bindCtx后添加
Marshal.ReleaseComObject(bindCtx)
' 在函数末尾添加
Marshal.ReleaseComObject(monikerEnumerator)
Marshal.ReleaseComObject(ROT)

示例优化识别逻辑 #

修改displayName处理部分，提取实例唯一标识：

' 替换原有的CLSID匹配逻辑
For Each progId As String In progIds
    If displayName.Contains(progId) Then
        ' 假设displayName格式为 "XXX.Application;PID=1234"
        Dim pidMatch As Match = Regex.Match(displayName, "PID=(\d+)")
        If pidMatch.Success Then
            Dim instancePid As Integer = Integer.Parse(pidMatch.Groups(1).Value)
            ' 可以通过PID关联到对应的应用进程
        End If
        ' 获取COM对象并添加到列表
        Dim ComObject As Object = Nothing
        ROT.GetObject(monikers(0), ComObject)
        If ComObject IsNot Nothing Then
            retInstances.Add(ComObject)
            Exit For
        End If
    End If
Next

总结 #

这个问题并非Windows的固有限制，能否解决完全取决于目标应用的COM服务器是否支持多实例注册。若支持，通过优化ROT识别逻辑即可区分实例；若不支持，需通过进程/窗口枚举结合应用特定接口实现实例定位。

内容的提问来源于stack exchange，提问作者Will Eagan