Visual Basic 분류
[펌] 자신의 아이피를 보자 WinHttp
컨텐츠 정보
- 23,445 조회
- 0 추천
- 목록
본문
Public Function GetIP() As String
Dim WinHttp As Object
Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttp.Open "GET", "http://oa.to/getip.php"
WinHttp.Send
GetIP = WinHttp.ResponseText
End Function
Dim WinHttp As Object
Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttp.Open "GET", "http://oa.to/getip.php"
WinHttp.Send
GetIP = WinHttp.ResponseText
End Function
사용방법
Msgbox GetIP
'vb6에서만 사용가능
[출처] http://cafe.naver.com/bublefightermovie/62692
관련자료
-
링크
댓글 0
등록된 댓글이 없습니다.