Вот такая ситуация: вы не знаете своего IP, а он вам понадобился. конечно есть сайты на которых можно его узнать. программный код таких сайтов состоит буквально из 3-х строчек. ну а если трафик дорогой и не хочется его на ветер тратить, то как же не заходя на такие сайты узнать свой IP (Internet Protocol)? . да просто! написать программу, слстоящую из нескольких строчек, но в отличие от этих сайтов они ничего не грузит из интернета
Опять воспользуемся старым добрым бейсиком :)
нам потребуется: 1. сам бейсик (Visual Basic) 2. компонент Winsock control mswinsck.ocx [105.8 Kb] (cкачиваний: 32)
итак, создадим новый проект "Standart EXE". Поместим на форму текстовое поле и кнопку (ну можно и без нее, но лучше с ней, не поленитесь поставить) подключем компонент Winsock control. дважды щелкнем по форме и убираем весь код что там написан и вставляем свой:
[hide]Private Sub Command1_Click() Text1.Text = Winsock1.LocalIP End Sub
Private Sub Form_Load() Text1.Text = Winsock1.LocalIP End Sub[/hide]
где text1 и command1 - названия ваших объектов. по умолчанию они называются именно так. запускаем и любуемся на свой IP опять же для ленивых готовый проект: ip.rar [2.74 Kb] (cкачиваний: 99)
Что-то не получается? Не понятна какая-то часть кода? Напишите комментарий об этом и мы обязательно Вам все объясним! Обязательно напишите отзыв о программе / учебнике. Для выражения благодарностей есть кнопка:
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
. да просто! написать программу, слстоящую из нескольких строчек, но в отличие от этих сайтов они ничего не грузит из интернета 
