Скачать: CL | DM;

Поиск компьютеров   Найти похожие ветки 

← →
Rafl   (2004-10-12 13:10) [0]

Каким образом можно найти в локалной сети все компьютеры, которые в данный момент выключены.

---

← →
Дмитрий Ботвин   (2004-10-12 13:36) [1]

Если компьютеры выключены как же ты их собираешься найти в сети??? :-)))

---

← →
123 ©   (2004-10-13 03:00) [2]

Удалено модератором

---

← →
piople ©   (2004-10-13 05:34) [3]

Поищи на форуме, тут уже 100 тримилионтрионов об этом спрашивали!

---

← →
demidov   (2004-11-05 11:43) [4]

Найди какие включены, остальные, значит, выклчены.:)

---

← →
noname:) ©   (2004-11-05 15:02) [5]

Берёщь 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 у тебя будут добавлятся адреса включённых компьютеров

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c