02.09.2012, 16:13
|
|
Администратор
|
|
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
|
|
[ Исходник ] - Easy point recorder by Cynic
Ник: CynicRus
E-mail: CynicRus@gmail.com
Описание исходника: Easy point recorder, пишет координаты клика мыши в окне (либо глобальные, либо окна) и генерирует на основе сего Pascal Script код. Написано на Delphi XE.
Пример сгенерированного кода:
Код:
TPA:=[Point(431,282),Point(543,377),Point(654,519),Point(765,618)];
WaitTimes:=[655,765,655,1310];
PointColors:=[4294967295,4294967295,4294967295,4294967295,4294967295];
for i := 0 to high (TPA) do
begin
Mouse(TPA[i].x, TPA[i].y, 2, 2, true);
wait(WaitTimes[i]+(((WaitTimes[i]+Random(20))-WaitTimes[i])*Random(5)));
end;
|