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

vb6.0/vba

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

하나를하더라도최선을
2020.02.01 11:36 39 0

본문



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
 


댓글목록 0

등록된 댓글이 없습니다.