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

时间:2013-07-22 17:06:58

标签: vb.net google-analytics google-oauth google-analytics-api

我正在尝试使用OAuth2验证我的应用程序并使用“已安装的应用程序”流程(获取auth-code然后请求令牌)。在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但未找到适合此代码的解决方案。我已经检查了所有建议的解决方案并实施了它们,但到目前为止还没有运气。

2 个答案:

答案 0 :(得分:0)

看起来您没有为参数 auth-code client_id client_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                                    

答案 1 :(得分: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