如何将此 C# 代码转换为 VB，“context.OwinContext.Response.Headers.Add("Access-Control-Allow-Origin", new[] { "*" });" [关闭]

Question

考虑一下这个 C# 代码：

context.OwinContext.Response.Headers.Add("Access-Control-Allow-Origin", new[] { "*" });

当我使用 Telerik 的在线C# to VB converter 翻译以下代码时，我在这一行得到错误：

context.OwinContext.Response.Headers.Add("Access-Control-Allow-Origin", New () {"*"})`

错误是：

无法解析响应

我的输入文件如下所示：

public class SimpleAuthorizationServerProvider : OAuthAuthorizationServerProvider
{
    public override async Task ValidateClientAuthentication(OAuthValidateClientAuthenticationContext context)
    {
        context.Validated();
    }

    public override async Task GrantResourceOwnerCredentials(OAuthGrantResourceOwnerCredentialsContext context)
    {

        context.OwinContext.Response.Headers.Add("Access-Control-Allow-Origin", new[] { "*" });

        using (AuthRepository _repo = new AuthRepository())
        {
            IdentityUser user = await _repo.FindUser(context.UserName, context.Password);

            if (user == null)
            {
                context.SetError("invalid_grant", "The user name or password is incorrect.");
                return;
            }
        }

        var identity = new ClaimsIdentity(context.Options.AuthenticationType);
        identity.AddClaim(new Claim("sub", context.UserName));
        identity.AddClaim(new Claim("role", "user"));

        context.Validated(identity);

    }
}

这意味着：

Public Class SimpleAuthorizationServerProvider
    Inherits OAuthAuthorizationServerProvider
    Public Overrides Function ValidateClientAuthentication(context As OAuthValidateClientAuthenticationContext) As Task
        context.Validated()
    End Function

    Public Overrides Function GrantResourceOwnerCredentials(context As OAuthGrantResourceOwnerCredentialsContext) As Task

        context.OwinContext.Response.Headers.Add("Access-Control-Allow-Origin", New () {"*"})

        Using _repo As New AuthRepository()
            Dim user As IdentityUser = Await _repo.FindUser(context.UserName, context.Password)

            If user Is Nothing Then
                context.SetError("invalid_grant", "The user name or password is incorrect.")
                Return
            End If
        End Using

        Dim identity = New ClaimsIdentity(context.Options.AuthenticationType)
        identity.AddClaim(New Claim("sub", context.UserName))
        identity.AddClaim(New Claim("role", "user"))

        context.Validated(identity)

    End Function
End Class

如何更正翻译以使生成的 Visual Basic 代码正常工作？

Answer 1

那句话的翻译似乎不正确，应该是

context.OwinContext.Response.Headers.Add("Access-Control-Allow-Origin", { "*" })

没有 New()