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

Как определить все IP адреса включенных компов в локальной сети.   Найти похожие ветки 

← →
Yrasikombo   (2003-09-29 14:56) [0]

Очень нужно!!! И пожалуйста, если можно, весь текст модуля или кидайте прямо на Yza@mail.kz

---

← →
Е-Моё имя ©   (2003-09-29 15:09) [1]

выслал, лови

---

← →
Polevi ©   (2003-09-29 15:22) [2]

и я выслал, и еще перевод на почте получи

---

← →
Yrasikombo   (2003-09-29 16:39) [3]

Спасибо за участие

---

← →
Е-Моё имя ©   (2003-09-29 16:44) [4]

всегда рады помочь

---

← →
Yrasikombo   (2003-09-29 17:01) [5]

но ящик (yza@mail.kz) пуст

---

← →
Е-Моё имя ©   (2003-09-29 17:26) [6]

канал на казахстан через австралию идет
ждать долго надо

---

← →
Yrasikombo   (2003-09-30 11:12) [7]

?????????????????

---

← →
Polevi ©   (2003-09-30 11:32) [8]

интернет сломался

---

← →
Yrasikombo   (2003-09-30 13:18) [9]

Я не втом смысле написал ????..., просто, чтобы вопрос мой не вышел из страницы, так как я жду ответа от нормального человека, который действительно знает как определить Ip адреса компов, а не от человека, который только и может лясы точить.

---

← →
Е-Моё имя ©   (2003-09-30 13:21) [10]

аааа
ну жди...

---

← →
Yrasikombo   (2003-09-30 13:39) [11]

Посмотрим, на что ты способен

---

← →
Anatoly Podgoretsky ©   (2003-09-30 13:47) [12]

Надо ходить по компьютерам и переписывать на бумажку.

---

← →
Yrasikombo   (2003-09-30 13:53) [13]

Anatoly отдохни.

---

← →
Mero   (2003-09-30 14:07) [14]

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

---

← →
Е-Моё имя ©   (2003-09-30 14:07) [15]

> [11] Yrasikombo (30.09.03 13:39)

могу копать
могу не копать

---

← →
Yrasikombo   (2003-09-30 14:15) [16]

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

---

← →
Е-Моё имя ©   (2003-09-30 14:16) [17]

> [16] Yrasikombo (30.09.03 14:15)

ок
щас найду некрофил-затейник__а, возьму лопату да начну копать...

---

← →
Yrasikombo   (2003-09-30 14:46) [18]

"Е-Моё имя" отдыхай. Надоел. Если не знаешь, то так и скажи.

---

← →
Е-Моё имя ©   (2003-09-30 14:50) [19]

Удалено модератором
Примечание: Не хами

---

← →
Verg ©   (2003-09-30 14:55) [20]

> такие вопросы раз в неделю задаются


Иногда они НЕ задаются толко раз в неделю...

---

← →
Anatoly Podgoretsky ©   (2003-09-30 15:11) [21]

Yrasikombo (30.09.03 13:53) [13]
Так ты не понял, что задача в такой постановке решения не имеет.

---

← →
Yrasikombo   (2003-09-30 17:12) [22]

Нашелся знаток. А решение то имеет. Я и без вас уже нашел.

---

← →
Е-Моё имя ©   (2003-09-30 17:15) [23]

так вот и бывает- спустился с гор, нашел решение и обратно на горы полез...

---

← →
GH@ST ©   (2003-09-30 17:19) [24]

>Е-Моё имя ©
Может с пальмы?

---

← →
Е-Моё имя ©   (2003-09-30 17:21) [25]

в kz нет пальм вроде ;))

---

← →
Palladin ©   (2003-09-30 18:12) [26]

> Yrasikombo (30.09.03 17:12) [22]

ну вот, пришел, всех послал отдыхать, и ушел...
ишь ты... наполеон...

---

← →
Yrasikombo   (2003-09-30 19:08) [27]

В великом Казахстане и гор та путем нет, одна степь, понятно.

---

← →
Woolen   (2003-10-01 10:28) [28]

> В великом Казахстане

:-))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

---

← →
Digitman ©   (2003-10-01 12:13) [29]

> Yrasikombo


а с чего ты вообще взял, что каждый компьютер в лок.сети обязан иметь IP-адрес ?

компьютер в лок.сети может как вообще не иметь оного адреса, так и иметь оных косой десяток, причем - разных)

---

← →
Fay   (2003-10-01 21:34) [30]

причём разных
8)

---

← →
Anatoly Podgoretsky ©   (2003-10-01 21:44) [31]

И невидимых снаружи

---

← →
Sirus ©   (2003-10-02 07:29) [32]

По моему вполне нормальный вопрос.
Как получить список машин в сети?

unit Main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
ComCtrls;

type
TFormMain = class(TForm)
TreeView: TTreeView;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure LoadNetResources;
procedure EnumSubResources(Items: TTreeNodes; Node: TTreeNode;
lpNetResource: PNetResource);
public
{ Public declarations }
end;

var
FormMain: TFormMain;

implementation

{$R *.DFM}

procedure TFormMain.FormCreate(Sender: TObject);
begin
LoadNetResources;
end;

procedure TFormMain.LoadNetResources;
begin
with TreeView.Items do
begin
BeginUpdate;
Clear;
Add(nil, "Вся сеть");
EnumSubResources(TreeView.Items, Item[0], nil);
EndUpdate;
end;
end;

procedure TFormMain.EnumSubResources(Items: TTreeNodes; Node: TTreeNode;
lpNetResource: PNetResource);
const
MAX_RES = 16;
type
PResources = ^TResources;
TResources = array[0..MAX_RES-1] of TNetResource;
var
hEnum: THandle;
Count: Integer;
Res: Integer;
Resources: PResources;
BufferSize: Integer;
I: Integer;
NewNode: TTreeNode;
NewNodeName: String;
begin
// Открываем доступ к перечню сетевых ресурсов
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0,
lpNetResource, hEnum);
if NO_ERROR <> Res then
Exit;
// Массив, в который читаются сетевые ресурсы
BufferSize := SizeOf(TResources);
GetMem(Resources, BufferSize);
while True do
begin
// Загружаем перечень ресурсов в массив
// Если возникла ошибка, значит, ресурсов больше нет --- покидаем
цикл
Count := MAX_RES;
Res := WNetEnumResource(hEnum, Count, Resources, BufferSize);
if (Res <> NO_ERROR) and (Res <> ERROR_MORE_DATA) then
Break;
// В противном случае копируем сетевые ресурсы в дерево
for I := 0 to Count - 1 do
begin
// Добавляем дочерний узел
if Assigned(Resources^[I].lpRemoteName) then
NewNodeName := String(Resources^[I].lpRemoteName)
else
NewNodeName := String(Resources^[I].lpComment);
NewNode := Items.AddChild(Node, NewNodeName);
// Вызываем процедуру рекурсивно для заполнения этого узла,
// если узел содержит подузлы
if (Resources^[I].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0 then
EnumSubResources(Items, NewNode, @(Resources^[I]));
end;
end;
FreeMem(Resources);
// Закрываем доступ
WNetCloseEnum(hEnum);
end;

end.

---

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

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



Память: 0.52 MB
Время: 0.018 c