분류
Visual Basic
[펌] 자신의 아이피를 보자 WinHttp
페이지 정보
본문
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
관련자료
-
링크
등록된 댓글이 없습니다.
