: Отклик : "{"успех": 0,"ошибка":"недопустимый параметр одноразового значения; на ключ: 0, вы послали:"}" : String

Dim PostData As String
Дим метод As String
Дим API As String
Dim Secret As String
Dim URL As String
Тусклое ObjHttp As Object
Dim нонс As String
Dim Вход As String
Dim Response As String

Private Sub Trade ()
        
        API = "api_key"
        Тайные = "СЕКРЕТНЫЙ КЛЮЧ"
        
        
        URL = "https://btc-e.com/tapi"
        Method = "получить данные"
        Nonce = DateDiff ("s", "1/1/1970", Дата)
        PostData = "метод =" & метод & Chr (38) & "= нонс" & данное время
        Вход = Base64_HMACSHA512 (PostData, секретно)
        Установить ObjHttp = Новый MSXML2.XMLHTTP60
        
        С ObjHttp
            .открыто "ПОСЛЕ", URL, Ложные
            .setRequestHeader "User-Agent", "Mozilla / 4.0 (совместимый; MSIE 8.0; Windows NT 5.1; Trident / 4.0)"
            .setRequestHeader "ключ", API
            .setRequestHeader "Знак", Знак
            .отправить (PostData)
            Ответ = .responseText
        End With
        
    End Sub
    
Private Function EncodeBase64 (ByRef arrData () As Byte) As String

    Dim objXML Как MSXML2.DOMDocument60
    Dim objNode Как MSXML2.IXMLDOMElement
    
    Установить objXML = Новый MSXML2.DOMDocument60
    Набор objNode = objXML.createElement ("B64")
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    EncodeBase64 = objNode.Text
 
    
    не указан objNode = Nothing
    не указан objXML = Nothing
 
End Function

Функция Base64_HMACSHA512 (ByVal sTextToHash As String, ByVal sSharedSecretKey As String)

    Дим по возрастанию As Object, ENC As Object
    Тусклое TextToHash () As Byte
    Тусклое SharedSecretKey () As Byte
    Установить по возрастанию = CreateObject ("System.Text.UTF8Encoding")
    Набор ENC = CreateObject ("System.Security.Cryptography.HMACSHA512")

    TextToHash = asc.Getbytes_4 (sTextToHash)
    SharedSecretKey = asc.Getbytes_4 (sSharedSecretKey)
    enc.Key = SharedSecretKey

    Dim байт () As Byte
    байт = enc.ComputeHash_2 ((TextToHash))
    Base64_HMACSHA512 = EncodeBase64 (байт)
    не указан Asc = Ничего
    не указан прил = Ничто

End Function