[VB6] 웹을 이용해 아이피를 알아보자!

<---추천

웹사이트를 이용해 자신의외부아이피를 알아낼것입니다.

마이크로소프트 Winhttp 5.1를 참조하시고 시작하죠

 http://ip.minjae.kr/ 

이 사이트를 참조하여 알아볼것입니다.

Dim WinHttp As New WinHttp.WinHttpRequest 라고 맨 위에 선언을 합니다.

선언을 한뒤 이 사이트 주소 index 의 소스를 불러옵니다.

WinHttp.Open "GET", "http://ip.minjae.kr/"
WinHttp.Send

이렇게 불러오기만하면 되냐고요?

원하는 문자열을 잘라내어 원하는게 출력되게 해야겠죠?

split문을 사용합니다.

 Split(잘릴문장,자를문장,~)(0=자를문장앞 1=자를문장뒤)

그럼 아래 소스처럼 합니다.

Dim WinHttp As New WinHttp.WinHttpRequest
WinHttp.Open "GET", "http://ip.minjae.kr/"
WinHttp.Send
MsgBox Split(Split(WinHttp.ResponseText, "<h1>")(1),"</h1>")(0)

이제 메세지박스로 자신의 아이피가 주소가 뜰것입니다.

에러가없으면 성공!

간단한 팁이였습니다.

감사합니다.