Public Sub getopenorders ()

Dim apikey As String
Dim apisecret As String
Dim As String URI
Dim знак As String
Dim ответ As String
Dim PARAMS As String
Дим JSON As Object
Dim tempString As String
Dim Пункт Как словарь
Тусклый ключ As Variant
Dim C As Integer
Дим г As Integer
Dim с.в. As Integer

apikey = "ЭТО ВАШ BITTREX API KEY"
apisecret = "ЭТО ВАШ BITTREX API SECRET"

= URI "https://bittrex.com/api/v1.1/public/getmarketsummaries"

Титулы = "?" + "apikey =" + Apikey + "&= нонс" + getNonce
знак = createSignature (apisecret, Uri + PARAMS)
ответ = GetResponse (URI, "apisign", Знак, PARAMS)
tempString = Середина (ответ, InStr (ответ, "["), Len (ответ) - InStr (ответ, "["))
tempString = Заменить (tempString, ":ноль", ":""ноль""")

Набор = JsonConverter.ParseJson JSON (tempString)

г = 2
RV = 3
с = 1

Листы (1) .Cells.ClearContents

Для каждого элемента в формате JSON
     
    Для каждого ключа в Item.keys ()
        Листы (1) .Cells (г, с) = .value ключ
        Листы (1) .Cells (с.в., с) .value = Пункт (ключ)
        с = с + 1
    следующий
    RV = RV + 1
    с = 1
следующий

MsgBox ("Обновление от Bittrex сделано.")

End Sub


Функция GetResponse (ByVal PURL As String, sendVarKey As String, sendVarValue As String, Params As String) As String
    Dim oRequest Как WinHttp.WinHttpRequest
    Набор oRequest = GetHttpObj ("ПОСЛЕ", PURL + Титулы, False, sendVarKey, sendVarValue)
    oRequest.send ""
    GetResponse = oRequest.responseText
End Function


Public Function GetHttpObj (HTTPMethod As String, Ури As String, асинхронная As Boolean, _
    sendVarKey As String, sendVarValue As String, _
    Необязательные CONTENTTYPE As String = "Применение / JSON") Как WinHttp.WinHttpRequest
    Dim httpObj As New WinHttp.WinHttpRequest
    С httpObj
        .Открыть HTTPMethod, Урьте, асинхронные
        .setRequestHeader "происхождения", "pamsXL"
        .setRequestHeader "User-Agent", "Mozilla / 4.0 (совместимый; MSIE 6.0; Windows NT 5.1)"
        .setRequestHeader "соединение", "поддержания активности"
        .setRequestHeader "Тип содержимого", Тип содержимого
        .setRequestHeader "кэш-контроль", "нет кэша"
    End With
    httpObj.setRequestHeader sendVarKey, sendVarValue
    Установите GetHttpObj = httpObj
End Function


Private Function createSignature (KeyString As String, URL As String) As String
    createSignature = SHA512 (KeyString, URL)
End Function


Private Function sha512 (ByVal KeyString As String, ByVal ул As String) As String

    Dim закодировать As Object, шифровать As Object, с As String, _
        privateStringBytes () As Byte, б () As Byte, privateKeyBytes () As Byte
       
    Набор закодировать = CreateObject ("System.Text.UTF8Encoding")
    Набор шифровать = CreateObject ("System.Security.Cryptography.HMACSHA512")
   
    privateKeyBytes = encode.Getbytes_4 (KeyString)
    privateStringBytes = encode.Getbytes_4 (ул)
    encrypt.key = privateKeyBytes
   
    б = encrypt.ComputeHash_2 ((privateStringBytes))
    SHA512 = ByteArrayToHex (б)

    Устан закодировать = Ничто
    Устан шифровать = Ничто

End Function

Private Function ByteArrayToHex (ByRef ByteArray () As Byte) As String
    Dim л As Long, strRet, Val As String
    Для л = LBound (ByteArray) К UBound (ByteArray)
        Вал = Шестигранный $ (ByteArray, (л))
        Если Len (Val) <> 2 Тогда
             Val = "0" & Val
        End If
        strRet = strRet & Val
    Далее л
    ByteArrayToHex = LCase (strRet)
End Function

Функция getNonce () As String
    getNonce = CStr (DateDiff ("S", "1/1/1970", Теперь()))
End Function