| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск компьютеров [D7, WinXP]
Rafl © (2004-10-12 13:10:00)Каким образом можно найти в локалной сети все компьютеры, которые в данный момент выключены.
noname:) (2004-11-05 15:02:00) [1]Берёщь Indy IdIcmpClient. Ставишь ему таймаут поменьше, добавляешь кнопку и TreeView на форму.
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 255 do
begin
idIcmpClient1.Host := '192.168.0.' + inttostr(i);
idIcmpClient1.Ping();
end;
{OnReply в Events IdIcmpClient1}
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
IdIcmpClient1.ReplyStatus.FromIpAddress <> '0.0.0.0' then TreeView1.Add(nil,IdIcmpClient1.ReplyStatus.FromIpAddress);
end;
Если всё сделал правильно то в TreeView у тебя будут добавлятся адреса включённых компьютеров
demidov (2004-11-05 11:43:00) [2]Найди какие включены, остальные, значит, выклчены.:)
piople (2004-10-13 05:34:00) [3]Поищи на форуме, тут уже 100 тримилионтрионов об этом спрашивали!
123 (2004-10-13 03:00:00) [4]Удалено модератором
Дмитрий Ботвин (2004-10-12 13:36:00) [5]Если компьютеры выключены как же ты их собираешься найти в сети??? :-)))
| |
