用Delphi模拟键盘输入

在Windows大行其道的今天，windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种，键盘输入控制和鼠标输入控制。有时，对于繁杂的，或重复性的操作，我们能否通过编制程序来代替手工输入，而用程序来模拟键盘及鼠标的输入呢？答案是肯定的。这主要是通过两个API函数来实现的。 　　
　　下面以Delphi为例来介绍一下如何实现这两个功能。模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_event函数。大家不用担心，在delphi里调用api函数是很方便的事。 　　
　　先介绍一下Keybd_event函数。Keybd_event能触发一个按键事件，也就是说回产生一个WM_KEYDOWN或WM_KEYUP消息。当然也可以用产生这两个消息来模拟按键，但是没有直接用这个函数方便。Keybd_event共有四个参数，第一个为按键的虚拟键值，如回车键为vk_return,　tab键为vk_tab。第二个参数为扫描码，一般不用设置，用0代替就行。第三个参数为选项标志，如果为keydown则置0即可，如果为keyup则设成“KEYEVENTF_KEYUP”，第四个参数一般也是置0即可。用如下代码即可实现模拟按下i键，其中的$49表示i键的虚拟键值：
keybd_event($49,0,0,0);
keybd_event($49,0,KEYEVENTF_KEYUP,0); ... 　　
　　
　　mouse_event最好配合setcursorpos(x,y)函数一起使用，与Keybd_event类似，mouse_event有五个参数，第一个为选项标志，为MOUSEEVENTF_LEFTDOWN时表示左键按下，为MOUSEEVENTF_LEFTUP表示左键松开，向系统发送相应消息。第二三个参数分别表示x,y相对位置，一般可设为0,0,第四五个参数并不重要，一般也可设为0,0。若要得到Keybd_event和mouse_event函数的更详细的用法，可以查阅msdn或delphi帮助。下面是关于mouse_event的示例代码：
　
setcursorpos(20,132);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); ...
　　　上面的代码表示鼠标的双击，若要表示单击，用两个mouse_event即可(一次放下，一次松开)。 　
　　　注意，不管是模拟键盘还是鼠标事件，都要注意还原，即按完键要松开，一个keydown对应一个keyup；鼠标单击　完也要松开， 不然可能影响程序的功能。 　

模拟键盘输入首先要用到一个API函数：keybd_event。
　　我们是菜鸟，所以不必具体去理解它的详细用法，只要按以下方法使用即可了！呵呵！
　　模拟按键有两个基本动作，即按下键和放开按键，所以我们每模拟一次按键就要调用两次该API函数，其方法是：
　　
　　例子1：模拟按下'A'键
　　 keybd_event(65,0,0,0);
　　 keybd_event(65,0,KEYEVENTF_KEYUP,0);
　　例子2：模拟按下'ALT+F4'键
　　 keybd_event(18,0,0,0);
　　 keybd_event(115,0,0,0);
　　 keybd_event(115,0,KEYEVENTF_KEYUP,0);
　　 keybd_event(18,0,KEYEVENTF_KEYUP,0);

　　 附：常用模拟键的键值对照表。

　　　　　　　　　　　　　　　　　　　　　　键盘键与虚拟键码对照表

　　　 　　字母和数字键　　　　 数字小键盘的键　　　　 　　功能键 　　　　　　　　其它键
　　　　　　键　　 键码　　　　　键　　 键码　　　　　　 键　　 键码 　　　　键　　　　　　键码
　　　　　　A　　　65　　　　　　 0 　　96 　　　　　　　F1 　　112 　　　　Backspace 　　　8
　　　　　　B　　　66　　　　　　 1　　 97 　　　　　　　F2 　　113　　　　 Tab 　　　　　　9
　　　　　　C　　　67 　　　　　　2 　　98 　　　　　　　F3 　　114　　　 　Clear 　　　　　12
　　　　　　D　　　68　　　　　　 3　　 99 　　　　　　　F4 　　115　　　 　Enter 　　　　　13
　　　　　　E　　　69 　　　　　　4 　　100　　　　　　　F5 　　116　　　 　Shift　　　　　 16
　　　　　　F　　　70 　　　　　　5 　　101　　　　　　　F6 　　117　　　 　Control 　　　　17
　　　　　　G　　　71 　　　　　　6　　 102　　　　　　　F7 　　118 　　 　 Alt 　　　　　　18
　　　　　　H　　　72 　　　　　　7 　　103　　　　　　　F8 　　119　　　 　Caps Lock 　　　20
　　　　　　I　　　73 　　　　　　8 　　104　　　　　　　F9 　　120　　　 　Esc 　　　　　　27
　　　　　　J　　　74 　　　　　　9　　 105　　　　　　　F10　　121　　　 　Spacebar　　　　32
　　　　　　K　　　75 　　　　　　* 　　106　　　　　　　F11　　122　　　 　Page Up　　　　 33
　　　　　　L　　　76 　　　　　　+ 　　107　　　　　　　F12　　123　　　 　Page Down 　　　34
　　　　　　M　　　77 　　　　　　Enter 108　　　　　　　-- 　　--　　　　　End 　　　　　　35
　　　　　　N　　　78 　　　　　　-　　 109　　　　　　　-- 　　-- 　　　 　Home　　　　　　36
　　　　　　O　　　79 　　　　　　. 　　110　　　　　　　--　　 -- 　　 　　Left Arrow　　　37
　　　　　　P　　　80 　　　　　　/ 　　111　　　　　　　--　　 -- 　　 　　Up Arrow　　　　38
　　　　　　Q　　　81 　　　　　　-- 　　--　　　　　　　--　　 -- 　　 　　Right Arrow 　　39
　　　　　　R　　　82 　　　　　　-- 　　--　　　　　　　--　　 -- 　　 　　Down Arrow 　　 40
　　　　　　S　　　83 　　　　　　-- 　　--　　　　　　　-- 　　-- 　　 　　Insert 　　　　 45
　　　　　　T　　　84 　　　　　　-- 　　--　　　　　　　--　　 -- 　　 　　Delete 　　　　 46
　　　　　　U　　　85 　　　　　　-- 　　--　　　　　　　-- 　　-- 　　 　　Help 　　　　　 47
　　　　　　V　　　86 　　　　　　--　　 --　　　　　　　-- 　　-- 　　 　　Num Lock 　　　 144
　　　　　　W　　　87 　　　　　　　　　
　　　　　　X　　　88 　　　　　
　　　　　　Y　　　89 　　　　　
　　　　　　Z　　　90 　　　　　
　　　　　　0　　　48 　　　　　
　　　　　　1　　　49 　　　　　
　　　　　　2　　　50 　　　　　　
　　　　　　3　　　51 　　　　　　
　　　　　　4　　　52 　　　　　　
　　　　　　5　　　53 　　　　　　
　　　　　　6　　　54 　　　　　　
　　　　　　7　　　55 　　　　　　
　　　　　　8　　　56 　　　　　　
　　　　　　9　　　57

　
　　　好了，希望本文能让你对模拟键盘和鼠标按键有个初步的了解，如果想更深入的了解其中的奥妙，可以查阅详实的msdn在线帮助，并多多动手实践。