我想编一程序实现在另一应用程序中实现按键。(100分)

nfy · 2002-11-01

我想编一程序实现在另一应用程序中实现按键。 经测试使用postmessage,sendmessage,keybd_event,sendinput等方法在此应用程序中都不能实现按下某键，是不是要非要用钩子啊，哪位好心人，给个示例用钩子在其它应用程序中模拟按键啊。谢谢啊!最好有代码啊

有问题 · 2002-11-06

你试试用setforegroundow将对象窗口设为当前焦点,再用keybd_event

dedema · 2002-11-07

先用findwindowex找到按钮的句柄，然后向这个句柄发送消息。

oyzter · 2002-11-08

我试过用postmessage在传键值给KOF，不过它会暂停弹出个对话框写着‘key..........' keybd_event也试过，好像不行！

nfy · 2002-11-08

在其它应用程序中 keybd_event好像是获得输入焦点才好使， postmessage好像是获得输入焦点才好使, sendinput能模拟回车，但是c 2 3 这样的按键也不好使。 楼上的兄弟的情况可以注册热键，实现1键出绝杀什么的。 但我的情况，是不是非得用钩子啊，谁有SendInput()的应用范例也行啊。

WangBingBing · 2002-11-08

TigerDing · 2002-11-08

使用消息

lixx · 2002-11-08

