Вниз
Скачать: CL | DM;

Мониторинг системы   Найти похожие ветки 

← →
#Мастер#   (2004-10-09 18:43) [0]

Создаю программу, которая последовательно записывает в файл все действия пользователя(работа с мышью, с клавиатурой, запуск программ, системные команды, работа с интернет, работа с файлами и реестром и т.д.),т.е. всё, что пользователь делает всё фиксируется в специальном файле, а также делает скриншоты запущенных программ. Затем в этой программе можно будет в графическом виде просмотреть, "глазами пользователя" все его действия в определённый момент времени. Как можно осуществить этот мониторинг. И ещё, как можно эмулировать рабочий стол в Image, т.е. как соотнести координаты мыши, записанные в файл относительно всего экрана в поле Image. Заранее спасибо!


← →
kaZaNoVa ©   (2004-10-09 18:59) [1]

ок, keylog spy форева !!!!
а по сабжу - это троян 100%  ;)))))))))

посмотри, как это реализовано в Handy Keylogger -  я как-то его юзал ...


← →
kaZaNoVa ©   (2004-10-09 19:04) [2]

скриншот (с возможностями уменьшения)
program Project1;

uses
Windows,Kol;

Const p=1;
Var
bmp,bmp2: PBitmap;
FileName:string;

r1,r2:trect;
{$R *.res}

function ScreenWidth:Integer;
begin
 Result := GetSystemMetrics(SM_CXSCREEN);
end;
function ScreenHeight:Integer;
begin
 Result := GetSystemMetrics(SM_CYSCREEN);
end;

begin
if ParamCount<>1 then
begin
FileName:=Paramstr(0);
delete(FileName,Length(FileName)-3,4);
FileName:=FileName+".bmp"
end else
FileName:=Paramstr(1);
bmp:=NewBitmap(0,0);
bmp2:=NewBitmap(0,0);
bmp.Height := ScreenHeight;
bmp.Width  := ScreenWidth;

bmp2.Height := ScreenHeight div p;
bmp2.Width  := ScreenWidth div p;

BitBlt(bmp.Canvas.Handle, 0, 0, ScreenWidth, ScreenHeight, GetDC(GetDesktopWindow), 0, 0, SRCCopy);
//bmp.SaveToFile(FileName);

r1.Left:=0; r2.Left:=0;
r1.Top:=0;  r2.Top:=0;

r1.Right:=ScreenWidth;
r1.Bottom:=ScreenHeight;

r2.Right:=ScreenWidth div p;
r2.Bottom:=ScreenHeight div p;

bmp2.CopyRect(r2,bmp,r1);
bmp2.SaveToFile(FileName);

bmp.Free;    bmp2.Free;
end.


← →
#Мастер#   (2004-10-12 18:17) [3]

Спасибо,kaZaNoVa!!! Но можно более подробно... keylog spy - это программа с исходниками или как?


← →
kaZaNoVa ©   (2004-10-12 18:39) [4]

#Мастер#   (12.10.04 18:17) [3]
keylog spy это клавиатурный шпион - сам пишешь ..  или готовый ищешь ...


← →
#Мастер#   (2004-10-13 21:15) [5]

kaZaNoVa, Скинь ссылочку пожалуйста на keylogspy


← →
XProger ©   (2004-10-13 22:47) [6]

Вешай Hook на мышь и клаву. На форме есть топики на эту тему.


← →
#Мастер#   (2004-10-14 16:27) [7]

Спасибо всем!!!


← →
#Мастер#   (2004-10-17 18:28) [8]

Попдробнее!



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c
3-1099128141
Hmm
2004-10-30 13:22
2004.11.28
Excel таблица в Delphi. Редактирование, удаление, поиск ???


6-1095420604
Softal
2004-09-17 15:30
2004.11.28
Ssh


8-1093899182
AlexZ
2004-08-31 00:53
2004.11.28
Где бы почитать про GDI, кроме Win32P sR


14-1100415869
YurikGL
2004-11-14 10:04
2004.11.28
jpeg-троян


3-1098110205
SH
2004-10-18 18:36
2004.11.28
DBListBox не отображает данные




   Наверх