[vb6.0/vba] [vba] Tether의 KRW 시세 데이터 가져오기(CoinMarketCap)
하나를하더라도최선을
2019-09-29 14:10
5,482
0
본문
Tether의 KRW 시세 데이터 가져오고자 합니다.
해당 URL : https://coinmarketcap.com/ko/currencies/tether/
WinHttp 통신의 문제점 443 포트 통신으로 오류발생!!
답변 URL : https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=336731985
Sub program1472_com()
Dim URL As String, T As String, Cookie As String
Dim USD As Double, KRW As Double
With CreateObject("MSXML2.XMLHTTP.6.0")
.Open "GET", URL
.SetRequestHeader "Host", "coinmarketcap.com"
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:56.0) Gecko/20100101 Firefox/56.0"
.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
.SetRequestHeader "Accept-Language", "ko-KR,ko;q=0.8,en-US;q=0.5,en;q=0.3"
.SetRequestHeader "Connection", "keep-alive"
If Len(Cookie) Then .SetRequestHeader "Cookie", Cookie
.SetRequestHeader "Upgrade-Insecure-Requests", "1"
.Send
T = .ResponseText
End With
USD = Split(Split(T, "data-usd=")(1), """")(1)
KRW = Split(Split(T, "data-krw=")(1), """")(1)
Debug.Print USD / KRW
End Sub
댓글목록0