Tip/Visual Basic2009. 4. 13. 21:01
이 글의 주소 : http://winpe.pe.kr/entry/VB-Simple-IP-Check (복사)
불펌을 금지합니다.
안녕하세요? 시간이 날때마다 간단한 Visual Basic 팁을 써볼까 합니다.
물론 저도 Visual Basic를 완벽히 잘하는 것은 아니지만 제가 배운만큼 남에게 베푼다는 마음으로 Visual Basic의 유용한 팁들을 알려줄까합니다.
우선 첫 스타트로 인터넷 프로토콜 주소, 즉 IP주소를 알아내는 프로그램을 만들어볼까 합니다.
사실, IP를 확인하는 방법은 여러가지가 있습니다.

명령 프롬포트에서 ipconfig 명령을 실행하는방법, IP확인하는 사이트 (http://www.whatismyip.com/ , http://www.ip-adress.com/)를 이용해서 알아내는 방법등 여러가지가 있는데요.
 
여기서는 이러한 작업을 수월하게 해주는 프로그램을 만들어보겠습니다.
(Visual Basic를 어느정도 알고 있는 사용자를 기준으로 설명하겠습니다.)
  1. 우선 Visual Basic를 실행하신 다음에 표준 EXE 프로젝트를 하나 만듭니다.
  2. 프로젝트 -> 구성요소 혹은 Ctrl+T를 눌러서 구성요소 창을 띄운다음 그림처럼 다음과 같은 컨트롤을 추가시켜줍니다.

  3. 그 다음에 디자인창에다가 방금 추가시킨 컨트롤 폼에 넣으신후, 아래와 같이 표시하고 싶은걸 구성합시다. (디자인은 마음대로 하셔도 됩니다. 여기에서는 아래 그림과 같이 작업하였습니다.) 내부 IP 표시하는 텍스트 이름은 Text1이고 외부 IP표시하는 텍스트는 Text2가 됩니다. 확인 버튼의 이름은 Command1입니다. (이름도 마음대로 하셔도 됩니다만, 여기에서는 그냥 가겠습니다.)
  4. 코드창을 띄운뒤에 아래와 같은 소스를 넣어줍니다.
    Private Sub Command1_Click()
        Text1.Text = Winsock1.LocalIP '내부 IP확인
        Text2.Text = Inet1.OpenURL("http://www.getwanip.com/ip.php") '외부 IP확인
    End Sub
    
  5. 실행버튼을 눌러서 실행을 하시거나 컴파일 하셔서 컴파일한 프로그램을 실행 후 확인버튼을 누르면 내부IP외부 IP가 뜨게 됩니다.

이렇게 해서 간단하게 IP를 확인하실수 있는 프로그램을 만들어봤습니다.
꼭 저렇게 확인버튼을 눌러서 만들필요는 없습니다. 예를 들어 프로그램이 시작하자마자 IP를 보기위해선 Command1_Click() 부분을 Form_Load() 로 수정하셔서 컴파일 하시면 프로그램이 실행되지마자 IP를 확인하게 됩니다.  적절하게 수정하시면 되겠습니다.

※외부 IP확인하는 사이트가 외국서버이다보니 약간의 딜레이가 있을수 있습니다. 그럴 경우에는 아래 php소스를 복사한뒤에 자신의 계정에 올리신다음에 http://www.getwanip.com/ip.php 부분을 자신의 계정에 올린 ip.php파일을 지정하도록 하면 됩니다.
<?
echo $REMOTE_ADDR; 
?>

처음으로 쓰는 Visual Basic 팁이다보니 상당히 어설플수도 있습니다.
하지만 사용자께서 적절한 디자인과 적절한 코딩을 통해 내 입맛에 맞는 프로그램을 만들 수 있을거라고 생각하면서 이 글을 마칩니다.

'Tip > Visual Basic' 카테고리의 다른 글

VB 프로그래밍시 중복 실행 방지하기  (2) 2009.05.07


Posted by Hirano