Показать сообщение отдельно
  #1  
Старый 02.09.2012, 16:13
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 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;
Изображения
Тип файла: jpg easy-point-recorder.jpg (17.3 Кбайт, 15 просмотров)
Вложения
Тип файла: zip easy-point-recorder.zip (85.2 Кбайт, 5 просмотров)
Ответить с цитированием