[vb6.0/vba/vb.net] 네이버 지도 API를 이용한 나의 아이피 주소 확인
하나를하더라도최선을
2020-02-01 11:36:00
33,923
0
0
Function GetIP() As String
Dim URL As String, Cookie As String
Dim T As String
URL = "https://map.naver.com/v5/api/ip"
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