Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Мережі";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

Список IP-адрес в мережі Знайти схожі гілки


Kalishenko   (2002-10-28 20:42) [0]

Помогите !!! Потрібно отримати список всіх IP-адрес і імен машин в локальній мережі. (Бажано з прикладом).



izhalex   (2002-10-29 12:13) [1]

Лови пример поиска всех тачек в лс

Function FillNetLevel(xxx: PNetResource; list: TStrings) : Word;
тип
PNRArr = ^TNRArr;
TNRArr = array [0..59] of TNetResource;
Кожен
x: PNRArr;
tnr: TNetResource;
I : integer;
EntrReq,
SizeReq,
twx: Cardinal;
WSName: string;
починати
Result := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,
0, xxx, twx);
If Result = ERROR_NO_NETWORK Then Exit;
if Result = NO_ERROR then
begin
New(x);
EntrReq := 1;
SizeReq := SizeOf(TNetResource)*59;
while (twx <> 0) and
(WNetEnumResource(twx, EntrReq, x, SizeReq) <> ERROR_NO_MORE_ITEMS) do
begin
For i := 0 To EntrReq - 1 do
begin
Move(x^[i], tnr, SizeOf(tnr));
case tnr.dwDisplayType of
RESOURCEDISPLAYTYPE_SERVER:
begin
if tnr.lpRemoteName <> "" then
WSName:= tnr.lpRemoteName
else WSName:= tnr.lpComment;
list.Add(Copy(WSName,3,Length(WSName)));
Application.ProcessMessages;
end;
else FillNetLevel(@tnr, list);
end;
end;
end;
Dispose(x);
WNetCloseEnum(twx);
end;
end;

вызов :

CheckListBox1.Items.Clear;
xxx := nil;
FillNetLevel(xxx, CheckListBox1.Items);



сторінки: 1 вся гілка

Форум: "Мережі";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.56 MB
Час: 0.106 c
6-74879
Lefan
2002-10-28 09:19
2002.12.23
перевірка сторінки перед закачуванням ...


1-74700
Igor_
2002-12-11 18:17
2002.12.23
використання динамічного масиву як члена класу


3-74583
Gaber
2002-12-04 15:26
2002.12.23
файли Exel


4-75053
RETAND
2002-11-10 22:25
2002.12.23
Як в стандартне меню додати градієнт


1-74715
Альфред
2002-12-12 11:36
2002.12.23
Як вийти з циклу після натискання клавіші





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська