7

我正在尝试使用 OAuth2 并使用“已安装的应用程序”流程对我的应用程序进行身份验证（获取身份验证代码，然后请求令牌）。400 bad request error在 GetResponse() 行上请求令牌时，我得到了一个。我的代码如下：

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 400和Google GData .Net OAuthUtil.GetAccessToken 400 Bad Request但还没有找到适合此代码的解决方案。我已经检查了所有建议的解决方案并实施了它们，但到目前为止还没有运气。

4

2 回答 2

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
于 2015-08-14T08:39:55.193 回答
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
于 2017-10-17T15:35:29.067 回答