• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




[vb6.0/vba] [vba] Tether의 KRW 시세 데이터 가져오기(CoinMarketCap)

하나를하더라도최선을
2019.09.29 14:10 1,591 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


93212966061dab9c7783a922405bac10_1569733807_0503.png 



댓글목록 0

등록된 댓글이 없습니다.