VPF::кто лазит по моему компу - Форум программистов

_pussbb

Дата 22.7.2007, 22:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

хочу сделать себе маленкую прогу которая бы фиксировала всех по локальной сети кто залез в мой комп.

jonie

Дата 23.7.2007, 00:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 5613
Регистрация: 21.8.2005
Где: Владимир

Репутация: 5
Всего: 118

Делай, мы против не будем.

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

Что-то не поняли? -> Напейтесь до зеленых человечков... эта сверхцивилизация Вам поможет...

zkv

Дата 23.7.2007, 01:58 (ссылка)

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

Загрузка ...

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

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

Цитата(jonie @ 23.7.2007, 00:19

)

Делай, мы против не будем.

а я хочу 2 миллиона долларов, и выспаться smile

JUmPER

Дата 23.7.2007, 13:49 (ссылка)

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

Загрузка ...

Бывалый

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

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

http://www.snapfiles.com/get/whoisconnected.html
?

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

Существует 10 типов людей: те, которые понимают двоичную систему, и те, которые ее не понимаютСуществует 10 типов людей: те, кто понимают троичную систему, те, кто ее не понимают и те, кто путает ее с двоичной

_pussbb

Дата 24.7.2007, 19:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

ну сделал я

Код


 NET_API_STATUS Result;
     unsigned char *buff;
  wchar_t wcServerName[MAX_COMPUTERNAME_LENGTH + 1];
  DWORD prefmaxlen = MAX_PREFERRED_LENGTH;
  DWORD entriesread;
  DWORD totalentries;
  name=LabeledEdit1->Text;
//name="PHILKA";
count=0;
   StringToWideChar(name, wcServerName, MAX_COMPUTERNAME_LENGTH );
 do {
 Result = NetSessionEnum( wcServerName, NULL, NULL, 502,
    (unsigned char**) &psi2, prefmaxlen, &entriesread,  &totalentries, NULL );
    if ( Result != ERROR_MORE_DATA ) {
  for (int i = 0; i < entriesread; ++ i)
  {
   s=WideCharToString(psi2[i].sesi502_cname);

   if (!list->Find(s,0)) {
   ++count;
    list->Add(s);
   item=    lw->Items->Add();
    item->Caption=DateTimeToStr(Now());
    item->SubItems->Add(s);
    ballon+="IP:"+s+" Name:"+WideCharToString(psi2[i].sesi502_username)+'\n';
    item->SubItems->Add(WideCharToString(psi2[i].sesi502_username));
    item->SubItems->Add(WideCharToString(psi2[i].sesi502_cltype_name));
    item->SubItems->Add(WideCharToString(psi2[i].sesi502_transport));
    item->SubItems->Add(psi2[i].sesi502_time);
    break;
   }
   if (status) {
        ballon+="IP:"+s+" Name:"+WideCharToString(psi2[i].sesi502_username)+'\n';
    }
   }
   if ( psi2 != NULL )
   NetApiBufferFree( psi2 );
 } else { break;}
  } while (Result == ERROR_MORE_DATA ) ;
 // Form1->Caption="Число пользователей: "+IntToStr(count);
  if (count!=0 || status) {
      tray->BalloonTitle="Сейчас лазят по твоим папкам";
      tray->BalloonHint=ballon;
      tray->ShowBalloonHint();
     ballon="";
  }

а как узнать по каким ресурсам пользователь лазит

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