[qwak]

Привет всем!
Возник такой вопрос, что и не знаю в какой раздел написать...
Как написать программу, которая бы нажимала клавиатурные клавиши через определённые промежутки времени?
Например: F1, через 1 секунду Insert, затем 3 секунды ничего затем опять Insert, а затем всё заново, и так до бесконечности?
Я поискал по форуму, но ничего не нашёл. Заоранее спасибо.

[Vayrus]

http://www.delphisources.ru/forum/sh...9735#post29735

Пост AplicatiON

[qwak]

А примерчика нету? В том посте не совсем то, что мне нужно.

[ApplicatiOn]

Код:

var
i:byte=0;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:= i+1;
case i of
1:  
begin
keybd_event(vk_f1,0, 0,0);
 keybd_event(vk_f1,0, keyeventf_keyup,0);
timer1.interval := 3000;
end;
2:
begin

keybd_event(vk_insert,0, 0,0);
 keybd_event(vk_insert,0, keyeventf_keyup,0);

timer1.interval := 1000;
end;
//... сколько надо
end;

end;

[ApplicatiOn]

p.s. если хочешь бесконечно, то не забываем обнулять i после всех действий

[qwak]

Большое спасибо.

[Vayrus]

Для каких целей этот изврат тебе нужен, если не секрет??

[hkdkest]

издеваться над пользователями ))))

[ApplicatiOn]

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

ну автор думаю ответит

[qwak]

Да угадали флудер для игры, ещё и качать можно будет своего персонажа этим.) Кстати, как там штоб бесконечно продолжалось сделать? А то я что-то потыкал и комп завис от этой проги.)

[ZZZRF413]

А если не секрет что за игра?

[qwak]

Онлайновая...) Пиратия. Игра так это, но чот понравилось.

[GraffyM]

Это какая из них? Та что в аниме стиле или типо корсаров? кинь ссылку в ЛС =)

[ApplicatiOn]

Кстати, как там штоб бесконечно продолжалось сделать? А то я что-то потыкал и комп завис от этой проги.)

Код:

var
i:byte=0;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:= i+1;
case i of
...//твои клавиши
10: // самая последняя

begin
keybd_event(vk_insert,0, 0,0);
 keybd_event(vk_insert,0, keyeventf_keyup,0);
i:=0// обнуляем
end;

end;

в коде где происходит самое последнее нажатие - обнуляем щетчик..

[qwak]

Спасибо огромное сам бы не додумался).