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 ChilkatRest
rest.Initialize("rest")
Dim bTls As Boolean = True
Dim bAutoReconnect As Boolean = True
success = rest.Connect("example.com", 443, bTls, bAutoReconnect)
If success = False Then
    Log(rest.LastErrorText)
    Return
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 ChilkatOAuth1
oauth1.Initialize
'  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
    Log(rest.LastErrorText)
    Return
End If


Dim responseText As String = rest.FullRequestNoBody("GET", "/api/resource")
If rest.LastMethodSuccess = False Then
    Log(rest.LastErrorText)
    Return
End If

Log(responseText)