VBA code om cryptokoers op te halen bij Bitvavo

[PeterPanneman]

Ik wil de koerswaarde van één of meerdere crypto's ophalen bij Bitvavo.
Ik kan redelijk programmeren in VBA maar ben totaal niet bekend met Websockets en Hashes etc.
Verwijzen naar de documentatie hoeft niet, die heb ik gelezen maar ik snap het gewoon niet.
Ik ben nu een stukje op weg. Maar het lukt me niet om een timestamp correct te krijgen. Error302.
Is er iemand die de (totale) code kan delen om koersen op te halen waarbij ik de cryptomunt zelf kan wijzigen.

[Taro]

@PeterPanneman Je vraag past zowel in Cryptocurrencies als in Devschuur (Softwareontwikkeling) als in Client software algemeen. Mogelijk moet deze dus worden verplaatst als we iets meer tot de kern komen.

Maar waarom wil je de koerswaarde bij Bitvavo ophalen en niet centraal via bijv. Coinmarketcap of andere locatie? Wil je een bot schrijven die specifiek op Bitvavo trade?

[ Voor 11% gewijzigd door Taro op 18-02-2024 13:49 ]

[F_J_K]

Het helpt ook een boel als je de huidige code deelt, althans de relevante delen ervan.

[PeterPanneman]

Ik heb een soort kasboek geschreven op basis van
een exportbestand (via je account van de website te downloaden) van alle transacties die bij Bitvavo zijn gedaan.
Deze data heb ik bewerkt. Daarna wilde ik van de huidige crypto-bezittingen een waarde weergeven.
Inmiddels ben ik erachter dat voor de koers je geen API, WebRequest, Hash, etc nodig hebt.

Ik ben alleen nog benieuwd of ik meerdere crypto's in één keer kan opvragen.
Nu doe ik dat per crypto.

code:

Public Function Bitvavo_Koers(sMarket As String)
    Dim sResult As String
    Dim sURL As String
    Dim sTime As String
    Dim oRequest  As Object
    Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
          
    sTime = (Hour(Now()) * 3600 + Minute(Now()) * 60 + Second(Now())) * 1000
    sURL = "https://api.bitvavo.com/v2/ticker/price?market=" & sMarket & "-EUR"
   
    With oRequest
        .Open "GET", sURL
        .setRequestHeader "Content-Type", "application/json"
        .setRequestHeader "Bitvavo-Access-Timestamp", sTime
        .setRequestHeader "Bitvavo-Access-Window", "30000"
        .send ""
        .waitForResponse
        sResult = .responseText
        Bitvavo_Koers = sResult
    End With
End Function