Dim resultat 

resultat = PrivateLocalBTC("GET","/api/countrycodes/","")
MsgBox resultat


Function PrivateLocalBTC(Method, endpoint , params)

Dim NonceUnique 
NonceUnique = Cstr(CreateNonce(13))
TradeApiSite = "https://localbitcoins.com"
apikey = "bc0ee71a25590008895264932800f88b"
secretkey = "Роман"

Message = NonceUnique & apikey & endpoint & params

set jose = CreateObject("Chilkat_9_5_0.JsonObject")
apisign = jose.AppendString(Message, secretkey) 'здесь скачал специальную программу'

If params <> "" Then 
urlparams = "?" & params
End If

Url = TradeApiSite & endpoint & urlparams

Set objHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
objHTTP.Open Method, Url, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.setRequestHeader "Apiauth-Key", apikey
objHTTP.setRequestHeader "Apiauth-Nonce", NonceUnique
objHTTP.setRequestHeader "Apiauth-Signature", apisign
objHTTP.Send 
objHTTP.waitForResponse
PrivateLocalBTC = objHTTP.ResponseText
Set objHTTP = Nothing
End Function




Public Function CreateNonce(NonceLength )
    Dim web_Str 
    Dim web_Count 
    Dim web_Result 
    Dim web_Random

    web_Str = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUIVWXYZ"
    web_Result = ""

    Randomize

    For web_Count = 1 To NonceLength
        web_Random = CInt(((Len(web_Str) - 1) * Rnd) + 1)
        web_Result = web_Result & Mid(web_Str, web_Random, 1)
    Next
    CreateNonce = web_Result
End Function