Our Blog

Узнать свой IP

Вот такая ситуация: вы не знаете своего IP, а он вам понадобился. конечно есть сайты на которых можно его узнать. программный код таких сайтов состоит буквально из 3-х строчек. Ну а если трафик дорогой и не хочется его на ветер тратить, то как же не заходя на такие сайты узнать свой IP (Internet Protocol)? Да просто! Написать программу, состоящую из нескольких строчек, но в отличие от этих сайтов она почти ничего не грузит из интернета.

Опять воспользуемся старым добрым бейсиком :)

нам потребуется:
1. Visual Basic
2. Компонент Winsock control 

  mswinsck.ocx (105,8 KiB, 681 hits)

Итак, создадим новый проект «Standart EXE». Поместим на форму текстовое поле и кнопку (ну можно и без нее, но лучше с ней, не поленитесь поставить)
Подключаем компонент Winsock control. дважды щелкнем по форме и убираем весь код что там написан и вставляем свой:

Private Sub Command1_Click()
Text1.Text = Winsock1.LocalIP
End SubPrivate Sub Form_Load()
Text1.Text = Winsock1.LocalIP
End Sub

где text1 и command1 — названия ваших объектов. по умолчанию они называются именно так.
запускаем и любуемся на свой IP

Скачать готовый проект

  ip.rar (2,7 KiB, 620 hits)

Comments ( 0 )
    -->