提供一些MSDN资料。 其中我测试过模拟鼠标移动，是确实可行的。但没有测试模拟键盘按键，你不妨试一下。 移动鼠标光标可以考虑API函数SetCursorPos 先说几个API函数 keybd_event The keybd_event function synthesizes a keystroke. The system can use such a synthesized keystroke to generate a WM_KEYUP or WM_KEYDOWN message. The keyboard driver's interrupt handler calls the keybd_event function. Windows NT: This function has been superseded. Use SendInput instead. VOID keybd_event(   BYTE bVk,           // virtual-key code   BYTE bScan,         // hardware scan code   DWORD dwFlags,      // flags specifying various function options   DWORD dwExtraInfo   // additional data associated with keystroke );   Parameters bVk Specifies a virtual-key code. The code must be a value in the range 1 to 254. bScan Specifies a hardware scan code for the key. dwFlags A set of flag bits that specify various aspects of function operation. An application can use any combination of the following predefined constant values to set the flags. Value Meaning KEYEVENTF_EXTENDEDKEY If specified, the scan code was preceded by a prefix byte having the value 0xE0 (224). KEYEVENTF_KEYUP If specified, the key is being released. If not specified, the key is being depressed. dwExtraInfo Specifies an additional 32-bit value associated with the key stroke. Return Values This function has no return value. Remarks Although keybd_event passes an OEM-dependent hardware scan code to the system, applications should not use the scan code. The system converts scan codes to virtual-key codes internally and clears the up/down bit in the scan code before passing it to applications. An application can simulate a press of the PRINTSCREEN key in order to obtain a screen snapshot and save it to the clipboard. To do this, call keybd_event with the bVk parameter set to VK_SNAPSHOT, and the bScan parameter set to 0 for a snapshot of the full screen or set bScan to 1 for a snapshot of the active window. Windows CE: Windows CE supports an additional flag for the dwFlags parameter. Use the KEYEVENTF_SILENT flag to simulate a keystroke without making a clicking sound. Windows CE does not support the KEYEVENTF_EXTENDEDKEY flag. QuickInfo   Windows NT: Requires version 3.1 or later.   Windows: Requires Windows 95 or later.   Windows CE: Requires version 1.0 or later.   Header: Declared in winuser.h.   Import Library: Use user32.lib. See Also Keyboard Input Overview, Keyboard Input Functions, GetAsyncKeyState, GetKeyState, MapVirtualKey, SetKeyboardState mouse_event The mouse_event function synthesizes mouse motion and button clicks. Windows NT: This function has been superseded. Use SendInput instead. VOID mouse_event(   DWORD dwFlags, // flags specifying various motion/click variants   DWORD dx,      // horizontal mouse position or position change   DWORD dy,      // vertical mouse position or position change   DWORD dwData,  // amount of wheel movement   DWORD dwExtraInfo                  // 32 bits of application-defined information );   Parameters dwFlags A set of flag bits that specify various aspects of mouse motion and button clicking. The bits in this parameter can be any reasonable combination of the following values: Value Meaning MOUSEEVENTF_ABSOLUTE Specifies that the dx and dy parameters contain normalized absolute coordinates. If not set, those parameters contain relative data: the change in position since the last reported position. This flag can be set, or not set, regardless of what kind of mouse or mouse-like device, if any, is connected to the system. For further information about relative mouse motion, see the following Remarks section. MOUSEEVENTF_MOVE Specifies that movement occurred. MOUSEEVENTF_LEFTDOWN Specifies that the left button is down. MOUSEEVENTF_LEFTUP Specifies that the left button is up. MOUSEEVENTF_RIGHTDOWN Specifies that the right button is down. MOUSEEVENTF_RIGHTUP Specifies that the right button is up. MOUSEEVENTF_MIDDLEDOWN Specifies that the middle button is down. MOUSEEVENTF_MIDDLEUP Specifies that the middle button is up. MOUSEEVENTF_WHEEL Windows NT: Specifies that the wheel has been moved, if the mouse has a wheel. The amount of movement is given in dwData dx Specifies the mouse's absolute position along the x-axis or its amount of motion since the last mouse event was generated, depending on the setting of MOUSEEVENTF_ABSOLUTE. Absolute data is given as the mouse's actual x-coordinate; relative data is given as the number of mickeys moved. A mickey is the amount that a mouse has to move for it to report that it has moved. dy Specifies the mouse's absolute position along the y-axis or its amount of motion since the last mouse event was generated, depending on the setting of MOUSEEVENTF_ABSOLUTE. Absolute data is given as the mouse's actual y-coordinate; relative data is given as the number of mickeys moved. dwData If dwFlags is MOUSEEVENTF_WHEEL, then dwData specifies the amount of wheel movement. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user. One wheel click is defined as WHEEL_DELTA, which is 120. If dwFlags is not MOUSEEVENTF_WHEEL, then dwData should be zero. dwExtraInfo Specifies an additional 32-bit value associated with the mouse event. An application calls GetMessageExtraInfo to obtain this extra information. Return Values This function has no return value. Remarks If the mouse has moved, indicated by MOUSEEVENTF_MOVE being set, dx and dy hold information about that motion. The information is given as absolute or relative integer values. If MOUSEEVENTF_ABSOLUTE value is specified, dx and dy contain normalized absolute coordinates between 0 and 65,535. The event procedure maps these coordinates onto the display surface. Coordinate (0,0) maps onto the upper-left corner of the display surface, (65535,65535) maps onto the lower-right corner. If the MOUSEEVENTF_ABSOLUTE value is not specified, dx and dy specify relative motions from when the last mouse event was generated (the last reported position). Positive values mean the mouse moved right (or down); negative values mean the mouse moved left (or up). Relative mouse motion is subject to the settings for mouse speed and acceleration level. An end user sets these values using the Mouse control panel application. An application obtains and sets these values with theSystemParametersInfo function. The system applies two tests to the specified relative mouse motion when applying acceleration. If the specified distance along either the x or y axis is greater than the first mouse threshold value, and the mouse acceleration level is not zero, the operating system doubles the distance. If the specified distance along either the x or y axis is greater than the second mouse threshold value, and the mouse acceleration level is equal to two, the operating system doubles the distance that resulted from applying the first threshold test. It is thus possible for the operating system to multiply relatively-specified mouse motion along the x or y axis by up to four times. Once acceleration has been applied, the system scales the resultant value by the desired mouse speed. Mouse speed can range from 1 (slowest) to 20 (fastest) and represents how much the pointer moves based on the distance the mouse moves. The default value is 10, which results in no additional modification to the mouse motion. The mouse_event function is used to synthesize mouse events by applications that need to do so. It is also used by applications that need to obtain more information from the mouse than its position and button state. For example, if a tablet manufacturer wants to pass pen-based information to its own applications, it can write a dynamic-link library (DLL) that communicates directly to the tablet hardware, obtains the extra information, and saves it in a queue. The DLL then calls mouse_event with the standard button and x/y position data, along with, in the dwExtraInfo parameter, some pointer or index to the queued extra information. When the application needs the extra information, it calls the DLL with the pointer or index stored in dwExtraInfo, and the DLL returns the extra information. Windows CE: Windows CE does not support the MOUSEEVENTF_WHEEL constant in the dwFlags parameter. QuickInfo   Windows NT: Requires version 3.1 or later.   Windows: Requires Windows 95 or later.   Windows CE: Unsupported.   Header: Declared in winuser.h.   Import Library: Use user32.lib. See Also Mouse Input Overview, Mouse Input Functions, GetMessageExtraInfo,SystemParametersInfo  -摘自MSDN Keyboard input  及 Mouse Input部分

