(Visual Basic 6.0) ABN AMRO OAuth2 Client Credentials Authentication

Demonstrates how to obtain an access token for an ABN AMRO online API using OAuth2 with the Client Credentials flow.

For more information, see https://developer.abnamro.com/api/payment-initiation-v1/payment-initiation-tutorial

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' This example sends the following CURL request:

' 	curl -X POST -k https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2 \
' 	-v \
' 	--cert TPPCertificate.crt \
' 	--key TPPprivateKey.key \
' 	-H 'Cache-Control: no-cache' \
' 	-H 'Content-Type: application/x-www-form-urlencoded' \
' 	-d 'grant_type=client_credentials&client_id=TPP_test&scope=psd2:payment:sepa:write psd2:payment:sepa:read'

Dim cert As New ChilkatCert
Dim success As Long
success = cert.LoadFromFile("qa_data/certs/TPPCertificate.cer")
If (success <> 1) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

Dim bdKey As New ChilkatBinData
success = bdKey.LoadFile("qa_data/certs/TPPprivateKey.key")

Dim privKey As New PrivateKey
success = privKey.LoadAnyFormat(bdKey,"passwordIfNeeded")
If (success <> 1) Then
    Debug.Print privKey.LastErrorText
    Exit Sub
End If

success = cert.SetPrivateKey(privKey)
If (success <> 1) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

Dim http As New ChilkatHttp

success = http.SetSslClientCert(cert)
If (success <> 1) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim req As New ChilkatHttpRequest
req.AddParam "grant_type","client_credentials"
req.AddParam "client_id","TPP_test"
req.AddParam "scope","psd2:payment:sepa:write psd2:payment:sepa:read"

Dim resp As ChilkatHttpResponse
Set resp = http.PostUrlEncoded("https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2",req)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

If (resp.StatusCode <> 200) Then
    Debug.Print resp.BodyStr

    Exit Sub
End If

' Get the JSON result:
' {"access_token":"TIhycwl8rfrZPkXGw15mwldASAAK","token_type":"Bearer","expires_in":7200}
Dim json As New ChilkatJsonObject
success = json.Load(resp.BodyStr)
Debug.Print "access_token: " & json.StringOf("access_token")
Debug.Print "token_type: " & json.StringOf("token_type")
Debug.Print "expires_in: " & json.StringOf("expires_in")