Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET UWP/WinRT) ABN AMRO OAuth2 Client Credentials AuthenticationDemonstrates 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
' 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 Chilkat.Cert Dim success As Boolean = cert.LoadFromFile("qa_data/certs/TPPCertificate.cer") If (success <> True) Then Debug.WriteLine(cert.LastErrorText) Exit Sub End If Dim bdKey As New Chilkat.BinData success = bdKey.LoadFile("qa_data/certs/TPPprivateKey.key") Dim privKey As New Chilkat.PrivateKey success = privKey.LoadAnyFormat(bdKey,"passwordIfNeeded") If (success <> True) Then Debug.WriteLine(privKey.LastErrorText) Exit Sub End If success = cert.SetPrivateKey(privKey) If (success <> True) Then Debug.WriteLine(cert.LastErrorText) Exit Sub End If Dim http As New Chilkat.Http success = http.SetSslClientCert(cert) If (success <> True) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim req As New Chilkat.HttpRequest 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 Chilkat.HttpResponse = Await http.PostUrlEncodedAsync("https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2",req) If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If If (resp.StatusCode <> 200) Then Debug.WriteLine(resp.BodyStr) Exit Sub End If ' Get the JSON result: ' {"access_token":"TIhycwl8rfrZPkXGw15mwldASAAK","token_type":"Bearer","expires_in":7200} Dim json As New Chilkat.JsonObject json.Load(resp.BodyStr) Debug.WriteLine("access_token: " & json.StringOf("access_token")) Debug.WriteLine("token_type: " & json.StringOf("token_type")) Debug.WriteLine("expires_in: " & json.StringOf("expires_in")) |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.