nfy · 2002-11-12

没人知道了吗?

zw84611 · 2002-11-14

我抄的，你可以看一下这里：http://www.delphibbs.com/delphibbs/dispq.asp?lid=1407832 -------------------------------- unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure SendKey(const mKey: Word; mShiftState: TShiftState;   mCount: Integer = 1); { 模拟系统按键;mCount指定按键次数 } const   cExtended: set of Byte = [VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT, VK_HOME,     VK_END, VK_PRIOR, VK_NEXT, VK_INSERT, VK_DELETE];   procedure pKeyboardEvent(mKey, mScanCode: Byte; mFlags: Longint);   var     vKeyboardMsg: TMsg;   begin     keybd_event(mKey, mScanCode, mFlags, 0);     while PeekMessage(vKeyboardMsg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE) do     begin       TranslateMessage(vKeyboardMsg);       DispatchMessage(vKeyboardMsg);     end;   end; { pKeyboardEvent }   procedure pSendKeyDown(mKey: Word; mGenUpMsg: Boolean);   var     vScanCode: Byte;     vNumState: Boolean;     vKeyBoardState: TKeyboardState;   begin     if (mKey = VK_NUMLOCK) then begin       vNumState := ByteBool(GetKeyState(VK_NUMLOCK) and 1);       GetKeyBoardState(vKeyBoardState);       if vNumState then         vKeyBoardState[VK_NUMLOCK] := (vKeyBoardState[VK_NUMLOCK] and not 1)       else vKeyBoardState[VK_NUMLOCK] := (vKeyBoardState[VK_NUMLOCK] or 1);       SetKeyBoardState(vKeyBoardState);       Exit;     end;     vScanCode := Lo(MapVirtualKey(mKey, 0));     if (mKey in cExtended) then begin       pKeyboardEvent(mKey, vScanCode, KEYEVENTF_EXTENDEDKEY);       if mGenUpMsg then         pKeyboardEvent(mKey, vScanCode,           KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP)     end else begin       pKeyboardEvent(mKey, vScanCode, 0);       if mGenUpMsg then pKeyboardEvent(mKey, vScanCode, KEYEVENTF_KEYUP);     end;   end; { pSendKeyDown }   procedure pSendKeyUp(mKey: Word);   var     vScanCode: Byte;   begin     vScanCode := Lo(MapVirtualKey(mKey, 0));     if mKey in cExtended then       pKeyboardEvent(mKey, vScanCode, KEYEVENTF_EXTENDEDKEY and KEYEVENTF_KEYUP)     else pKeyboardEvent(mKey, vScanCode, KEYEVENTF_KEYUP);   end; { pSendKeyUp } var   I: Integer; begin   for I := 1 to mCount do begin     if ssShift in mShiftState then pSendKeyDown(VK_SHIFT, False);     if ssCtrl in mShiftState then pSendKeyDown(VK_CONTROL, False);     if ssAlt in mShiftState then pSendKeyDown(VK_MENU, False);     pSendKeyDown(mKey, True);     if ssShift in mShiftState then pSendKeyUp(VK_SHIFT);     if ssCtrl in mShiftState then pSendKeyUp(VK_CONTROL);     if ssAlt in mShiftState then pSendKeyUp(VK_MENU);   end; end; { SendKey } ///////End Source ///////Begin Demo procedure TForm1.Button1Click(Sender: TObject); begin   SendKey(VK_F4, [ssAlt]); end; ///////End Demo end.

jsxjd · 2002-11-14

首先获得另一个程序主窗口及相关控件的句柄！然后用postmessage等进行处理。

