如何在Visual Basic中使用OAuth 1.0？

Imports System.Net.Http
Imports System.Security.Cryptography
Imports System.Text
Imports System.Web

Public Class OAuth1Helper
    Private Const ConsumerKey As String = "YOUR_CONSUMER_KEY"
    Private Const ConsumerSecret As String = "YOUR_CONSUMER_SECRET"
    Private Const RequestTokenUrl As String = "REQUEST_TOKEN_URL"
    Private Const AccessTokenUrl As String = "ACCESS_TOKEN_URL"
    Private Const AuthorizeUrl As String = "AUTHORIZE_URL"

    Public Shared Function GetRequestToken() As String
        Dim httpClient As New HttpClient()

        Dim oauthNonce As String = GenerateNonce()
        Dim oauthTimestamp As String = GenerateTimestamp()
        Dim oauthSignature As String = GenerateSignature(RequestTokenUrl, "POST", oauthNonce, oauthTimestamp)

        Dim requestUrl As String = $"{RequestTokenUrl}?oauth_consumer_key={ConsumerKey}&oauth_nonce={oauthNonce}&oauth_signature_method=HMAC-SHA1&oauth_timestamp={oauthTimestamp}&oauth_version=1.0&oauth_signature={HttpUtility.UrlEncode(oauthSignature)}"

        Dim response As HttpResponseMessage = httpClient.PostAsync(requestUrl, Nothing).Result
        Dim responseContent As String = response.Content.ReadAsStringAsync().Result

        ' Parse response and extract request token
        ' ...

        Return requestToken
    End Function

    Public Shared Function GetAccessToken(requestToken As String, verifier As String) As String
        Dim httpClient As New HttpClient()

        Dim oauthNonce As String = GenerateNonce()
        Dim oauthTimestamp As String = GenerateTimestamp()
        Dim oauthSignature As String = GenerateSignature(AccessTokenUrl, "POST", oauthNonce, oauthTimestamp, requestToken)

        Dim requestUrl As String = $"{AccessTokenUrl}?oauth_consumer_key={ConsumerKey}&oauth_nonce={oauthNonce}&oauth_signature_method=HMAC-SHA1&oauth_timestamp={oauthTimestamp}&oauth_version=1.0&oauth_signature={HttpUtility.UrlEncode(oauthSignature)}&oauth_token={requestToken}&oauth_verifier={verifier}"

        Dim response As HttpResponseMessage = httpClient.PostAsync(requestUrl, Nothing).Result
        Dim responseContent As String = response.Content.ReadAsStringAsync().Result

        ' Parse response and extract access token
        ' ...

        Return accessToken
    End Function

    Public Shared Function GenerateNonce() As String
        Return Guid.NewGuid().ToString("N")
    End Function

    Public Shared Function GenerateTimestamp() As String
        Return Math.Round((DateTime.UtcNow - New DateTime(1970, 1, 1)).TotalSeconds).ToString()
    End Function

    Public Shared Function GenerateSignature(url As String, method As String, nonce As String, timestamp As String, Optional token As String = "") As String
        Dim baseString As String = $"{method}&{HttpUtility.UrlEncode(url)}&oauth_consumer_key={ConsumerKey}&oauth_nonce={nonce}&oauth_signature_method=HMAC-SHA1&oauth_timestamp={timestamp}&oauth_version=1.0"
        If Not String.IsNullOrEmpty(token) Then
            baseString &= $"&oauth_token={token}"
        End If

        Dim signingKey As String = $"{HttpUtility.UrlEncode(ConsumerSecret)}&{HttpUtility.UrlEncode(token)}"
        Dim hmacSha1 As New HMACSHA1(Encoding.ASCII.GetBytes(signingKey))
        Dim signatureBytes As Byte() = hmacSha1.ComputeHash(Encoding.ASCII.GetBytes(baseString))
        Dim signature As String = Convert.ToBase64String(signatureBytes)

        Return signature
    End Function
End Class