Visual Basic, C & C++
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
 
사용방법
Msgbox GetIP
'vb6에서만 사용가능

[출처] http://cafe.naver.com/bublefightermovie/62692

관련자료

댓글 0
등록된 댓글이 없습니다.
Today's proverb
한가지 변함없는 법칙이 있다. 우리가 깊은 상처를 입었을 때, 용서하지 않는 한은 어떤 치유도 없다는 것이다. (알란 패턴)