May I ask you for some advice regarding to POST? about crypto_vba HOT 3 CLOSED

Hi, I'll add it to my to-do list, but you'll have to do the testing as I don't have an account with them. Will hopefully somewhere in the coming week.

from crypto_vba.

Hi @thawatchai-w
I had a quick try, but the public API of that exchange doesn't work (it's blocked by a captcha test) so I decided not to include it into my project for now. Secondly, next time do tell if you're cross-posting your issue...

For your code, the main issues I can spot:
temp = apikey & NonceUnique & secretkey '(not using + but &)

And here too (VBA won't replace this as PHP could do):
objHTTP.send ("key=" & apikey & "&nonce=" & NonceUnique & "&signature=" & Signature & "&twofa=" & twofa)

And remove the objHTTP.send (postdata) line.

Finally, Signature = ComputeHash_C("SHA256", temp, "", "byte") -> I guess you'd need "STRHEX" as the last option of that function, not "byte".

That should hopefully improve things/get you another error message. Please close this issue if it's solved.

from crypto_vba.

Hi @krijnsent ,
First of all thank you for your help a lot. I managed to get it done. Thxs
Following is the working code.
Function PrivateBX(Method As String, apikey As String, secretkey As String)

Dim NonceUnique As String
Dim Json As String
Dim PayloadDict As Scripting.Dictionary
Dim twofa As String
Dim temp As String
Dim strResult As String

twofa = ""

NonceUnique = CreateNonce(2)
temp = apikey & NonceUnique & secretkey
ApiSite = "https://bx.in.th/api/"
Signature = ComputeHash_C("SHA256", temp, "", "STRHEX")
Url = ApiSite + Method + "/"
Debug.Print apikey
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "POST", 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.send ("key=" & apikey & "&nonce=" & NonceUnique & "&signature=" & Signature & "&twofa=" & twofa)
objHTTP.WaitForResponse
PrivateBX = objHTTP.responseText
Set objHTTP = Nothing

End Function

from crypto_vba.