首页 > 代码库 > 用Delphi模拟键盘输入

用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在线帮助,并多多动手实践。

附:更详细的键值表:

常数名称十六进制值十进制值对应按键
VK_LBUTTON011鼠标的左键
VK_RBUTTON022鼠标的右键
VK-CANCEL033Ctrl+Break(通常不需要处理)
VK_MBUTTON044鼠标的中键(三按键鼠标)
VK_BACK088Backspace键
VK_TAB099Tab键
VK_CLEAR0C12Clear键(Num Lock关闭时的数字键盘5)
VK_RETURN0D13Enter键
VK_SHIFT1016Shift键
VK_CONTROL1117Ctrl键
VK_MENU1218Alt键
VK_PAUSE1319Pause键
VK_CAPITAL1420Caps Lock键
VK_ESCAPE1B27Ese键
VK_SPACE2032Spacebar键
VK_PRIOR2133Page Up键
VK_NEXT2234Page Domw键
VK_END2335End键
VK_HOME2436Home键
VK_LEFT2537LEFT ARROW 键(←)
VK_UP2638UP ARROW键(↑)
VK_RIGHT2739RIGHT ARROW键(→)
VK_DOWN2840DOWN ARROW键(↓)
VK_Select2941Select键
VK_PRINT2A42 
VK_EXECUTE2B43EXECUTE键
VK_SNAPSHOT2C44Print Screen键(抓屏)
VK_Insert2D45Ins键(Num Lock关闭时的数字键盘0)
VK_Delete2E46Del键(Num Lock关闭时的数字键盘.)
VK_HELP2F47Help键
VK_030480键
VK_131491键
VK_232502键
VK_333513键
VK_434524键
VK_535535键
VK_636546键
VK_737557键
VK_838568键
VK_939579键
VK_A4165A键
VK_B4266B键
VK_C4367C键
VK_D4468D键
VK_E4569E键
VK_F4670F键
VK_G4771G键
VK_H4872H键
VK_I4973I键
VK_J4A74J键
VK_K4B75K键
VK_L4C76L键
VK_M4D77M键
VK_N4E78N键
VK_O4F79O键
VK_P5080P键
VK_Q5181Q键
VK_R5282R键
VK_S5383S键
VK_T5484T键
VK_U5585U键
VK_V5686V键
VK_W5787W键
VK_X5888X键
VK_Y5989Y键
VK_Z5A90Z键
VK_NUMPAD06096数字键0键
VK_NUMPAD16197数字键1键
VK_NUMPAD26298数字键2键
VK_NUMPAD36299数字键3键
VK_NUMPAD464100数字键4键
VK_NUMPAD565101数字键5键
VK_NUMPAD666102数字键6键
VK_NUMPAD767103数字键7键
VK_NUMPAD868104数字键8键
VK_NUMPAD969105数字键9键
VK_MULTIPLY6A106数字键盘上的*键
VK_ADD6B107数字键盘上的+键
VK_SEPARATOR6C108Separator键
VK_SUBTRACT6D109数字键盘上的-键
VK_DECIMAL6E110数字键盘上的.键
VK_DIVIDE6F111数字键盘上的/键
VK_F170112F1键
VK_F271113F2键
VK_F372114F3键
VK_F473115F4键
VK_F574116F5键
VK_F675117F6键
VK_F776118F7键
VK_F877119F8键
VK_F978120F9键
VK_F1079121F10键
VK_F117A122F11键
VK_F127B123F12键
VK_NUMLOCK90144Num Lock 键
VK_SCROLL91145Scroll Lock键
    
