VPF::Сканнер IP по порту - Форум программистов

Budy

Дата 6.11.2004, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: нет
Всего: 2

:Привет
Делаю чат. Хочу поймать узнать все IP юзеров в сети по заданному порту.
Прошу помочь

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Budy

Дата 9.11.2004, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: нет
Всего: 2

Нуже, кто-нить! Я знаю порт, как узнать на каких IP работает мой чат? smile

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

p0s0l

Дата 10.11.2004, 00:57 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 1
Всего: 112

К примеру, узнавай IP всех компов в сети (см. ФАК) и у каждого проверяй порт. Можно broadcast'ить, причём каждая прога-чат должна прислать ответ, но, имхо, это хуже ...

--------------------

С уважением, г-н Посол.

Budy

Дата 10.11.2004, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: нет
Всего: 2

Не понял, там вывод DWORD и WORD. smile

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

p0s0l

Дата 10.11.2004, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 1
Всего: 112

Код

function FillNetLevel(xxx: PNetResource; List:TStrings): Word;
Type
    PNRArr = ^TNRArr;
    TNRArr = array[0..59] of TNetResource;
Var
   x: PNRArr;
   tnr: TNetResource;
   I : integer;
   EntrReq,
   SizeReq,
   twx: THandle;
   WSName: string;
   LI:TListItem;
begin
     Result :=WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER, 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(tnr.lpRemoteName);
                    end;
                    else FillNetLevel(@tnr, list);
                   end;
                  end;
            end;
            Dispose(x);
            WNetCloseEnum(twx);
     end;
end;

// пример вызова
  FillNetLevel(nil,  Listbox1.Items);

(C) Pegas

Как перевести HostName -> IP - много раз спрашивалось...

PS:
Так чё-то посмотрел, очень медленно пашет, надо сказать (если несколько рабочих групп)...
Лучше при запуске чата посылай широковещательные пакеты, а работающие в сети чаты должны откликаться в ответ...
Можно также сделать настройку в чате, какие адреса проверять при запуске чата...

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »