感兴趣的请进！！！模拟键盘问题???(88分)

lonelystar · 2003-05-31

正在做一个项目,是用遥控器来操作电脑,当按遥控器上的按钮后(遥控器相当于一个无线的小键盘), 在电脑上模拟相应的键盘事件,现在已经把遥控器那边传来的按键信息取到了, 但不知该怎样 去实现相应的键盘事件.举个例子如果我按遥控器上的 alt+tab 键则进行窗口的转换,就相当于在 本机上按相应的按键.该怎样实现啊??? 最好有原码??

特尔斐 · 2003-05-31

keybd_event(18,MapVirtualKey(18,0),0,0); keybd_event(9,MapVirtualKey(9,0),0,0); keybd_event(18,MapVirtualKey(18,0),KEYEVENTF_KEYUP,0); keybd_event(9,MapVirtualKey(9,0),KEYEVENTF_KEYUP,0);

lonelystar · 2003-05-31

沒人感興趣嗎

lonelystar · 2003-06-02

各位幫幫忙啊，號急啊

zjrivaldo · 2003-06-02

keybd_event(vk_menu,0,0,0);//按下ALT keybd_event(vk_tab,0,0,0);//按下TAB keybd_event(vk_menu,0,KEYEVENTF_KEYUP,0);//弹起ALT keybd_event(vk_tab,0,KEYEVENTF_KEYUP,0);//弹起TAB

lonelystar · 2003-06-02

其它的按鍵呢

刀剑如梦 · 2003-06-02

思路不错，以前没有接触过，向你们学习吧！

lonelystar · 2003-06-03

繼續等

zjrivaldo · 2003-06-03

通用点是: keybd_event(按键的ascii码,0,0,0);//按下 keybd_event(按键的ascii码,0,KEYEVENTF_KEYUP,0);//弹起 老大我都回答两次了你应该散点分了吧.

chnplzh · 2003-06-03

楼主，有没搞错，上面的已经全部给你，至于其它按键， 去查询一下keybd_event函数和WIN有关虚拟键的帮助就行了。

lonelystar · 2003-06-03

放心吧你，分大大的有

own_delphi · 2003-06-04

http://chinaour.com/?own_delphi

lonelystar · 2003-06-06

繼續等  

yayx · 2003-06-14

unit SendKey; interface uses Windows,Messages,SysUtils,MyMessageBox; Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean; implementation (* Converts a string of characters and key names to keyboard events and passes them to Windows. Example syntax: SendKeys('abc123{left}{left}{left}def{end}456{left 6}ghi{end}789', True); *) Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean; type   WBytes = array[0..pred(SizeOf(Word))] of Byte;   TSendKey = record     Name : ShortString;     VKey : Byte;   end; const   {Array of keys that SendKeys recognizes.   If you add to this list, you must be sure to keep it sorted alphabetically   by Name because a binary search routine is used to scan it.}   MaxSendKeyRecs = 41;   SendKeyRecs : array[1..MaxSendKeyRecs] of TSendKey =   (    (Name:'BKSP';            VKey:VK_BACK),    (Name:'BS';              VKey:VK_BACK),    (Name:'BACKSPACE';       VKey:VK_BACK),    (Name:'BREAK';           VKey:VK_CANCEL),    (Name:'CAPSLOCK';        VKey:VK_CAPITAL),    (Name:'CLEAR';           VKey:VK_CLEAR),    (Name:'DEL';             VKey:VK_DELETE),    (Name:'DELETE';          VKey:VK_DELETE),    (Name:'DOWN';            VKey:VK_DOWN),    (Name:'END';             VKey:VK_END),    (Name:'ENTER';           VKey:VK_RETURN),    (Name:'ESC';             VKey:VK_ESCAPE),    (Name:'ESCAPE';          VKey:VK_ESCAPE),    (Name:'F1';              VKey:VK_F1),    (Name:'F10';             VKey:VK_F10),    (Name:'F11';             VKey:VK_F11),    (Name:'F12';             VKey:VK_F12),    (Name:'F13';             VKey:VK_F13),    (Name:'F14';             VKey:VK_F14),    (Name:'F15';             VKey:VK_F15),    (Name:'F16';             VKey:VK_F16),    (Name:'F2';              VKey:VK_F2),    (Name:'F3';              VKey:VK_F3),    (Name:'F4';              VKey:VK_F4),    (Name:'F5';              VKey:VK_F5),    (Name:'F6';              VKey:VK_F6),    (Name:'F7';              VKey:VK_F7),    (Name:'F8';              VKey:VK_F8),    (Name:'F9';              VKey:VK_F9),    (Name:'HELP';            VKey:VK_HELP),    (Name:'HOME';            VKey:VK_HOME),    (Name:'INS';             VKey:VK_INSERT),    (Name:'LEFT';            VKey:VK_LEFT),    (Name:'NUMLOCK';         VKey:VK_NUMLOCK),    (Name:'PGDN';            VKey:VK_NEXT),    (Name:'PGUP';            VKey:VK_PRIOR),    (Name:'PRTSC';           VKey:VK_PRINT),    (Name:'RIGHT';           VKey:VK_RIGHT),    (Name:'SCROLLLOCK';      VKey:VK_SCROLL),    (Name:'TAB';             VKey:VK_TAB),    (Name:'UP';              VKey:VK_UP)   );   {Extra VK constants missing from Delphi's Windows API interface}   VK_NULL=0;   VK_SemiColon=186;   VK_Equal=187;   VK_Comma=188;   VK_Minus=189;   VK_Period=190;   VK_Slash=191;   VK_BackQuote=192;   VK_LeftBracket=219;   VK_BackSlash=220;   VK_RightBracket=221;   VK_Quote=222;   VK_Last=VK_Quote;   ExtendedVKeys : set of byte =   [VK_Up,    VK_Down,    VK_Left,    VK_Right,    VK_Home,    VK_End,    VK_Prior,  {PgUp}    VK_Next,   {PgDn}    VK_Insert,    VK_Delete]; const   INVALIDKEY = $FFFF {Unsigned -1};   VKKEYSCANSHIFTON = $01;   VKKEYSCANCTRLON = $02;   VKKEYSCANALTON = $04; var   UsingParens, ShiftDown, ControlDown, AltDown, FoundClose : Boolean;   PosSpace : Byte;   I, L : Integer;   NumTimes, MKey : Word;   KeyString : String[20];   AllocationSize: Integer; procedure DisplayMessage(Message : PChar); begin   ShowMyMessage(nil,'密码输入',Message,0); end; function BitSet(BitTable, BitMask : Byte) : Boolean; begin   Result:=ByteBool(BitTable and BitMask); end; procedure SetBit(var BitTable : Byte; BitMask : Byte); begin   BitTable:=BitTable or Bitmask; end; Procedure KeyboardEvent(VKey, ScanCode : Byte; Flags : Longint); var   KeyboardMsg : TMsg; begin   keybd_event(VKey, ScanCode, Flags,0);   If (Wait) then While (PeekMessage(KeyboardMsg,0,WM_KEYFIRST, WM_KEYLAST, PM_REMOVE)) do begin     TranslateMessage(KeyboardMsg);     DispatchMessage(KeyboardMsg);   end; end; Procedure SendKeyDown(VKey: Byte; NumTimes : Word; GenUpMsg : Boolean); var   Cnt : Word;   ScanCode : Byte;   NumState : Boolean;   KeyBoardState : TKeyboardState; begin   If (VKey=VK_NUMLOCK) then begin     NumState:=ByteBool(GetKeyState(VK_NUMLOCK) and 1);     GetKeyBoardState(KeyBoardState);     If NumState then KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] and not 1)     else KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] or 1);     SetKeyBoardState(KeyBoardState);     exit;   end;   ScanCode:=Lo(MapVirtualKey(VKey,0));   For Cnt:=1 to NumTimes do     If (VKey in ExtendedVKeys)then begin       KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY);       If (GenUpMsg) then         KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP)     end else begin       KeyboardEvent(VKey, ScanCode, 0);       If (GenUpMsg) then KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP);     end; end; Procedure SendKeyUp(VKey: Byte); var   ScanCode : Byte; begin   ScanCode:=Lo(MapVirtualKey(VKey,0));   If (VKey in ExtendedVKeys)then     KeyboardEvent(VKey, ScanCode, KEYEVENTF_EXTENDEDKEY and KEYEVENTF_KEYUP)   else KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP); end; Procedure SendKey(MKey: Word; NumTimes : Word; GenDownMsg : Boolean); begin   If (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then SendKeyDown(VK_SHIFT,1,False);   If (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then SendKeyDown(VK_CONTROL,1,False);   If (BitSet(Hi(MKey),VKKEYSCANALTON)) then SendKeyDown(VK_MENU,1,False);   SendKeyDown(Lo(MKey), NumTimes, GenDownMsg);   If (BitSet(Hi(MKey),VKKEYSCANSHIFTON)) then SendKeyUp(VK_SHIFT);   If (BitSet(Hi(MKey),VKKEYSCANCTRLON)) then SendKeyUp(VK_CONTROL);   If (BitSet(Hi(MKey),VKKEYSCANALTON)) then SendKeyUp(VK_MENU); end; {Implements a simple binary search to locate special key name strings} Function StringToVKey(KeyString : ShortString) : Word; var   Found, Collided : Boolean;   Bottom, Top, Middle : Byte; begin   Result:=INVALIDKEY;   Bottom:=1;   Top:=MaxSendKeyRecs;   Found:=false;   Middle:=(Bottom+Top) div 2;   Repeat     Collided:=((Bottom=Middle) or (Top=Middle));     If (KeyString=SendKeyRecs[Middle].Name) then begin        Found:=True;        Result:=SendKeyRecs[Middle].VKey;     end else begin        If (KeyString>SendKeyRecs[Middle].Name) then Bottom:=Middle        else Top:=Middle;        Middle:=(Succ(Bottom+Top)) div 2;     end;   Until (Found or Collided);   If (Result=INVALIDKEY) then DisplayMessage('程序出现未知错误'); end; procedure PopUpShiftKeys; begin   If (not UsingParens) then begin     If ShiftDown then SendKeyUp(VK_SHIFT);     If ControlDown then SendKeyUp(VK_CONTROL);     If AltDown then SendKeyUp(VK_MENU);     ShiftDown:=false;     ControlDown:=false;     AltDown:=false;   end; end; begin   AllocationSize:=MaxInt;   Result:=false;   UsingParens:=false;   ShiftDown:=false;   ControlDown:=false;   AltDown:=false;   I:=0;   L:=StrLen(SendKeysString);   If (L>AllocationSize) then L:=AllocationSize;   If (L=0) then Exit;   While (I<L) do begin     case SendKeysString of     '(' : begin             UsingParens:=True;             Inc(I);           end;     ')' : begin             UsingParens:=False;             PopUpShiftKeys;             Inc(I);           end;     '%' : begin              AltDown:=True;              SendKeyDown(VK_MENU,1,False);              Inc(I);           end;     '+' :  begin              ShiftDown:=True;              SendKeyDown(VK_SHIFT,1,False);              Inc(I);            end;     '^' :  begin              ControlDown:=True;              SendKeyDown(VK_CONTROL,1,False);              Inc(I);            end;     '{' : begin             NumTimes:=1;             If (SendKeysString[Succ(I)]='{') then begin               MKey:=VK_LEFTBRACKET;               SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);               SendKey(MKey,1,True);               PopUpShiftKeys;               Inc(I,3);               Continue;             end;             KeyString:='';             FoundClose:=False;             While (I<=L) do begin               Inc(I);               If (SendKeysString='}') then begin                 FoundClose:=True;                 Inc(I);                 Break;               end;               KeyString:=KeyString+Upcase(SendKeysString);             end;             If (Not FoundClose) then begin                DisplayMessage('程序出现未知错误');                Exit;             end;             If (SendKeysString='}') then begin               MKey:=VK_RIGHTBRACKET;               SetBit(Wbytes(MKey)[1],VKKEYSCANSHIFTON);               SendKey(MKey,1,True);               PopUpShiftKeys;               Inc(I);               Continue;             end;             PosSpace:=Pos(' ',KeyString);             If (PosSpace<>0) then begin                NumTimes:=StrToInt(Copy(KeyString,Succ(PosSpace),Length(KeyString)-PosSpace));                KeyString:=Copy(KeyString,1,Pred(PosSpace));             end;             If (Length(KeyString)=1) then MKey:=vkKeyScan(KeyString[1])             else MKey:=StringToVKey(KeyString);             If (MKey<>INVALIDKEY) then begin               SendKey(MKey,NumTimes,True);               PopUpShiftKeys;               Continue;             end;           end;     '~' : begin             SendKeyDown(VK_RETURN,1,True);             PopUpShiftKeys;             Inc(I);           end;     else  begin              MKey:=vkKeyScan(SendKeysString);              If (MKey<>INVALIDKEY) then begin                SendKey(MKey,1,True);                PopUpShiftKeys;              end else DisplayMessage('程序出现未知错误');              Inc(I);           end;     end;   end;   Result:=true;   PopUpShiftKeys; end; end. showmymessage是我自己写的函数，你该成messagebox 自己看吧有Example

划风而逝 · 2003-06-16

zjrivaldo, 时间：2003-6-2 10:50:00, ID：1916237 keybd_event(vk_menu,0,0,0);//按下ALT keybd_event(vk_tab,0,0,0);//按下TAB keybd_event(vk_menu,0,KEYEVENTF_KEYUP,0);//弹起ALT keybd_event(vk_tab,0,KEYEVENTF_KEYUP,0);//弹起TAB   如果要按ctrl＋shift＋del这样的系统热启动键，用类似的方法好像不行啊

划风而逝 · 2003-06-16

如何解决呢

linbren · 2003-10-22

用API：getkeyboartstatus();找一下相关帮助吧。

app2001 · 2003-10-22

在我想像中遥控键盘中的信息获取似乎更复杂些，老兄连这都办到了，怎么还要执迷于要大伙将所有键盘的ASCII码信息全部列出呢？？  ：）

tigerm · 2003-12-07

to Lonelystar: 我也需要一种好点的无线遥控器。能介绍一下你用的遥控器吗。谢谢！ Email: Tigerzhang56@yahoo.com

感兴趣的请进！！！模拟键盘问题???(88分)

lonelystar

Unregistered / Unconfirmed

特尔斐

Unregistered / Unconfirmed

lonelystar

Unregistered / Unconfirmed

lonelystar

Unregistered / Unconfirmed

zjrivaldo

Unregistered / Unconfirmed

lonelystar

Unregistered / Unconfirmed

刀剑如梦

Unregistered / Unconfirmed

lonelystar

Unregistered / Unconfirmed

zjrivaldo

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

lonelystar

Unregistered / Unconfirmed

own_delphi

Unregistered / Unconfirmed

lonelystar

Unregistered / Unconfirmed

yayx

Unregistered / Unconfirmed

划风而逝

Unregistered / Unconfirmed

划风而逝

Unregistered / Unconfirmed

linbren

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

tigerm

Unregistered / Unconfirmed

Similar threads