자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

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

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 7,336회 작성일 19-09-29 14:10

본문

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 

댓글목록

등록된 댓글이 없습니다.