Odchytenie prihlásenia, odhlásenia užívateľa, zamknutia počítača, ...

Publikoval Michal Kočí dňa 05.01.2005 o 21:30 v kategórii .Net

Potreboval som logovať, kedy som si zamkol počítač (lock computer). Tým začalo moje hľadanie. Myšlienka, naprogramovať si to sám, ma síce napadla, na druhej strane sa mi nechcelo veriť, že neexistuje softvér, ktorý to zvládne. Potreboval som iba dátum a čas každého zamknutia počítača. Na moje obrovské počudovanie, som takýto softvér nenašiel. Takže začalo pátranie, ako odchytiť udalosť zamknutia počítača...

Celkom rýchlo som sa dopracoval k informácii, že to čo potrebujem je, spraviť Windows Notification Package. Jedná sa dll knižnicu, ktorá exportuje metódy - metódy, ktoré zavolá operačný systém (Win2000 a vyšší) a tak mi oznámi, že došlo k udalosti. Túto knižnicu treba zaregistrovať (cez registry systému) a potom proces winlogon.exe, ktorý zastrešuje prihlasovanie a odhlasovanie, bude volať metódy tejto knižnice.

Winlogon volá tie exportované metódy z tohto dll, k odberu svoje dll prihlásite - nemusíte tak vytvoriť metódu pre každú udalosť, ale iba pre tie, o ktoré máte záujem. Navyše, Vami exportované metódy môžu mať ľubovoľný názov práve preto, že pri ich registrácii do registry systému zadávate meno tejto metódy.

A k odberu akých udalostí sa môžete prihlásiť? Tak napríklad:

  • prihlásenie a odhlásenie užívateľa
  • zamknutie a odomknutie počítača
  • spustenie a ukončenie šetriča obrazovky

Plus zopár ďaľších. Ich presný zoznam nájdete tu.

Všetky metódy majú rovnakú signatúru, nevracajú žiadnu hodnotu (vracajú void) a prijímajú ukazovateľ na štruktúru WLX_NOTIFICATION_INFO s doplňujúcimi informáciami (napríklad login prihlásujúceho/odhlasujúceho sa užívateľa, ...).

Tým, že je potreba aby dll exportovalo metódy, použitie .Net Frameworku neprichádzalo v úvahu. Nie že by sa také dll nedalo vytvoriť, ale treba to obchádzať dissasmblovaním do MSIL a spätným assemblovaním, čo som nepovažoval za vhodné. Takže voľba padla na Delphi. S tým sa vynoril ďaľší problém - v MSDN je síce popísaná štruktúra WLX_NOTIFICATION_INFO, ale pre jazyk C a nie pre Delphi. Naštastie, Google ozaj nájde všetko a takisto aj prepis štruktúry WLX_NOTIFICATION_INFO do Delphi.

Takže, treba už len vytvoriť spomínané dll, exportujúce metódy, ktoré neskôr zaregistrujeme v registroch systému. Ako na registráciu je opäť popísané v MSDN. Registrované dll treba umiestniť do system32 adresára. Dll, ktoré bude odchytávať iba udalosť zamknutia počítača môže vyzerať nasledovne:

library WinLogonSpy;
uses Windows, SysUtils;
{$R *.res}
type
  PFNMSGECALLBACK = function (bVerbose: BOOL; 
    lpMessage: PWideChar): DWORD; stdcall;
  {$EXTERNALSYM PFNMSGECALLBACK}
  TFnMsgeCallback = PFNMSGECALLBACK;
  PWLX_NOTIFICATION_INFO = ^WLX_NOTIFICATION_INFO;
  {$EXTERNALSYM PWLX_NOTIFICATION_INFO}
  _WLX_NOTIFICATION_INFO = record
    Size: ULONG;
    Flags: ULONG;
    UserName: PWideChar;
    Domain: PWideChar;
    WindowStation: PWideChar;
    hToken: THandle;
    hDesktop: HDESK;
    pStatusCallback: PFNMSGECALLBACK;
  end;
  {$EXTERNALSYM _WLX_NOTIFICATION_INFO}
  WLX_NOTIFICATION_INFO = _WLX_NOTIFICATION_INFO;
  {$EXTERNALSYM WLX_NOTIFICATION_INFO}
  TWlxNotificationInfo = WLX_NOTIFICATION_INFO;
  PWlxNotificationInfo = PWLX_NOTIFICATION_INFO;
