Первый раз залез на жж, стало интересно. Выходные, делать нечего, поползал по контактику, наткнулся на интересное приложение. Суть в том, чтобы сделать наибольшее количество кликов за 30 секунд, есть свой топ10, в нём сидит народ у которых количество кликов колеблется от 1500 до 1509, ладно, как человек, недавно освоивший Delphi на началах, решил попробовать...
(В принципе абсолютно ничего сложного, и тем хоть чуть-чуть владеет Delphi дальше читать будет даже не интересно).
Быстро зарядил новое приложение, две кнопочки, по первой выполняется процедура, которая определяет координату, куда надо будет кликать, вторая собственно запускает само накликивание.
Переходим к первой кнопочке, просим юзера указать нам, куда именно надо кликать:
Код:
...
var a:tpoint;
begin
sleep(1500);
getcursorpos(a);
x1:=a.x; y1:=a.y;
label1.Caption:='Координаты запомнены';
end;
...
x1,y1 объявлены как глобальные переменны, задержечку поставил, чтобы успеть навести мышку на место клика, держу там, и всё готово.
Ну а дальше всё еще проще, жмем кнопочку "Старт!" и....
Код:
...
var i:integer;
begin
SetCursorPos(x1,y1);
for i:=1 to 5000 do begin
mouse_event(MOUSEEVENTF_LEFTDOWN,x1,y1,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,x1,y1,0,0);
sleep(3);
end;
...
lmikle: Оформение постов никто не отменял!!!
Вобщем задержка ( sleep() ) и количество шагов в цикле подбирается вручную, т.к., обрабатываются не все клики, часть из них уходит "в молоко". Да и при равных настройках каждый раз программа выдает разные значения с разностью в +-10 кликов. В самом приложении стоит какое-то ограничение, после какой-то определенной цифры, такое, что всё что выше обнуляется.
В итоге имеем первое место в приложении, ну и море ребят 10-15 лет, которые с нетерпением хотят узнать, как же ты это сделал
http://justforfun27.livejournal.com/579.html