如何获取VB6应用AfxOleControl42控件中当前显示的托管文档？

核心结论 #

可以获取该OLE控件中显示的文件，但这类控件没有像文本框那样直接的WM_GETTEXT消息可用，必须通过OLE自动化接口结合窗口句柄提取COM对象的方式实现——因为AfxOleControl42本质是承载OLE嵌入对象的容器控件，核心数据都在其内部持有的COM对象中。

关键技术思路 #

• 提取OLE对象：通过Windows API OleGetObjectFromWindow，利用控件的窗口句柄直接获取其内部关联的COM对象。
• 匹配对应接口：根据嵌入文件的类型（如Office文档、PDF等），调用对应的COM接口获取文件路径或内容。比如通用OLE对象可使用IPersistFile接口，Office文档可直接调用其Document对象的属性。
• 兼容性处理：老旧VB6应用多为32位，需将C#程序编译为32位以避免进程位数不匹配问题；同时确保程序有足够权限访问目标窗口。

C#代码实现示例 #

1. 声明必要的API与COM接口 #

using System;
using System.Runtime.InteropServices;

// OLE核心API
[DllImport("ole32.dll")]
private static extern int OleGetObjectFromWindow(IntPtr hwnd, uint dwAspect, ref Guid riid, out object ppvObject);

// IPersistFile接口：用于读取OLE对象的文件信息
[ComImport, Guid("0000010b-0000-0000-C000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IPersistFile
{
    void GetClassID(out Guid pClassID);
    [PreserveSig]
    int IsDirty();
    void Load([MarshalAs(UnmanagedType.LPWStr)] string pszFileName, uint dwMode);
    void Save([MarshalAs(UnmanagedType.LPWStr)] string pszFileName, bool fRemember);
    void SaveCompleted([MarshalAs(UnmanagedType.LPWStr)] string pszFileName);
    void GetCurFile([MarshalAs(UnmanagedType.LPWStr)] out string ppszFileName);
}

2. 核心获取逻辑 #

public static string GetEmbeddedFilePath(IntPtr oleControlHwnd)
{
    // 先尝试通用IPersistFile接口
    Guid iidPersistFile = typeof(IPersistFile).GUID;
    object oleObj = null;
    int hr = OleGetObjectFromWindow(oleControlHwnd, 1, ref iidPersistFile, out oleObj); // dwAspect=1表示获取内容视图

    if (hr == 0 && oleObj != null)
    {
        IPersistFile persistFile = (IPersistFile)oleObj;
        persistFile.GetCurFile(out string filePath);
        Marshal.ReleaseComObject(persistFile);
        return filePath;
    }

    // 如果通用接口失败，尝试针对Office文档的专属接口（以Word为例）
    Guid iidWordDoc = new Guid("0002096B-0000-0000-C000-000000000046");
    hr = OleGetObjectFromWindow(oleControlHwnd, 1, ref iidWordDoc, out oleObj);
    if (hr == 0 && oleObj != null)
    {
        dynamic wordDoc = oleObj;
        string path = wordDoc.FullName;
        Marshal.ReleaseComObject(wordDoc);
        return path;
    }

    return null;
}

3. 调用示例（需先获取控件句柄） #

// 假设已通过FindWindow/FindWindowEx获取到AfxOleControl42的句柄
IntPtr oleHwnd = ...; // 替换为实际控件句柄
string filePath = GetEmbeddedFilePath(oleHwnd);

if (!string.IsNullOrEmpty(filePath))
{
    Console.WriteLine("获取到的文件路径：" + filePath);
    // 后续可根据路径读取文件内容
}

注意事项 #

• 控件句柄定位：需要用Spy++或Winspector确定AfxOleControl42的父窗口层级，再通过FindWindowEx逐步获取准确句柄。
• 接口适配：不同类型的嵌入文件对应不同COM接口，比如Excel文档用GUID 000208D5-0000-0000-C000-000000000046，PDF需对应阅读器的COM接口，需根据实际场景调整。
• 错误处理：OleGetObjectFromWindow返回的HRESULT需校验，S_OK为0；可尝试不同的dwAspect参数（0=内容、1=缩略图等）。
• 内存管理：使用完COM对象后必须调用Marshal.ReleaseComObject，避免内存泄漏。

内容的提问来源于stack exchange，提问作者Felix Almesberger