Google OAuth 令牌错误 - 400 错误请求

问题描述 投票:0回答:2

我正在尝试使用 OAuth2 并使用“已安装的应用程序”流程对我的应用程序进行身份验证(获取身份验证代码,然后请求令牌)。在 GetResponse() 行请求令牌时,我收到了

400 bad request error
。我的代码如下:

Public Sub New()
    Dim tokenRequest As WebRequest = 
         WebRequest.Create("https://accounts.google.com/o/oauth2/token")

    Dim requestString As String = "code=<auth-code>" _
                        & "&client_id=<client_id>" _
                        & "&client_secret=<client_secret>" _
                        & "&redirect_uri=http://localhost" _
                        & "&grant_type=authorization_code"

    byteArray = StrToByteArray(System.Web.HttpUtility.UrlEncode(requestString))

    tokenRequest.Credentials = CredentialCache.DefaultCredentials
    tokenRequest.Method = "POST"
    tokenRequest.ContentLength = byteArray.Length
    tokenRequest.ContentType = "application/x-www-form-urlencoded"
    Dim dataStream As Stream = tokenRequest.GetRequestStream()

    dataStream.Write(byteArray, 0, byteArray.Length)
    dataStream.Close()

    Console.WriteLine("Getting response...")

    'Get response
    Try
        Dim response As WebResponse = tokenRequest.GetResponse()

        Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)

        Dim data As Stream = response.GetResponseStream

        Array.Resize(byteArray, 4096)

        Array.Clear(byteArray, 0, byteArray.Length)

        data.Read(byteArray, 0, byteArray.Length)

        response.Close()

    Catch wex As WebException
       Console.WriteLine("ERROR! : ")
        Console.WriteLine(wex.Message)
        Console.WriteLine(wex.Status)
        Console.WriteLine(wex.Data)
        Console.WriteLine(wex.InnerException.Message)
        Console.WriteLine(wex.HelpLink)
    End Try
End Sub

错误详情如下:

The remote server returned an error: (400) Bad Request.
7
System.Collections.ListDictionaryInternal
System.NullReferenceException: Object reference not set to an instance of an obj
ect.
   at GADownload.GoogleAnalytics..ctor() in ***.vb:line 86
   at GADownload.Main1.Main(String[] args) in ****.vb:line 18

我查看过 Google GetAccessToken : Bad Request 400Google GData .Net OAuthUtil.GetAccessToken 400 Bad Request 但尚未找到适合此代码的解决方案。我已经检查了所有建议的解决方案并实施了它们,但到目前为止还没有运气。

vb.net google-analytics google-oauth google-analytics-api
2个回答
0
投票

看起来您没有设置参数 auth-codeclient_idclient_secret 的值。

您可以使用curl命令调试这些参数,看看这是否是问题的根源。例如

curl -X POST -d "code=<auth-code>&client_id=<client_id>&client_secret=<client_secret>"&grant_type=authorization_code" http://localhost:8000/auth/token                                    

0
投票

你可以尝试URL编码redirect_uri吗 redirect_uri=http://localhost

这是我在你的代码和我的代码中看到的唯一的东西。这是我的代码,在 vb 中和工作中类似

Dim sb As New StringBuilder
sb.Append("code=").Append(Request.QueryString("code")) _
.Append("&client_id=") _
.Append(Session.Item("ClientID")) _
.Append("&client_secret=") _
.Append(Session.Item("ClientSecret")) _
.Append("&redirect_uri=") _
.Append(HttpUtility.UrlEncode("http://localhost/1.aspx")) _
.Append("&grant_type=authorization_code")
Dim requestGoogle As HttpWebRequest =
WebRequest.Create("https://accounts.google.com/o/oauth2/token")
requestGoogle.Method = "POST"
requestGoogle.ContentType = "application/x-www-form-urlencoded"
requestGoogle.ContentLength = sb.Length
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(sb.ToString)
sb.Clear()
requestGoogle.GetRequestStream.Write(byteArray, 0, byteArray.Length)
byteArray = Nothing
Dim responseGoogle As HttpWebResponse = requestGoogle.GetResponse()
If responseGoogle.StatusCode = HttpStatusCode.OK Then
    Dim sr As StreamReader = _
    New StreamReader(responseGoogle.GetResponseStream)
    Dim s As String = sr.ReadToEnd
    sr.Close()
    responseGoogle.GetResponseStream.Close()
    requestGoogle.GetRequestStream.Close()
    'Response.Write(s)
End If
© www.soinside.com 2019 - 2024. All rights reserved.