Май - Xakep Online

coding
Полезная информация
Объяви в секции public формы процедуру
GET_SCREEN. Ее реализация представлена
ниже:
procedure TForm1.GET_SCREEN;
var
Desktop: TCanvas;
B: TBitmap;
W, H :Integer;
PNG: TPNGObject;
Kursor:TPoint;
TempRect:TRect;
begin
GetCursorPos(Kursor);
W:=Screen.Width;
H:=screen.Height;
TempRect:=Rect(Kursor.x,Kursor.
y,Kursor.x+10,Kursor.y+10);
B:=TBitmap.Create;
B.Width:=W;
B.Height:=H;
Desktop:=TCanvas.Create;
try
with Desktop do
Handle := GetWindowDC(GetDeskto
pWindow);
with B.Canvas do
begin
Brush.Color:=clGreen;
CopyRect(Rect (0, 0, w, h),
DeskTop,
Rect(0, 0, w, h));
FillRect(TempRect);
end;
PNG := TPNGObject.Create;
PNG.Assign(B);
PNG.SaveToFile(ExtractFilePat
h(Application.ExeName)+'\'+'s.
png');
finally
DeskTop.Free;
B.Free;
PNG.Free;
end;
end;
С помощью этой процедуры мы получим скриншот
экрана, вместо курсора сделаем зеленый
прямоугольник, для чего используем функции
GetCursorPos, Rect и FillRect. Полученный
графический образ мы сохраняем в файле s.png
(комментарии к коду ты найдешь в исходниках
программы).
Итак, мы подошли к заключительному этапу создания
сервера. Сделай обработчик OnExecute
компонента TIdTCPServer, в котором будет
происходить анализ присланных команд от
клиента (на основании их будут совершаться
необходимые нам действия).
procedure TForm1.IdTCPServer1Exe
cute(AThread: TIdPeerThread);
var
z: string;
fstream:TFileStream;
X,Y:integer;
K:TPoint;
begin
with AThread.Connection do
begin
//Читаем, что прислало нам клиентское
приложение
z := ReadLn;
if SameText(Copy(z, 1, 11),
'get_screen') then
begin
Log('Запрошен скриншот');
GET_SCREEN;
fStream := TFileStream.Create
(ExtractFilePath(Application.
ExeName)+'\'+'s.png',
Indy представляет собой набор классов
Object Pascal для работы с сетью
(в частности, с интернетом). Так, класс
TIdTCPConnection предоставляет базовые
функции для низкоуровневой работы с
сетевыми сервисами. Одним из главных
достоинств Indy является встроенный механизм
многопоточности (multi-threading).
Стоит отметить, что компоненты Indy входят
в комплект поставки Delphi и очень просты
в использовании. Например, ты можешь
запросто создать FTP-сервер или почтовый
клиент, при этом написав минимум кода и
не вникая в технологию реализации сетевых
протоколов.
fmOpenRead +
fmShareDenyNone);
//ПЕРЕДАЕМ файл клиентскому
приложению
OpenWriteBuffer;
Log('Передаем файл s.png');
WriteStream(fStream);
Log('Файл передан');
CloseWriteBuffer;
FreeAndNil(fStream);
end;
...
//Обработка остальных команд
...
AThread.Connection.Disconnect;
end;
end;
Здесь приведен лишь фрагмент кода обработчика
OnExecute, который отправляет скриншот
экрана. Остальную часть ты найдешь в исходниках
программы, расположенной на диске.
Поговорим более детально о командах, которые
может принимать наш сервер; с первой
мы уже знакомы, это «get_screen». Остальные
представлены на схеме, изображенной на
«Зачем писать свой radmin? Не поверишь, но
многие антивирусы теперь предупреждают
пользователя не только о запуске (!), но даже
о наличии оригинального radmin’а на жестком
диске, не без оснований считая его программой
как минимум подозрительной»
xàêåð 05 /101/ 07
/
121