Пингвины - форева

← →
Agent13 © (2004-01-22 15:41) [40]

> Виктор Щербаков © (22.01.04 15:28) [36]

Что-то мне первая версия больше понраваилась :)))

← →
Style © (2004-01-22 16:49) [41]

Жук © (22.01.04 14:51) [35]
Можно наваять программу, чтоб она щёлкала битой через определённое время, таким образом определим максимальный полёт пингвина :-)

Фигня - при одиних и тех же зачениях результаты разные получаются :(

var
t1,t2: integer;
tc: cardinal;

begin
t1 := StrToINt(ed_pause.text);
t2 := StrToINt(ed_kick.text);

tc := gettickcount;
repeat
if((gettickcount - tc) > t1) then
begin
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,0,0,0,0);
break;
end;
until false;

tc := gettickcount;
repeat
if((gettickcount - tc) > t2) then
begin
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,0,0,0,0);
break;
end;
until false;

← →
fag2000 (2004-01-22 16:51) [42]

http://www.agent.varya.ru/pingw.htm

← →
Alex_Bredin © (2004-01-22 17:54) [43]

интересно
все серваки с пингвинами заснули
наверно Интерпол

← →
Polevi © (2004-01-23 16:27) [44]

http://www.auto.ru/wwwboards/spb-club/2011/625325.shtml

← →
uuu (2004-01-23 17:36) [45]

наш ответ пингвину
http://vadfe.h11.ru/pingvin23.htm

Вот вся правда о пингвинах
http://www.livejournal.com/community/penguin_reload/

Пингвины - форева Найти похожие ветки