Виртуальные клавиши мыши

[ego30]

В приложение контакта лицемере за каждую оценку тебе дают энергию )
вот я устал жать одну и ту же клавишу и хочу виртуально ее нажимать )) с клавиатурой все получается вирт клавиши работают, а с мышкой не получается.
вот часть кода :

procedure rrr(key:byte);
begin
     keybd_event(key, 0, 0, 0); //Нажатие клавиши key 
     keybd_event(key, 0, KEYEVENTF_KEYUP, 0); //Отпускание клавиши key 
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
rrr(VK_LBUTTON); // собственно сам вызов функции 
end;

[Пепел Феникса]

а голова на плечах есть?
keybd=KeyBoarD=клавиатура

есть функции SendInput,mouse_event

[ego30]

Что то я туплю )