VB.NET使用MSAL结合Windows身份验证代理实现用户登录时，获取控制台窗口出现错误

看起来你遇到的问题核心是获取控制台窗口句柄失败，导致MSAL和Windows身份验证代理（Broker）无法正确关联父窗口，进而引发认证流程出错。下面我帮你梳理问题原因和具体解决办法：

问题根源 #

Windows身份验证代理需要明确知道父应用的窗口句柄，才能让认证弹窗正确附着在你的控制台程序上，避免出现窗口丢失、权限异常或直接报错。你代码中调用的GetConsoleOrTerminalWindow如果没有正确实现（比如未调用Windows API获取有效句柄），就会导致这个问题。

解决步骤 #

1. 正确实现控制台窗口句柄获取方法
   VB.NET没有内置获取控制台窗口句柄的方法，需要调用Windows API的GetConsoleWindow函数来实现。你需要先在代码中声明这个API：

Imports System.Runtime.InteropServices

Public Class YourAuthClass
    ' 声明Windows API函数获取控制台窗口句柄
    <DllImport("kernel32.dll", SetLastError:=True)>
    Private Shared Function GetConsoleWindow() As IntPtr
    End Function

    ' 替换原有的GetConsoleOrTerminalWindow方法
    Private Function GetConsoleWindowHandle() As IntPtr
        Return GetConsoleWindow()
    End Function

2. 修正MSAL应用初始化代码
   将原代码中的WithParentActivityOrWindow(GetConsoleOrTerminalWindow)替换为我们刚实现的GetConsoleWindowHandle方法，确保传入有效的窗口句柄：

Private Async Sub Auth()
     Dim scopes As String() = {"User.Read"}
     Dim options As New BrokerOptions(BrokerOptions.OperatingSystems.Windows)
     Dim storageProperties As StorageCreationProperties = New StorageCreationPropertiesBuilder("cache.bin", AppDomain.CurrentDomain.BaseDirectory).Build()

     Dim app As IPublicClientApplication = PublicClientApplicationBuilder _
     .Create("你的ClientID") ' 替换为实际的应用注册ClientID
     .WithBroker(options) _
     .WithParentActivityOrWindow(GetConsoleWindowHandle()) ' 这里替换为正确的句柄获取方法
     .WithAuthority("https://login.microsoftonline.com/common") _
     .WithDefaultRedirectUri() _
     .Build()

     Dim cacheHelper As MsalCacheHelper = Await MsalCacheHelper.CreateAsync(storageProperties)
     cacheHelper.RegisterCache(app.UserTokenCache)

     ' 继续完成账号获取和认证流程
     Dim accounts As IReadOnlyList(Of IAccount) = Await app.GetAccountsAsync()
     Dim result As AuthenticationResult = Nothing

     Try
         ' 尝试静默认证
         result = Await app.AcquireTokenSilent(scopes, accounts.FirstOrDefault()).ExecuteAsync()
     Catch ex As MsalUiRequiredException
         ' 需要弹出认证窗口，这里会使用Windows Broker
         result = Await app.AcquireTokenInteractive(scopes).ExecuteAsync()
     End Try

     ' 认证成功后的逻辑
     If result IsNot Nothing Then
         Console.WriteLine($"登录成功！用户名：{result.Account.Username}")
     End If
End Sub

3. 额外注意事项

• 确保你的Windows系统版本是Windows 10 1607（周年更新）或更高，Windows身份验证代理从这个版本开始支持控制台应用。
• 应用注册时，确保在Azure AD中正确配置了公共客户端应用的权限（比如User.Read权限已授予）。
• 控制台应用的异步处理：如果你的程序是控制台入口，建议将Auth改为Async Function并在Main方法中等待完成，避免程序提前退出导致认证流程中断，示例如下：

Shared Async Function Main(args As String()) As Task
    Dim authInstance As New YourAuthClass()
    Await authInstance.Auth()
    Console.ReadLine() ' 防止程序直接退出
End Function

备注：内容来源于stack exchange，提问作者user1854914