АРХИВ СТАТЕЙ ЖУРНАЛА «МОЙ КОМПЬЮТЕР» ЗА 2002 ГОД

Пользователь и его тень

Все журналы \ Номер 42/213 `2002 от 21.10.2002 \ Пользователь и его тень

Денис НАЗАРЕНКО

Иногда наступает момент, когда хочется отложить работу, забыть о базах данных и немного поразвлечься. Один из способов это сделать — подшутить над любимым начальником или, по крайней мере, над кем-нибудь за соседним компьютером. В Интернете можно найти множество таких «шуточных» программок, но ведь настоящие программисты пишут такие программы сами. В функциях Windows API заложено достаточно много возможностей для реализации чувства юмора программистов. Предлагаю вам ознакомиться с некоторыми из них.

Получение и изменение координат курсора.

Для получения координат курсора используется функция:

В переменных LpPoint.x и lpPoint.y функция возвращает текущие координаты курсора относительно экрана. Во время ее вызова ваша программа необязательно должна иметь фокус ввода. Достаточно вызвать эту функцию в обработчике событий таймера, узнавать о положении курсора в независимости от того, с какой программой на данный момент работает пользователь. Это показано в Примере 1.

Для изменения координат курсора используется функция:

Как и предыдущая, эта функция позволяет управлять курсором в независимости от того, какая программа активна. Используя эти две функции, можно сделать простую программу, которая будет записывать положение курсора, а затем воспроизводить его, как это показано в Примере 2.

А вот в этой программке показано, как сделать курсор движущимся в противоположную сторону.

program Project1;
uses
 MMsystem,windows;
{$R *.RES}
var
 TimerID:Cardinal;   //идентификатор таймера
 i:integer=0;     //счетчик повторений
 X1,Y1,X2,Y2:integer; //координаты курсора
 lpPoint:TPoint;    //переменная для получения координат курсора
Procedure Timer(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD) stdcall;
begin
 if i>=20000 then   //не закрывать таймер 1мс*20000=20 секунд
  begin
   timekillEvent(TimerID); //закрытие таймера
   exit;
  end;
 GetCursorPos(lpPoint); //получение координат курсора
 //делаем так, чтобы курсор двигался в другом направлении
X1:=X2; Y1:=Y2;
 X2:=x1-(lpPoint.x-x1); Y2:=y1-(lpPoint.y-y1);
 //делаем курсор безразличным к границам экрана
 if x2<10 then x2:=GetSystemMetrics(SM_CXSCREEN)-10;
 if y2<10 then y2:=GetSystemMetrics(SM_CYSCREEN)-10;
 if x2>GetSystemMetrics(SM_CXSCREEN)-10 then x2:=10;
 if y2>GetSystemMetrics(SM_CYSCREEN)-10 then y2:=10;
 SetCursorPos(x2,y2); //устанавливаем позицию курсора
 inc(i);       //увеличиваем счетчик
end;

begin
 GetCursorPos(lpPoint); //Узнаем начальное положение курсора
 X2:=lpPoint.x; Y2:=lpPoint.y;
 //создаем мультимедийный таймер с интервалом в 1 мс
 TimerID:=timeSetEvent(1,0,@Timer,0,TIME_PERIODIC);
  while i<20000 do   //не закрывать программу, пока i меньше 20000
end.

Обратите внимание, что откомпилированная программа занимает 18 Кб. Это связано с тем, что в программе не используется модуль Forms, и вместо стандартных для Delphi screen.width и screen.height используется вызов функций API GetSystemMetrics(SM_CXSCREEN) и GetSystemMetrics(SM_CYSCREEN).

Получение информации о состоянии клавиши.

О состоянии клавиши на клавиатуре или мышке мы можем узнать из функции

Вот несколько строчек, наглядно демонстрирующих использование этой функции:

Существует еще одна функция —GetAsyncKeyState, позволяющая определить состояние кнопок. Отличается она тем, что позволяет узнать, была ли нажата нужная клавиша с момента последнего вызова этой функции. К сожалению, эта функция не работает, если клавиша была нажата вне фокуса ввода приложения. С использованием этих функций вы сможете познакомиться в Примере 4.

Имитация нажатия пользователем клавиш.

А теперь самое интересное. Оказывается, в Windows есть функции, позволяющие имитировать нажатие пользователем клавиш:

Начиная с Windows 98 и Windows NT 4.0 SP3, Microsoft рекомендует использовать функцию:

Посмотрите внимательно на приведенный ниже фрагмент программы. Процедура TypeWords позволяет добиться эффекта имитации работы пользователя на клавиатуре:

procedure Delay(seconds,Millisec:Word); //Процедура паузы
var TimeOut:TDateTime;
begin
 TimeOut:=Now+EncodeTime(0,seconds div 60,seconds mod 60,millisec);
//Чтобы программа не зависла, продолжаем обрабатывать сообщения
 while Now<TimeOut do
 Application.ProcessMessages; 
end;

procedure TypeWords(s:ansistring); //Процедура набора строки
var s2:ansistring;
   i:integer;
begin
 //Не забудьте подключить модуль ShellApi 
 s2:=UpperCase(s); //Переводим строку в верхний регистр
 for i:=1 to Length(s) do //По очереди обрабатываем каждый символ
  begin
   Delay(0,random(200)+100); //Пауза для имитации работы человека
   //Проверяем, в верхнем регистре или нет
   if (s2[i]=s[i]) and (Hi(VkKeyScan(s[i]))<>0) then
    begin
     //Если в верхнем регистре, значит, нужно «нажать» Shift
     keybd_event(VK_SHIFT,0,0,0);
     //Пауза для имитации работы человека
     Delay(0,random(100)+100);
     //Нажимаем на кнопку
     keybd_event(Lo(VkKeyScan(s[i])),0,0,0);
     //Пауза для имитации работы человека
     Delay(0,random(300));
     //Отпускаем кнопку
     keybd_event(Lo(VkKeyScan(s[i])),0,KEYEVENTF_KEYUP,0);
     //Пауза для имитации работы человека
     Delay(0,random(100)+100);
     //отпускаем Shift
     keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);
    end
   else
    begin
     //в нижнем регистре
     keybd_event(Lo(VkKeyScan(s[i])),0,0,0);
     Delay(0,random(400));
     keybd_event(Lo(VkKeyScan(s[i])),0,KEYEVENTF_KEYUP,0);
    end;
  end;
end;

Обратите внимание на то, что для набора букв в верхнем регистре необходимо нажать клавишу Shift. Точно так же следует поступать, если вам необходимо набрать комбинацию клавиш с нажатой кнопкой Ctrl. В Примере 5 показано использование этой процедуры для работы с мышкой.

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

Рекомендуем ещё прочитать:

Универсальный штемпель. (№1/172 `2002) Геннадий Тихомиров
Как я стал палиндромом. (№4/175 `2002) Зарема Сейдаметова
Универсальный штемпель. (№5/176 `2002) Геннадий Тихомиров
Любителям ORACLE на заметку. (№17/188 `2002) Олег Гопанюк
JavaScript сценарист по призванию. (№17/188 `2002) Константин Носов
Домашняя кухня: игры. (№30/201 `2002) Нет Автора
Порядочные алгоритмы. (№31/202 `2002) Владимир Ткачук
Мысли о Паскале. (№34/205 `2002) Владислав Демьянишин
Искательные алгоритмы. (№35/206 `2002) Владимир Ткачук
Идет охота на жуков. (№35/206 `2002) Руслан Ризванов

Предыдущая статья Назад К списку журналов Следующая статья