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) Bitfinex v2 REST User InfoRetrieve the user ID, email, username and timezone setting for the account associated with the API key used. For more information, see https://docs.bitfinex.com/reference#rest-auth-info-user 
 ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim success As Boolean ' Implements the following CURL command: ' curl -X POST -H "bfx-nonce: nonce" \ ' -H "bfx-apikey: apiKey" \ ' -H "bfx-signature: sig" \ ' https://api.bitfinex.com/v2/auth/r/info/user ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code Dim crypt As New Chilkat.Crypt2 Dim apiPath As String = "v2/auth/r/info/user" Dim apiKey As String = "MY_API_KEY" Dim apiSecret As String = "MY_API_SECRET" Dim dt As New Chilkat.CkDateTime dt.SetFromCurrentSystemTime() Dim sbNonce As New Chilkat.StringBuilder sbNonce.Append(dt.GetAsUnixTimeStr(False)) sbNonce.Append("000") Dim nonce As String = sbNonce.GetAsString() ' This particular request has an empty body. Dim body As String = "" Dim sbSignature As New Chilkat.StringBuilder sbSignature.Append("/api/") sbSignature.Append(apiPath) sbSignature.Append(nonce) sbSignature.Append(body) crypt.EncodingMode = "hex_lower" crypt.HashAlgorithm = "sha384" crypt.MacAlgorithm = "hmac" crypt.SetMacKeyString(apiSecret) Dim sig As String = crypt.MacStringENC(sbSignature.GetAsString()) http.SetRequestHeader("bfx-apikey",apiKey) http.SetRequestHeader("bfx-signature",sig) http.SetRequestHeader("bfx-nonce",nonce) Dim resp As Chilkat.HttpResponse = Await http.QuickRequestAsync("POST","https://api.bitfinex.com/v2/auth/r/info/user") If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Debug.WriteLine("Response body:") Debug.WriteLine(resp.BodyStr) ' Sample response body: ' [1234567,"joe@example.com","joe_trader",1527691729000,0,null,null,"Central Time (US & Canada)"]  | 
  ||||
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.