[贴士] 虚拟键盘代码

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

常量名称十六位值十位值鼠标或按钮的值

VK_LBUTTON 1 1 鼠标左键钮
VK_RBUTTON 2 2 鼠标右键钮
VK_CANCEL 3 3 Control-break执行
VK_MBUTTON 4 4 鼠标中键钮
05-07 05-07 未定义
VK_BACK 8 8 Backspace键
VK_TAB 9 9 Tab键
0A-0B 10-11 未定义
VK_CLEAR 0C 12 Clear键
VK_RETURN 0D 13 Enter键
0E-0F 14-15 未定义
VK_SHIFT 10 16 Shift键
VK_CONTROL 11 17 Ctrl键
VK_MENU 12 18 Alt键
VK_PAUSE 13 19 Pause键
VK_CAPITAL 14 20 Caps Lock键
15-19 21-25 保留给Kanji系统使用
1A 26 未定义
VK_ESCAPE 1B 27 Esc键
1C-1F 28-31 保留给Kanji系统使用
VK_SPACE 20 32 SpaceBar键
VK_PRIOR 21 33 Page Up键
VK_NEXT 22 34 Page Down键
VK_END 23 35 End键
VK_HOME 24 36 Home键
VK_LEFT 25 37 Left Arrow键
VK_UP 26 38 Up Arrow键
VK_RIGHT 27 39 Right Arrow键
VK_DOWN 28 40 Down Arrow键
VK_SELECT 29 41 Select键
2A 42 OEM自订使用
VK_EXECUTE 2B 43 Execute键
VK_SNAPSHOT  2C 44 Print Screen键
VK_INSERT 2D 45 Ins键
VK_DELETE 2E 46 Del键
VK_HELP 2F 47 Help键
VK_0 30 48 ０键
VK_1 31 49 １键
VK_2 32 50 ２键
VK_3 33 51 ３键
VK_4 34 52 ４键
VK_5 35 53 ５键
VK_6 36 54 ６键
VK_7 37 55 ７键
VK_8 38 56 ８键
VK_9 39 57 ９键
3A-40 58-64 未定义
VK_A 41 65 Ａ键
VK_B 42 66 Ｂ键
VK_C 43 67 Ｃ键
VK_D 44 68 Ｄ键
VK_E 45 69 Ｅ键
VK_F 46 70 Ｆ键
VK_G 47 71 Ｇ键
VK_H 48 72 Ｈ键
VK_I 49 73 Ｉ键
VK_J 4A 74 Ｊ键
VK_K 4B 75 Ｋ键
VK_L 4C 76 Ｌ键
VK_M 4D 77 Ｍ键
VK_N 4E 78 Ｎ键
VK_O 4F 79 Ｏ键
VK_P 50 80 Ｐ键
VK_Q 51 81 Ｑ键
VK_R 52 82 Ｒ键
VK_S 53 83 Ｓ键
VK_T 54 84 Ｔ键
VK_U 55 85 Ｕ键
VK_V 56 86 Ｖ键
VK_W 57 87 Ｗ键
VK_X 58 88 Ｘ键
VK_Y 59 89 Ｙ键
VK_Z 5A 90 Ｚ键
5B-5F 91-95 未定义
VK_NUMPAD0 60 96 数字键０键
VK_NUMPAD1 61 97 数字键１键
VK_NUMPAD2 62 98 数字键２键
VK_NUMPAD3 63 99 数字键３键
VK_NUMPAD4 64 100 数字键４键
VK_NUMPAD5 65 101 数字键５键
VK_NUMPAD6 66 102 数字键６键
VK_NUMPAD7 67 103 数字键７键
VK_NUMPAD8 68 104 数字键８键
VK_NUMPAD9 69 105 数字键９键
VK_MULTIPLY  6A 106 ＊键
VK_ADD 6B 107 ＋键
VK_SEPARATOR  6C 108 Separator键
VK_SUBTRACT  6D 109 －键
VK_DECIMAL 6E 110 ．键
VK_DIVIDE 6F 111 ／键
VK_F1 70 112 F1键
VK_F2 71 113 F2键
VK_F3 72 114 F3键
VK_F4 73 115 F4键
VK_F5 74 116 F5键
VK_F6 75 117 F6键
VK_F7 76 118 F7键
VK_F8 77 119 F8键
VK_F9 78 120 F9键
VK_F10 79 121 F10键
VK_F11 7A 122 F11键
VK_F12 7B 123 F12键
VK_F13 7C 124 F13键
VK_F14 7D 125 F14键
VK_F15 7E 126 F15键
VK_F16 7F 127 F16键
VK_F17 80 128 F17键
VK_F18 81 129 F18键
VK_F19 82 130 F19键
VK_F20 83 131 F20键
VK_F21 84 132 F21键
VK_F22 85 133 F22键
VK_F23 86 134 F23键
VK_F24 87 135 F24键
88-8F 136-143 未指定
VK_NUMLOCK 90 144 Num Lock键
VK_SCROLL 91 145 Scroll Lock键
92-B9 146-185 未指定
BA-C0 186-192 OEM自订
C1-DA 193-218 未指定
DB-E4 219-228 OEM自订
E5 229 未指定
E6 230 OEM自订
E7-E8 231-232 未指定
E9-F5 233-245 OEM自订
F6-FE 246-254 未指定

2005-6-28 13:55:27
发表评语»»»

