Вот такая ситуация: вы не знаете своего IP, а он вам понадобился. конечно есть сайты на которых можно его узнать. программный код таких сайтов состоит буквально из 3-х строчек. Ну а если трафик дорогой и не хочется его на ветер тратить, то как же не заходя на такие сайты узнать свой IP (Internet Protocol)? Да просто! Написать программу, состоящую из нескольких строчек, но в отличие от этих сайтов она почти ничего не грузит из интернета.
Опять воспользуемся старым добрым бейсиком
нам потребуется:
1. Visual Basic
2. Компонент Winsock control
mswinsck.ocx (105,8 KiB, 835 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, 749 hits)
Comments ( 0 )