问Azure Active Directory B2C - AADB2C - AADB2C90079:客户端在替换机密授权时必须发送client_secret

EN

AADB2C90079: Clients must send a client_secret when redeeming a confidential grant.

Public Async Function SignIn() As Task(Of Boolean)

    Dim authResult As AuthenticationResult = Nothing
    Dim accounts As IEnumerable(Of IAccount) = Await PublicClientApp.GetAccountsAsync()

    Try
        authResult = Await PublicClientApp.AcquireTokenAsync(ApiScopes, GetUserByPolicy(accounts, PolicySignUpSignIn), UIBehavior.SelectAccount, String.Empty, Nothing, Authority)
        userProf = Await GetUserInformation()
        SignInState = SignInStateEnum.SignedIn
        Return True
    Catch ex As MsalServiceException

        Try
            If ex.Message.Contains("AADB2C90118") Then
                authResult = PublicClientApp.AcquireTokenAsync(ApiScopes, GetUserByPolicy(accounts, PolicySignUpSignIn), UIBehavior.SelectAccount, String.Empty, Nothing, AuthorityResetPassword).Result
                userProf = GetUserInformation().Result
                SignInState = SignInStateEnum.SignedIn
                Return True
            Else
                logger.Error($"Error Acquiring Token:{Environment.NewLine}{ex}")
                logger.Error("Exception Raised", ex)
                userProf = Nothing
                SignInState = SignInStateEnum.SignedOut
                Return False
            End If
        Catch __unusedException1__ As Exception
            logger.Error("Exception Raised", __unusedException1__)
            userProf = Nothing
            SignInState = SignInStateEnum.SignedOut
            Return False
        End Try

    Catch ex As Exception
        logger.Error($"Users:{String.Join(",", accounts.[Select](Function(u) u.Username))}{Environment.NewLine}Error Acquiring Token:{Environment.NewLine}{ex}")
        logger.Error("Exception Raised", ex)
        userProf = Nothing
        SignInState = SignInStateEnum.SignedOut
        Return False
    End Try

End Function