Текущий архив: 2003.11.27;
Скачать: 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 вся ветка
Текущий архив: 2003.11.27;
Скачать: CL | DM;
Память: 0.52 MB
Время: 0.01 c
