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
success = False

Dim rest As New Chilkat.Rest
Dim bTls As Boolean
bTls = True
Dim bAutoReconnect As Boolean
bAutoReconnect = True
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = False) Then
    System.DebugLog(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 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 (1) or the
//  Authorization header (0).
Dim bUseQueryParams As Boolean
bUseQueryParams = False
success = rest.SetAuthOAuth1(oauth1,bUseQueryParams)
If (success = False) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

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

System.DebugLog(responseText)