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 Long
success = 0

Dim rest As New ChilkatRest
Dim bTls As Long
bTls = 1
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = 0) Then
    Debug.Print 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 ChilkatOAuth1
'  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 (1) or the
'  Authorization header (0).
Dim bUseQueryParams As Long
bUseQueryParams = 0
success = rest.SetAuthOAuth1(oauth1,bUseQueryParams)
If (success = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

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

Debug.Print responseText