dephi 怎样每隔十秒让电脑自动按回车键的程序怎么写

Question

dephi 怎样每隔十秒让电脑自动按回车键的程序怎么写?大概意思是..我点开始这个程序就开始运行,每隔十秒钟就自动按回车键...请大虾们给点源码共享共享!!!!

Answer 1

用一定时器,10s执行一次
keybd_event(VK_RETURN, $a ,0,0);

Answer 2

keybd_event(vk_return,mapvirtualkey(vk_return,0),0,0);//按下键
keybd_event(vk_return,mapvirtualkey(vk_return,0),KEYEVENTF_KEYUP,0);//释放键

Answer 3

如果我要按Y键怎么写.请详细点..谢谢
keybd_event(vk_return,mapvirtualkey(vk_return,0),0,0);//按下键 
keybd_event(vk_return,mapvirtualkey(vk_return,0),KEYEVENTF_KEYUP,0);//释放键
这个我试了不过他一直是显示按的是回车键.如果要改成按Y,该如何弄?

Answer 4

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  keybd_event(vk_return,mapvirtualkey(vk_return,0),0,0);//按下键
  keybd_event(vk_return,mapvirtualkey(vk_return,0),KEYEVENTF_KEYUP,0);//释放键
end;
将timer的Interval的值设置为10000就OK了 

Answer 5

在两个keybd_event中间增加一个20毫秒延时语句，效果较好。sleep(20);