procedure LogMsg(const Msg: string);
var
  f: TextFile;
  s: string;
begin
  s := 'c:\winlogon.log';
  try
    AssignFile(f, 'c:\winlogon.log');
    if(FileExists(s)) then
    begin
      Append(f);
    end else
    begin
      Rewrite(f);
    end;
                
    WriteLn(f, FormatDateTime('dd.mm.yyyy hh:nn:ss', 
      Now()), ' : ', Msg);
    CloseFile(f);
  except
  end;
end;
procedure LogEvent(const EventType: string; const PInfo: PWLX_NOTIFICATION_INFO); begin try if ((pInfo <> nil) and (pInfo^.UserName <> nil)) then begin LogMsg(EventType + ' : ' + pInfo^.UserName); end else begin LogMsg(EventType + ' : Unknown user'); end; except on Exception do LogMsg(EventType + ' : exception'); end; end;
procedure OnLock(pInfo: PWLX_NOTIFICATION_INFO); stdcall; begin LogEvent('Lock', pInfo); end;
exports OnLock;
begin end.

Dll má metódu OnLock, ktorú zaregistrujeme aby obsluhovala udalosť Lock, ktorá nastane pri zamknutí počítača. Táto zavolá metódu LogEvent (ktorá zavolá LogMsg). Ich cieľom je zapísať dátum a čas udalosti spolu s názvom udalosti a loginom prihláseného užívateľa.

Po skompilovaní kódu ho zaregistrujeme v registroch, reg súbor by mohol vyzerať nasledovne (prvé dva riadky tvoria v skutočnosti jeden riadok):

REGEDIT4
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
     NT\CurrentVersion\Winlogon\Notify\winlogonspy]
"Asynchronous"=dword:00000000
"Impersonation"=dword:00000000
"DllName"=hex(2):57,69,6e,4c,6f,67,6f,6e,53,70,79,2e,64,6c,6c,00
"Lock"="OnLock"

A nasleduje reštart počítača. Hneď po reštarte si proces winlogon.exe nahrá naše dll do svojho adresného priestoru a bude volať vami zaregistrované metódy pri nastaní požadovaných udalostí. Z tohto pramení jeden veľmi dôležitý fakt - ak nastane vynímka v niektorej z Vašich metód, spadne celý winlogon.exe proces a zobere so sebou celý windows. Takže rozhodne nezabudnite try/except blokmi ošetrovať vynímky.

Že je to dôležité som sa presvedčil aj ja sám. Ošetrenie som nedal a kvôli hlúpej, začiatočníckej programátorskej chybe (zabudol som kontrolovať existenciu súboru, do ktorého som chcel pridávať text), ktorú som si bohužial uvedomil až v momente, keď mi bootoval systém sa hneď po prihlásení spustila moja udalosť pre prihlásenie užívateľa, spôsobila vynímku a zhodila celý systém... V tom momente som bol ozaj vďačný Microsoftu za bootovateľné CD obsahujúce Recovery Console :)

Mohlo by ťa tiež zaujímať

Páčil sa ti príspevok?

Zdieľaj príspevok alebo si ho odlož na neskôr

Sleduj ma

Ak nechceš premeškať príspevky ako je tento, sleduj ma na Twitteri, alebo ak máš RSS čítačku, môžeš sledovať môj RSS kanál.

Komentáre

K tomuto článku nie su pridané žiadne komentáre.

Pridať komentár

Máš niečo zaujímavé povedať k článku? Pridaj to k článku ako komentár. Spam, reklamu alebo inak nerelevantné komentáre okamžite mažem.

Pridanie komentára sa nepodarilo. Oprav si prosím chyby.