자료실

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

vb6.0/vba

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

vb6.0/vba [vb6.0/vba/vb.net] 네이버 지도 API를 이용한 나의 아이피 주소 확인

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 6,605회 작성일 20-02-01 11:36

본문

Function GetIP() As String
    Dim URL As String, Cookie As String
    Dim T As String
    
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", URL
        .SetRequestHeader "Host""map.naver.com"
        .SetRequestHeader "User-Agent""Mozilla/5.0 (Windows NT 10.0; WOW64; rv:56.0) Gecko/20100101 Firefox/56.0"
        .SetRequestHeader "Accept""application/json, text/plain, */*"
        .SetRequestHeader "Accept-Language""ko-KR,ko;q=0.8,en-US;q=0.5,en;q=0.3"
        .SetRequestHeader "Referer""https://map.naver.com/"
        .SetRequestHeader "Connection""keep-alive"
        If Len(Cookie) Then .SetRequestHeader "Cookie", Cookie
        .SetRequestHeader "TE""Trailers"
        .Send
        .WaitForResponse: DoEvents
        T = .ResponseText
        'T = StrConv(.ResponseBody, vbUnicode)
    End With
    GetIP = Split(T, ",")(0)
End Function
 

댓글목록

등록된 댓글이 없습니다.