2005-7-12 10:55:42 模拟键盘鼠标的操作KeyLife富翁笔记
作者 : chen_liang
标题 : 模拟键盘鼠标
关键字:
分类 : 个人专区
密级 : 公开
(评分: , 回复: 0, 阅读: 50) »»
在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); ...
  模拟Ctrl+End　　
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 0 ),0,0);
  keybd_event(VK_END,MapVirtualKey(VK_END, 0 ),0,0);
  keybd_event(VK_END,MapVirtualKey(VK_END, 0 ),KEYEVENTF_KEYUP,0);
  keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL, 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；鼠标单击　完也要松开，不然可能影响程序的功能。　
　
　　　好了，希望本文能让你对模拟键盘和鼠标按键有个初步的了解，如果想更深入的了解其中的奥妙，可以查阅详实的msdn在线帮助，并多多动手实践。如果对程序有不明白的地方，可以到coolbaby.delphibbs.com下载相应的源程序。


2005-7-12 11:07:44 Delphi建立键盘鼠标动作纪录与回放KeyLife富翁笔记
作者 : bodhisattva
标题 : Delphi建立键盘鼠标动作纪录与回放
关键字:
分类 : 开发技巧
密级 : 公开
(评分: , 回复: 0, 阅读: 29) »»
很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用
了Windows的Hook函数。
Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows
消息，函数语法为：
SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD)
其中参数idHook指定建立的监视函数类型。通过Windows MSDN帮助可以看到，SetwindowsHookEx函数提供15种不同
的消息监视类型，在这里我们将使用WH_JOURNALRECORD和WH_JOURNALPLAYBACK来监视键盘和鼠标操作。参数lpfn指定消
息函数，在相应的消息产生后，系统会调用该函数并将消息值传递给该函数供处理。函数的一般形式为：
Hookproc (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;
其中code为系统指示标记，wParam和lParam为附加参数，根据不同的消息监视类型而不同。只要在程序中建立这样
一个函数再通过SetwindowsHookEx函数将它加入到消息监视链中就可以处理消息了。
在不需要监视系统消息时需要调用提供UnHookWindowsHookEx来解除对消息的监视。
WH_JOURNALRECORD和WH_JOURNALPLAYBACK类型是两种相反的Hook类型，前者获得鼠标、键盘动作消息，后者回放鼠
标键盘消息。所以在程序中我们需要建立两个消息函数，一个用于纪录鼠标键盘操作并保存到一个数组中，另一个用于
将保存的操作返给系统回放。
下面来建立程序，在Delphi中建立一个工程，在Form1上添加3个按钮用于程序操作。另外再添加一个按钮控件和一
个Edit控件用于验证操作。
下面是Form1的全部代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

  EventArr:array[0..1000]of EVENTMSG;
  EventLog:Integer;
  PlayLog:Integer;
  hHook,hPlay:Integer;
  recOK:Integer;
  canPlay:Integer;
  bDelay:Bool;
implementation

{$R *.DFM}
Function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;
begin
  canPlay:=1;
  Result:=0;

  if iCode < 0 then    //必须将消息传递到消息链的下一个接受单元
Result := CallNextHookEx(hPlay,iCode,wParam,lParam)
  else if iCode = HC_SYSMODALON then
canPlay:=0
  else if iCode = HC_SYSMODALOFF then
canPlay:=1
  else if ((canPlay =1 )and(iCode=HC_GETNEXT)) then begin
if bDelay then begin
   bDelay:=False;
   Result:=50;
end;
pEventMSG(lParam)^:=EventArr[PlayLog];
  end
  else if ((canPlay = 1)and(iCode = HC_SKIP))then begin
bDelay := True;
PlayLog:=PlayLog+1;
  end;
  if PlayLog>=EventLog then begin
UNHookWindowsHookEx(hPlay);
  end;
end;

function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;
begin
  recOK:=1;
  Result:=0;

  if iCode < 0 then
Result := CallNextHookEx(hHook,iCode,wParam,lParam)
  else if iCode = HC_SYSMODALON then
recOK:=0
  else if iCode = HC_SYSMODALOFF then
recOK:=1
  else if ((recOK>0) and (iCode = HC_ACTION)) then begin
EventArr[EventLog]:=pEventMSG(lParam)^;
EventLog:=EventLog+1;

if EventLog>=1000 then begin
   UnHookWindowsHookEx(hHook);
end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption:='纪录';
  Button2.Caption:='停止';
  Button3.Caption:='回放';
  Button4.Caption:='范例';
  Button2.Enabled:=False;
  Button3.Enabled:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EventLog:=0;
  //建立键盘鼠标操作消息纪录链
  hHook:=SetwindowsHookEx(WH_JOURNALRECORD,HookProc,HInstance,0);
  Button2.Enabled:=True;
  Button1.Enabled:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  UnHookWindowsHookEx(hHook);
  hHook:=0;

  Button1.Enabled:=True;
  Button2.Enabled:=False;
  Button3.Enabled:=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  PlayLog:=0;
  //建立键盘鼠标操作消息纪录回放链
  hPlay:=SetwindowsHookEx(WH_JOURNALPLAYBACK,PlayProc,
HInstance,0);

  Button3.Enabled:=False;
end;

end.

代码添加完毕后，运行程序，点击“纪录”按钮开始纪录操作，这时你可以在文本控件中输入一些文字或者点击
“范例”按钮，然后点击“停止”按钮停止纪录，再点击“回放”按钮就可以讲先前所做的操作回放。
在上面的程序中，HookProc是纪录操作的消息函数，每当有鼠标键盘消息发生时，系统都会调用该函数，消息信
息就保存在地址lParam中，我们可以讲消息保存在一个数组中。PlayProc是消息回放函数，当系统可以执行消息回放
时调用该函数，程序就将先前纪录的消息值返回到lParam指向的区域中，系统就会执行该消息，从而实现了消息回放。