VB.NET中获取OAuth2认证令牌失败问题排查

你的代码存在几个关键错误，导致请求被导向授权页面而非令牌接口：

1. 请求端点错误 #

你向/oauth2/authorize端点发送POST请求，但这个端点是OAuth授权码流程的第一步（获取授权码），通常会返回登录/授权页面的HTML（也就是你看到的redirect_uri对应站点内容）。获取令牌需要调用专门的令牌端点，一般是/oauth2/token。

2. 参数与流程不匹配 #

授权码流程分为两步：

• 第一步：通过GET请求到/oauth2/authorize，携带client_id、response_type=code、redirect_uri等参数，引导用户授权后获取授权码（code）。
• 第二步：将获取到的code通过POST请求发送到/oauth2/token，携带grant_type=authorization_code、code、redirect_uri、client_id/client_secret（或通过Basic Auth传递）来交换令牌。

你的代码混淆了这两步：直接向authorize端点发送token请求的参数，自然得不到令牌。

3. 冗余参数与错误的请求配置 #

• response_type是authorize端点的参数，token端点不需要。
• 已经通过Basic Auth传递了client_id和client_secret，无需在请求体中重复携带（部分接口允许，但属于冗余）。

修正后的VB.NET代码 #

假设你已经获取到了授权码code，以下是交换令牌的正确代码：

Dim clientId As String = "8cd6b80dd822961f362"
Dim clientSecret As String = "5afbd4bb280f29cba5ec1f362"
Dim authorizationCode As String = "这里替换为你实际获取的授权码" ' 从第一步授权流程中得到的code
Dim redirectUri As String = "https://somesite.com/"

' 构建Basic Auth头部
Dim credentials = String.Format("{0}:{1}", clientId, clientSecret)
Dim headerValue = Convert.ToBase64String(Encoding.UTF8.GetBytes(credentials))

' 构建token请求的参数
Dim content = New FormUrlEncodedContent(New Dictionary(Of String, String) From {
    {"grant_type", "authorization_code"},
    {"code", authorizationCode},
    {"redirect_uri", redirectUri}
})

' 指向正确的token端点
Dim requestMessage = New HttpRequestMessage(HttpMethod.Post, "https://api.site.com/oauth2/token")
requestMessage.Headers.Authorization = New AuthenticationHeaderValue("Basic", headerValue)
requestMessage.Content = content

Using client As New HttpClient()
    Dim response = client.SendAsync(requestMessage).Result
    response.EnsureSuccessStatusCode()
    Dim responseBody As String = response.Content.ReadAsStringAsync().Result
    MsgBox(responseBody)
End Using

补充说明 #

如果你还没有完成第一步获取授权码的流程，需要先通过GET请求引导用户授权：

' 构造授权URL
Dim authorizeUrl = String.Format("https://api.site.com/oauth2/authorize?client_id={0}&response_type=code&redirect_uri={1}", 
                                Uri.EscapeDataString(clientId), 
                                Uri.EscapeDataString(redirectUri))
' 打开这个URL让用户登录授权，授权后会跳转到redirect_uri并携带code参数
' 例如：https://somesite.com/?code=xxxxxx

你可以从跳转后的URL中提取code参数，再传入上面的令牌交换代码中。

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