Configure OAuth 1.0a Authentication for REST

See more REST Examples

Demonstrates Rest.SetAuthOAuth1, which associates an OAuth1 provider so Chilkat computes the OAuth 1.0/1.0a signature for each request. The second argument selects whether OAuth parameters are placed in the query string or the Authorization header.

Dim success As Boolean = False

Dim rest As New Chilkat.Rest
Dim bTls As Boolean = True
Dim bAutoReconnect As Boolean = True
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = False) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


'  Configure OAuth 1.0a request signing.  Provide the consumer credentials and the access token
'  credentials; Chilkat computes the OAuth signature for each request.
Dim oauth1 As New Chilkat.OAuth1
'  Normally you would not hard-code secrets in source.  You should instead obtain them from an
'  interactive prompt, environment variable, or a secrets vault.
oauth1.ConsumerKey = "CONSUMER_KEY"
oauth1.ConsumerSecret = "CONSUMER_SECRET"
oauth1.Token = "ACCESS_TOKEN"
oauth1.TokenSecret = "ACCESS_TOKEN_SECRET"
oauth1.SignatureMethod = "HMAC-SHA1"

'  The 2nd argument selects whether OAuth parameters are placed in the query string (True) or the
'  Authorization header (False).
Dim bUseQueryParams As Boolean = False
success = rest.SetAuthOAuth1(oauth1,bUseQueryParams)
If (success = False) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


Dim responseText As String = rest.FullRequestNoBody("GET","/api/resource")
If (rest.LastMethodSuccess = False) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If

Debug.WriteLine(responseText)