vb6.0/vba [vb6.0/vba/vb.net] 네이버 지도 API를 이용한 나의 아이피 주소 확인
페이지 정보
본문
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
- 이전글[vba] 화면 사이즈(Display Screen Size) 20.02.02
- 다음글[vb6.0/vba/vb.net] 네이버 지도 API를 이용한 IP로 주소 검색 20.02.01
댓글목록
등록된 댓글이 없습니다.