如何在 VB.NET 中获取 OAuth 2.0 访问令牌

Question

如何通过在 VB.NET 中交换基本凭据（客户端 ID 和密码）（OAuth 身份验证）来请求令牌？

我尝试了下面的代码，但没有成功。我收到错误消息：

底层连接已关闭：发送时发生意外错误。

代码

Function test()
    Try
        Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://www.ia.provider.com/access_token"), HttpWebRequest)
        myHttpWebRequest.Method = "POST"
        myHttpWebRequest.ContentType = "application/json"
        myHttpWebRequest.Headers.Add("Authorization", "Basic " & System.Convert.ToBase64String(System.Text.ASCIIEncoding.ASCII.GetBytes("545874a9f5134ed0b54545:333650277fa4d50934c65AAb46Ad123")))

        Dim myHttpWebResponse As HttpWebResponse CType(myHttpWebRequest.GetResponse(), HttpWebResponse)

        Dim myreader As New System.IO.StreamReader(myHttpWebResponse.GetResponseStream)
        Dim myText As String
        myText = myreader.ReadToEnd
        Console.WriteLine(myText)

    Catch e As ArgumentException

        Console.WriteLine(e.Message)
        MsgBox((vbLf & "WebException is thrown. " & vbLf & "Message is:" & e.Message))

    Catch e As WebException
        Console.WriteLine(vbLf & "WebException is thrown. " & vbLf & "Message is :" & e.Message)
        If e.Status = WebExceptionStatus.ProtocolError Then
            Console.WriteLine("Status Code: {0}", CType(e.Response, HttpWebResponse).StatusCode)
            Console.WriteLine("Status Description: {0}", CType(e.Response, HttpWebResponse).StatusDescription)
            Console.WriteLine("Server : {0}", CType(e.Response, HttpWebResponse).Server)
        End If

    Catch e As Exception
        Console.WriteLine("Exception is thrown. Message is:" & e.Message)

    End Try
End Function

Answer 1

最好的方法是使用 RestClient。您可以通过 NuGet 包管理器将其添加到您的项目中。

以下是如何请求令牌：

 Function request_token()

    ServicePointManager.ServerCertificateValidationCallback = AddressOf AcceptAllCertifications
    ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
    Dim client = New RestClient("https://www.ia.provider.com/access_token")


    Dim request = New RestRequest(Method.POST)
    request.Parameters.Clear()
    request.AddParameter("Authorization", "Basic " & System.Convert.ToBase64String(System.Text.ASCIIEncoding.ASCII.GetBytes("545874a9f5134ed0b54545:333650277fa4d50934c65AAb46Ad123")))
    request.AddParameter("Accept", "application/json")
    request.AddParameter("Content-Type", "application/x-www-form-urlencoded")
    request.AddParameter("Content-Length", "29")
    request.AddParameter("grant_type", "client_credentials")

    Return response.Content.ToString
End Function