fssky · 2002-11-17

up

delphi浪客 · 2002-11-17

那位大侠告诉你用钩子的？他绝对是个骗子。。（得罪了） jsxjd说得对，没句柄你搞个p。。搞到句柄后随便你了，用钩子那就是自己玩就行了吗 ，还要其他程序控制干吗？无聊。。除非要写一套自己的消息。。用你那个 控制程序做代理，累不累啊，那不是白痴吗？

zw84611 · 2002-11-17

procedure TForm1.Button1Click(Sender: TObject); var   Wnd: HWND; begin   Wnd := FindWindow('notepad',nil);   if Wnd <> 0 then   begin     SetForegroundWindow(Wnd);     keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), 0, 0);     keybd_event(VK_TAB, MapVirtualKey(VK_TAB, 0), KEYEVENTF_KEYUP, 0);   end; end;

nfy · 2002-11-18

各位大侠请注意，此程序是个网络游戏，要控制的是按数字键1 2 3{不是小键盘数字} 等，是没有输入焦点。 我在代码是这样的 var  HWndCalculator : HWnd; begin    HWndCalculator:=FindWindow(nil,'xxxx');    SetForegroundWindow(HWndCalculator);    postmessage(HWndCalculator,Wm_keydown,52,0);{4键} end; 但是都不能实现按下4键，包括SendMessage(),key_Event()都不行，mouse_Event()好使。 SendInput()可以模拟回车键按下，但其它键模拟不了。不知是不是我的用法不对? 我想可能是这些键已被游戏注册为热键了吧，可以参考按键精灵(可能用到钩子），EZScript(没用钩子，台湾人编的)的功能，我就是想实现他们那样的功能，如有谁知道实现的原理，请告之!谢谢! 若用钩子，给我讲讲模拟钩子的原理。

delphi浪客 · 2002-11-18

钩子这玩艺对学过vc的来说太easy了 看我回答的一个帖子去（用delphi实现） ID：1439446（在olecontainer中如何控制嵌入的对象，如屏蔽word文档的拷贝，复制功能等）

bike · 2002-11-18

好啦給分吧,下面是我抄的一個涵數,抄誰的我忘了,但是還請那位仁兄不要見怪,賺點分而已: procedure TSysUser.SendKeys(sSend: string); var   i: integer;   focushld, windowhld: hwnd;   threadld: dword;   ch: byte; begin   windowhld := GetForegroundWindow;   threadld := GetWindowThreadProcessId(Windowhld, nil);   AttachThreadInput(GetCurrentThreadId, threadld, true);   Focushld := getfocus;   AttachThreadInput(GetCurrentThreadId, threadld, false);   if focushld = 0 then Exit;   i := 1;   while i <= Length(sSend) do   begin     ch := byte(sSend); //send string//     if Windows.IsDBCSLeadByte(ch) then     begin       Inc(i);       SendMessage(focushld, WM_IME_CHAR, MakeWord(byte(sSend), ch), 0);     end     else       SendMessage(focushld, WM_IME_CHAR, word(ch), 0);     Inc(i);   end;   postmessage(focushld, WM_keydown, 13, 0); //enter// end;

人在昆明 · 2002-11-18

如果没有句柄，你就在坐标上模拟单击了，谁说用钩子，打出去。

穿越沦陷的爱 · 2003-03-17

Study 应该可以

碧血剑 · 2003-03-17

我觉得bike的方法应该行

我想编一程序实现在另一应用程序中实现按键。(100分)

nfy

Unregistered / Unconfirmed

有问题

Unregistered / Unconfirmed

dedema

Unregistered / Unconfirmed

oyzter

Unregistered / Unconfirmed

nfy

Unregistered / Unconfirmed

WangBingBing

Unregistered / Unconfirmed

TigerDing

Unregistered / Unconfirmed

lixx

Unregistered / Unconfirmed

nfy

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

fssky

Unregistered / Unconfirmed

delphi浪客

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

nfy

Unregistered / Unconfirmed

delphi浪客

Unregistered / Unconfirmed

bike

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

穿越沦陷的爱

Unregistered / Unconfirmed

碧血剑

Unregistered / Unconfirmed

Similar threads