Головна сторінка
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.55 MB
Час: 0.026 c
4-75063
Atamali Mamedov
2002-11-09 12:06
2002.12.23
ojidat konech programmi


6-74871
Мікель
2002-09-04 20:09
2002.12.23
скачати


1-74801
PaRL
2002-12-08 14:18
2002.12.23
Частота і ім'я процесора


1-74773
oddboy
2002-12-11 08:02
2002.12.23
Як краще на формі ввести матрицю логічних значень?


14-74939
Axis_of_Evil
2002-12-02 12:48
2002.12.23
Macintosh vs Решта





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