小编use*_*666的帖子

我正在尝试使用OAuth2验证我的应用程序并使用"已安装的应用程序"流程(获取auth-code然后请求令牌).我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, …