Y12uSsJ1

1Sub initrequest()
2
3'this is a POST request with no arguments  that results in error  
4JsonResponse = PrivateLocalBTC("POST", "/api/notifications/mark_as_read/9b9c2b5a16a3/")
5
6'this is a GET request, with "ads=.." parameter, that works
7'JsonResponse = PrivateLocalBTC("GET", "/api/ad-get/", "ads=771318")
8
9Debug.Print JsonResponse
10
11End Sub
12	
13Function PrivateLocalBTC(Method As String, endpoint As String, Optional params As String) As String
14
15Dim NonceUnique As String
16NonceUnique = CreateNonce(13)
17TradeApiSite = "https://localbitcoins.com"
18apikey = "..............."
19secretkey = "............"
20
21Message = NonceUnique & apikey & endpoint & params
22apisign = ComputeHash_C("SHA256", Message, secretkey, "STRHEX")
23If params <> "" Then urlparams = "?" & params
24Url = TradeApiSite & endpoint & urlparams
25
26Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
27objHTTP.Open Method, Url, False
28objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
29objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
30objHTTP.setRequestHeader "Apiauth-Key", apikey
31objHTTP.setRequestHeader "Apiauth-Nonce", NonceUnique
32objHTTP.setRequestHeader "Apiauth-Signature", apisign
33objHTTP.Send ("")
34
35objHTTP.waitForResponse
36PrivateLocalBTC = objHTTP.ResponseText
37Set objHTTP = Nothing
38End Function