上面没有提到的:(都在大键盘)   
VK_LWIN 91左win键
VK_RWIN 92右win键
VK_APPS 93右Ctrl左边键,点击相当于点击鼠标右键,会弹出快捷菜单
  186;(分号)
  187=键
  188,键(逗号)
  189-键(减号)
  190.键(句号)
  191/键
  192`键(Esc下面)
  219[键
  220\键
  221]键
  222‘键(引号)

delphi虚拟键码对应关键

VK_LBUTTON鼠标左键

VK_RBUTTON鼠标右键

VK_CANCEL控制+休息

VK_MBUTTON鼠标中键

VK_BACK Backspace键

VK_TAB Tab键

VK_CLEAR清除主要

VK_RETURN Enter键

VK_SHIFT Shift键

VK_CONTROL Ctrl键

VK_MENU Alt键

VK_PAUSE暂停关键

VK_CAPITAL Caps Lock键

VK_KANA可与输入法

VK_HANGUL可与输入法

VK_JUNJA可与输入法

VK_FINAL可与输入法

VK_HANJA可与输入法

VK_KANJI可与输入法

VK_CONVERT可与输入法

VK_NONCONVERT可与输入法

VK_ACCEPT可与输入法

VK_MODECHANGE可与输入法

VK_ESCAPE Esc键

VK_SPACE空间酒吧

VK_PRIOR页键

VK_NEXT下一页关键

VK_END END键

VK_HOME主页关键

VK_LEFT左箭头键

VK_UP向上键

VK_RIGHT右箭头键

VK_DOWN下箭头键

VK_SELECT选择关键

VK_PRINT打印键(键盘的具体)

VK_EXECUTE执行关键

VK_SNAPSHOT Print Screen键

VK_INSERT插入关键

VK_DELETE Delete键

VK_HELP帮助关键

VK_LWIN左Windows键(微软键盘)

VK_RWIN右Windows键(微软键盘)

VK_APPS应用关键(微软键盘)

VK_NUMPAD0 0键(数字键盘)

VK_NUMPAD1 1键(数字键盘)

VK_NUMPAD2 2键(数字键盘)

VK_NUMPAD3 3键(数字键盘)

VK_NUMPAD4 4键(数字键盘)

VK_NUMPAD5 5键(数字键盘)

VK_NUMPAD6 6键(数字键盘)

VK_NUMPAD7 7键(数字键盘)

VK_NUMPAD8 8键(数字键盘)

VK_NUMPAD9 9键(数字键盘)

VK_MULTIPLY多键(数字键盘)

VK_ADD添加键(数字键盘)

VK_SEPARATOR分离键(数字键盘)

VK_SUBTRACT减去键(数字键盘)

VK_DECIMAL小数点键(数字键盘)

VK_DIVIDE鸿沟键(数字键盘)

VK_F1 F1键

VK_F2 F2键

VK_F3 F3的关键

VK_F4 F4键

VK_F5 F5键

VK_F6 F6键

VK_F7 F7键

VK_F8 F8键

VK_F9 F9键

VK_F10 F10键关键

VK_F11 F11键

VK_F12 F12键

VK_F13 F13键

VK_F14 F14键

VK_F15 F15键

VK_F16 F16键

VK_F17 F17键

VK_F18 F18键

VK_F19 F19键

VK_F20 F20键

VK_F21 F21键

VK_F22 F22键

VK_F23 F23键

VK_F24 F24键

VK_NUMLOCK数Lock键

VK_SCROLL滚动Lock键

VK_LSHIFT左Shift键(仅用于GetAsyncKeyState和GetKeyState )

VK_RSHIFT右Shift键(仅用于GetAsyncKeyState和GetKeyState )

VK_LCONTROL左Ctrl键(仅用于GetAsyncKeyState和GetKeyState )

VK_RCONTROL右Ctrl键(仅用于GetAsyncKeyState和GetKeyState )

VK_LMENU左Alt键(仅用于GetAsyncKeyState和GetKeyState )

VK_RMENU右Alt键(仅用于GetAsyncKeyState和GetKeyState )

VK_PROCESSKEY工艺关键

VK_ATTN经办关键

VK_CRSEL CrSel关键

VK_EXSEL ExSel关键

VK_EREOF擦除EOF分析关键

VK_PLAY发挥关键

VK_ZOOM变焦关键

VK_NONAME保留以供将来使用

VK_PA1 PA1关键

VK_OEM_CLEAR清除主要标签数: 1 “ F14键

VK_F15 F15键

VK_F16 F16键

VK_F17 F17键

VK_F18 F18键

VK_F19 F19键

VK_F20 F20键

VK_F21 F21键

VK_F22 F22键

VK_F23 F23键

VK_F24 F24键

VK_NUMLOCK数Lock键

VK_SCROLL滚动Lock键

VK_LSHIFT左Shift键(仅用于GetAsyncKeyState和GetKeyState )

VK_RSHIFT右Shift键(仅用于GetAsyncKeyState和GetKeyState )

VK_LCONTROL左Ctrl键(仅用于GetAsyncKeyState和GetKeyState )

VK_RCONTROL右Ctrl键(仅用于GetAsyncKeyState和GetKeyState )

VK_LMENU左Alt键(仅用于GetAsyncKeyState和GetKeyState )

VK_RMENU右Alt键(仅用于GetAsyncKeyState和GetKeyState )

VK_PROCESSKEY工艺关键

VK_ATTN经办关键

VK_CRSEL CrSel关键

VK_EXSEL ExSel关键

VK_EREOF擦除EOF分析关键

VK_PLAY发挥关键

VK_ZOOM变焦关键

VK_NONAME保留以供将来使用

VK_PA1 PA1关键

VK_OEM_CLEAR清除主要

用Delphi模拟键盘输入