用Delphi模拟键盘输入

最新推荐文章于 2023-10-11 06:41:57 发布
最新推荐文章于 2023-10-11 06:41:57 发布
阅读量1.9k 收藏 1
点赞数
分类专栏： Delphi 文章标签： delphi 输入法 scroll delete windows insert
在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-CANCEL 033Ctrl+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_LWIN91左win键
VK_RWIN92右win键
VK_APPS93右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清除主要

liujianminghero
关注
专栏目录
delphi 键盘按键模拟_了解和处理Delphi中的键盘事件
cumao2792的博客
09-12 1408
delphi 键盘按键模拟 Keyboard events, along with mouse events, are the primary elements of a user's interaction with your program. 键盘事件和鼠标事件是用户与程序交互的主要元素。 Below is information on three events that let yo...
用Delphi模拟键盘输入/鼠标点击
mahushen的专栏
11-29 1490
摘自:原创作者: 模拟键盘我们用Keybd_event这个api函数，模拟鼠标按键用mouse_event函数. Keybd_event函数能触发一个按键事件，也就是会产生一个WM_KEYDOWN或WM_KEYUP消息,一般用这两个消息来模拟一 次按键(按键的过程是:按下,然后弹起)，但是没有直接用这个函数方便。Keybd_event共有四个参数:第一个为按键的虚拟键值，如回车键为vk_re
Delphi下利用SendInput模拟鼠标键盘
期待下集是个可爱梦儿
04-21 1369
<br />前言<br />　　发了一篇《Delphi下利用WinIo模拟鼠标键盘详解》（http://programbbs.com/bbs/view12-17207-1.htm），再发一个利用SendInput模拟键盘鼠标的程序，以作对比。<br />一、SendInput<br />　　SendInput可以将指定的鼠标键盘消息插入到系统消息队列，从而实现对鼠标键盘的模拟。有很多程序对SendInput进行了屏蔽，但不是所有的。所以这里介绍一下SendInput的使用。我已经将主要的模拟功能写在了一个单
delphi模拟键盘
11-28
delphi下模拟键盘操作附完整源码，另附SIMouseKeyboard.pas
delphi之模拟按键
weixin_33697898的博客
08-23 288
网上有很多的关于模拟按键的例子，经过实验，我选如下一组函数 procedure SendShift(H: HWnd; Down: Boolean);var vKey, ScanCode: Word; lParam: longint;begin vKey:= $10; ScanCode:= MapVirtualKey(vKey, 0); lParam:= longint(...
delphi 模拟键盘
文的专栏
04-10 2491
delphi模拟键盘输入可以通过发消息来实现,比如下面消息在编辑框formul中写入字符q:POSTMESSAGE(formula.HANDLE,WM_KEYDOWN,Ord(q),0)   ;  当然还有其他多种实现方法,下面转载一个程序,里面用的方法很不错unit FrmKeyboard; interface uses Windows, Messages, SysUtils,
delphi模拟键盘按键实例
02-06
delphi模拟键盘按键实例，只是模拟一个按键的例子而已。到一定时间按下模拟按下一个按键，delphi7编译通过，本人菜鸟，高手路过。
Delphi模拟键盘的输入功能..rar
04-19
Delphi模拟键盘的输入功能..rar
delphi模拟键盘输入操作的单元类（sndkey32.pas）,使用起来比 keybd-event 简单，效果好
09-27
419行做了简单调整，适配delphi10.4，低版本去掉 WideChar强制类型转换即可。
Delphi模拟键盘输入程序源代码解析
本资源主要涉及到使用Delphi编程语言开发的一个模拟键盘输入的应用程序。通过这个程序，开发者能够模拟键盘事件，如按键的按下和释放等操作，进而实现对计算机应用程序的自动化控制。本文将详细解析与该资源相关的...
delphi 模拟鼠标键盘操作
12-22
delphi模拟鼠标键盘操作，可以参考学一下，实现的功能类似于鼠标精灵
delphi模拟按键
10-01
delphi制作的一个模拟按键输入的小程序，delphi7下通过
delphi开启虚拟键盘
12-30
delphi开启虚拟键盘的源代码，看了就懂
delphi 使用虚拟硬件接口模拟按键
02-10
使用winio.dll 虚拟键盘接口 模拟按键 兼容性高,带完整演示
delphi 按键模拟
12-15
模拟按键单击，在有些时候需要自动的点击某个按键，则可以简单完成一项任务
Delphi编程中的按键模拟及应用——使用SendInput函数实现按键模拟
最新发布
Winfredzhang的博客
10-11 1159
按键模拟是指通过编程方式模拟按下计算机键盘上的按键，以便实现自动化操作或扩展键盘功能的目的。在某些情况下，我们可能需要将特定的字符串作为输入，并模拟按下字符串中每个字符对应的按键。例如，在模拟用户输入网址时，我们可以将字符串"chrome://settings/"传递给程序，并模拟按下每个字符的按键。
模拟键盘、鼠标输入---玩转keybd_event
笑看人生 坐看云起
05-23 4079
在Windows大行其道的今天，windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种，键盘输入控制和鼠标输入控制。有时，对于繁杂的，或重复性的操作，我们能否通过编制程序来代替手工输入，而用程序来模拟键盘及鼠标的输入呢？答案是肯定的。这主要是通过两个API函数来实现的。 　　　　下面以Delphi为例来介绍一下如何实现这两个功能。模拟键盘我们用Keybd_event这个api函数
Delphi驱动方式WINIO模拟按键 可用
weixin_30726161的博客
08-19 339
http://www.delphitop.com/html/yingjian/152.html Delphi驱动方式WINIO模拟按键 作者：admin 来源：未知 日期：2010/2/1 1:14:15 人气：2363标签： QQ空间新浪微博腾讯微博腾讯朋友QQ收藏百度空间百度贴吧更多0 添加控件 2个button 1个Timer 够了代码如下:unit ...
屏幕键盘(内嵌中文输入)-Delphi源码
10-30
系统级屏幕键盘，可向外部程序发送键值，内嵌了一个拼音输入法，收录了3000个常用汉字，字典文件可自行增加。用DelphiXE7编写的，没有用任何第三方控件，没有封装成动态库，全部源码。使用了泛型类型，应该是2010以后的版本才能正常编译。用Delphi7的需要自己修改代码。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值