控制器Action过程中添加
'claims:sign名称为申请令牌时的命名
Dim sign = TryCast(User.Identity, System.Security.Claims.ClaimsIdentity).Claims.Select(Function(x) New With {.key = x.Type, .val = x.Value}).FirstOrDefault(Function(x) x.key.Equals("sign")).val
Console.WriteLine("token用户信息:" & sign)