Google oauth请求错误400

Question

我有这个代码。它返回一个错误400错误的请求，我找不到原因。

第31行错误(这里应该得到响应…

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Page.Request.QueryString("code") Is Nothing Then
        Dim Token As String = GetToken("code=" & Server.UrlEncode(Page.Request.QueryString("code")) & "&client_id=xxx&client_secret=xxx&grant_type=authorization_code&redirect_uri=" & Server.UrlEncode("http://localhost:61163/Testing/YoutubeAPI.aspx"))
        'do something with the magical and elusive access_token from this point forward....
    End If
End Sub
Public Shared Function GetToken(code As String) As String
    Dim apiResponse As String
    Dim postData As String = code
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://accounts.google.com/o/oauth2/token"), HttpWebRequest)
    request.Method = "POST"
    request.ContentType = "application/x-www-form-urlencoded"
    Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
    Dim dataStream As Stream = request.GetRequestStream()
    dataStream.Write(byteArray, 0, byteArray.Length)
    dataStream.Close()
    Dim response As WebResponse = request.GetResponse()
    apiResponse = DirectCast(response, HttpWebResponse).StatusDescription.ToString()
    dataStream = response.GetResponseStream()
    Dim reader As New StreamReader(dataStream)
    Dim responseFromServer As String = reader.ReadToEnd()
    reader.Close()
    dataStream.Close()
    response.Close()
    Return responseFromServer
End Function

Answer 1

我不确定你的代码，但你总是可以使用YouTube Dotnet客户端库。

Answer 2

我不确定在这里回答我自己的问题时礼仪是否正确，但你可能会发现它很有用。

答案在内容字符串的URL编码中…

所以现在稍微修改了OAuth2的惊人之处，我可以从youtube API中获得几乎任何我想要的东西:)(尽管没有感谢谷歌文档的黑洞兔子洞…

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Page.Request.QueryString("code") Is Nothing Then
        Dim Token As String = CodeTrade("code=" & Server.UrlEncode(Page.Request.QueryString("code")) & "&redirect_uri=" & Server.UrlEncode("http://localhost:61163/Testing/YoutubeAPI.aspx") & "&client_id=xxx=&client_secret=xxx&grant_type=authorization_code")
        'now i CAN do something with the magical and elusive access_token from this point forward....
    End If
End Sub
Public Shared Function CodeTrade(code As String) As String
    Dim apiResponse As String
    Dim postData As String = code
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://accounts.google.com/o/oauth2/token"), HttpWebRequest)
    request.Method = "POST"
    request.ContentType = "application/x-www-form-urlencoded"
    Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
    Dim dataStream As Stream = request.GetRequestStream()
    dataStream.Write(byteArray, 0, byteArray.Length)
    dataStream.Close()
    Dim response As WebResponse = request.GetResponse()
    apiResponse = DirectCast(response, HttpWebResponse).StatusDescription.ToString()
    dataStream = response.GetResponseStream()
    Dim reader As New StreamReader(dataStream)
    Dim responseFromServer As String = reader.ReadToEnd()
    reader.Close()
    dataStream.Close()
    response.Close()
    Return responseFromServer
End Function