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

问：

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

vb.net google-analytics google-oauth google-analytics-api

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

上一个：为什么systemprofile需要Desktop文件夹才能打开excel文件

下一个：如何在 .NET 中启用程序集绑定失败日志记录（Fusion）

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

Google OAuth Token error - 400 Bad Request

评论