코빗 API 엑셀 내 보유 코인 정리 - VBA

코빗 API의 https://api.korbit.co.kr/v1/user/balances를 사용합니다.

 

코빗의 지갑 정리를 사용하기 위해서는 $ACCESS_TOKEN이 필요합니다.

 

그래서 먼저 $ACCESS_TOKEN을 발급받는 방법을 설명하겠습니다.

 

---

$ACCESS_TOKEN 발급 받기

가장 먼저 API를 신청해야 합니다.

 

API를 신청하시면 

 

CLIENT_ID와 CLIENT_SECRET 키를 줍니다.

 

그리고 인증 페이지에서 https://api.korbit.co.kr/v1/oauth2/access_token를 통해서 ACCESS_TOKEN을 발급받습니다.

 

그래서 아래 코드에 CLIENT_ID와 CLIENT_SECRET에 해당 값을 입력하신 뒤 실행하시면 직접 실행 창에 access_token 값이 노출되게 되어있습니다.

 

Public Sub Access_token_make()
Set whttp = CreateObject("winhttp.winhttprequest.5.1")

client_id = "입력"
client_secret = "입력"

Url = "https://api.korbit.co.kr/v1/oauth2/access_token"

t = "client_id=" & client_id & "&client_secret=" & client_secret & "&grant_type=client_credentials"
whttp.Open "post", Url
whttp.SetRequestHeader "content-type", "application/x-www-form-urlencoded"
whttp.Send (t)

Debug.Print (whttp.ResponseText)

End Sub

 

만든 Access_token 발급이 완료되었습니다.

 

물론 갱신하는 형태도 있습니다. 

 

한 시간 뒤 해당 토큰이 없어지기 때문에 1시간 이내 갱신을 해야 합니다.

 

갱신 시간을 놓치면 새로 발급받아야 합니다.

 

갱신에서 사용되는 값은 refresh_token입니다. 이것도 위 코드에서 노출됩니다.

 

Public Sub Refresh_token()
Set whttp = CreateObject("winhttp.winhttprequest.5.1")

client_id = "입력"
client_secret = "입력"
refresh_token = "입력"

Url = "https://api.korbit.co.kr/v1/oauth2/access_token"

t = "client_id=" & client_id & "&client_secret=" & client_secret & "refresh_token=" & refresh_token & "&grant_type=refresh_token"
whttp.Open "post", Url
whttp.SetRequestHeader "content-type", "application/x-www-form-urlencoded"
whttp.Send (t)

Debug.Print (whttp.ResponseText)

End Sub

 

---

지갑 정리하기

위에서 발급받은 Access_token을 사용합니다.

Sub Balance()
Set whttp = CreateObject("winhttp.winhttprequest.5.1")

Access_Token = "입력"

Url = "https://api.korbit.co.kr/v1/user/balances"

whttp.Open "get", Url
whttp.SetRequestHeader "Authorization", "Bearer " & Access_Token
whttp.Send

End Sub

 

이렇게 하면 whttp.responsetext에 해당 내용이 노출됩니다.