为WinForms与VB6应用设置相同AUMID实现任务栏分组失败排查

我们的应用基于VB6与.NET混合代码库，因VB6项目接近承载上限，正逐步迁移主应用到WinForms。受限于遗留代码量和资源，无法一次性全量迁移，计划保留VB6进程作为未迁移窗体的入口，通过命名管道实现进程间通信（IPC）。

为了让两个进程的窗体在任务栏合并为单个图标，我们尝试使用Win32 API的SetCurrentProcessExplicitAppUserModelID()为两者设置相同的应用用户模型ID（AUMID），但实际任务栏仍按进程分开显示。

现有代码实现 #

.NET应用设置AUMID的代码 #

[DllImport("shell32.dll", SetLastError = true)]
static extern int SetCurrentProcessExplicitAppUserModelID([MarshalAs(UnmanagedType.LPWStr), In] string AppID);

/// <summary>
/// 应用程序的主入口点。
/// </summary>
[STAThread]
static void Main()
{
    SetCurrentProcessExplicitAppUserModelID("MyCompany.MyApplication");
    // 其他初始化代码
}

VB6应用设置AUMID的代码 #

.NET应用通过Process.Start启动VB6应用，VB6端代码如下：

Private Declare Function SetCurrentProcessExplicitAppUserModelID Lib "shell32.dll" (appID As Long) As Long

Private Sub Main()
  Dim strAUMID As String
  strAUMID = "MyCompany.MyApplication"
  SetCurrentProcessExplicitAppUserModelID StrPtr(strAUMID)
  ' 其他初始化代码
End Sub

诊断结果 #

添加诊断代码后发现：

• .NET端设置和获取AUMID均正常，返回值为0，获取到的AUMID为MyCompany.MyApplication
• VB6端调用GetCurrentProcessExplicitAppUserModelID()后，转换得到的字符串显示为"??"，虽然Set和Get的返回值都是0，但任务栏分组未生效

.NET补充诊断代码 #

[DllImport("shell32.dll", SetLastError = true)]
static extern int SetCurrentProcessExplicitAppUserModelID([MarshalAs(UnmanagedType.LPWStr), In] string AppID);

[DllImport("shell32.dll", SetLastError = true)]
static extern int GetCurrentProcessExplicitAppUserModelID([MarshalAs(UnmanagedType.LPWStr), Out] out string AppID);

[STAThread]
static void Main()
{
    var result = SetCurrentProcessExplicitAppUserModelID("MyCompany.MyApplication");
    MessageBox.Show(result.ToString());
    string appId;
    result = GetCurrentProcessExplicitAppUserModelID(out appId);
    MessageBox.Show($"{result}: {appId}");
    // 其他代码
}

VB6补充诊断代码 #

Private Declare Function SetCurrentProcessExplicitAppUserModelID Lib "shell32.dll" (appID As Long) As Long
Private Declare Function GetCurrentProcessExplicitAppUserModelID Lib "shell32.dll" (ByRef appID As Long) As Long
Private Declare Function SysAllocString Lib "OleAut32" (ByVal strPtr As Long) As String

Private Sub Main()
  Dim ret As Long
  Dim appID As Long
  Dim appString As String
  Dim strAUMID As String
  strAUMID = "MyCompany.MyApplication"
  ret = SetCurrentProcessExplicitAppUserModelID(StrPtr(strAUMID))
  MsgBox CStr(ret)
  ret = GetCurrentProcessExplicitAppUserModelID(appID)
  appString = StrConv(SysAllocString(appID), vbFromUnicode)
  MsgBox CStr(ret) + ": " + appString
  ' 其他代码
End Sub

问题原因与解决方案 #

原因分析 #

VB6端的API声明和字符串处理存在两处关键问题：

1. GetCurrentProcessExplicitAppUserModelID返回的是Shell分配的Unicode字符串指针，但SysAllocString+StrConv(vbFromUnicode)的组合会导致双重编码，生成乱码
2. 未正确释放Shell分配的内存（虽不影响分组，但会造成内存泄漏）
3. 若AUMID设置晚于窗体创建，Shell可能已为窗体分配默认AUMID，导致分组失效

修正后的VB6代码 #

1. 修正AUMID设置与获取逻辑

Private Declare Function SetCurrentProcessExplicitAppUserModelID Lib "shell32.dll" (ByVal appID As Long) As Long
Private Declare Function GetCurrentProcessExplicitAppUserModelID Lib "shell32.dll" (ByRef appID As Long) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)
Private Declare Function lstrlenW Lib "kernel32.dll" (ByVal lpString As Long) As Long
Private Declare Function lstrcpyW Lib "kernel32.dll" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long

Private Sub Main()
  Dim ret As Long
  Dim appIDPtr As Long
  Dim strAUMID As String
  strAUMID = "MyCompany.MyApplication"
  
  ' 必须在创建任何窗体前设置AUMID
  ret = SetCurrentProcessExplicitAppUserModelID(StrPtr(strAUMID))
  MsgBox "Set返回值: " & CStr(ret)
  
  ' 正确获取并转换AUMID
  ret = GetCurrentProcessExplicitAppUserModelID(appIDPtr)
  If ret = 0 And appIDPtr <> 0 Then
    Dim appString As String
    ' 直接从Unicode指针转换为VB6字符串
    appString = String$(lstrlenW(appIDPtr), vbNullChar)
    lstrcpyW StrPtr(appString), appIDPtr
    MsgBox "Get返回值: " & CStr(ret) & ", AUMID: " & appString
    ' 释放Shell分配的内存
    CoTaskMemFree appIDPtr
  End If
  
  ' 后续初始化与窗体创建代码
End Sub

2. 窗体级AUMID兜底设置

若进程级AUMID仍不生效，可为每个VB6窗体显式设置AUMID属性：

Private Const WM_SETTINGCHANGE As Long = &H1A
Private Const HWND_BROADCAST As Long = &HFFFF
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_APPWINDOW As Long = &H40000

Private Declare Function SetWindowLongPtr Lib "user32.dll" Alias "SetWindowLongPtrA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLongPtr Lib "user32.dll" Alias "GetWindowLongPtrA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetProp Lib "user32.dll" Alias "SetPropA" (ByVal hWnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load()
  ' 确保窗体以独立窗口样式显示（避免被归为后台进程）
  SetWindowLongPtr Me.hWnd, GWL_EXSTYLE, GetWindowLongPtr(Me.hWnd, GWL_EXSTYLE) Or WS_EX_APPWINDOW
  ' 为窗体设置AUMID属性
  SetProp Me.hWnd, "AppUserModelID", StrPtr("MyCompany.MyApplication")
  ' 通知Shell更新任务栏分组
  SendMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End Sub

验证步骤 #

1. 运行.NET应用，确认AUMID设置正常
2. 通过.NET应用启动VB6应用，检查VB6端获取的AUMID是否正确显示为MyCompany.MyApplication
3. 打开两个进程中的窗体，查看任务栏是否合并为单个图标

内容的提问来源于stack exchange，提问作者Cameron Armstrong