所有家当全部给你！求用postmessage向其他程序发送快捷组合键的控件或程序。(62分)

16cy · 2006-10-12

谁有用postmessage或sendmessage向其他程序发送快捷组合键的控件或程序？ 我全部家当只有62分了，有的话全部送给你~

xiammy · 2006-10-12

procedure TForm1.Button1Click(Sender: TObject); var TEMP:HWND; begin TEMP:=FindWindow(nil,'Form2'); //这里写上你要查找的窗体的标题名称。当然，如果你知道了对象窗口的Handle，可以直接在下面使用。 if TEMP<> 0 then SendMessage(TEMP,WM_KEYDOWN,VK_F3,0); end;

16cy · 2006-10-12

请看清，我要的是发送快捷组合键，不是发送单纯的F3，F4之类的，而是比如 “CTR+F3” “CTR+ALT+A” 之类的快捷键

白河愁 · 2006-10-13

SendMessage(TEMP,WM_KEYDOWN,VK_Control,0); SendMessage(TEMP,WM_KEYDOWN,VK_F3,0); Sleep(50); SendMessage(TEMP,WM_KEYUP,VK_F3,0); SendMessage(TEMP,WM_KEYUP,VK_Control,0);

16cy · 2006-10-13

to 白河愁： 你有没有试过啊，你这样的语句我早试过N篇了，传过去的不是快捷键。 另：你的API hook的控件例子放在哪里了？找不到啊？

白河愁 · 2006-10-13

当然试过，除非目标进程封锁了消息（比如游戏）。 控件就放在原来那帖里，同一个下载地址

16cy · 2006-10-13

刚才下载了，没有新的例子，还是原来的。 另外你的语句真的不起作用。我试过很多次的，你说游戏封锁了消息好象也不对，他能响应快键。 用你的语句的话，如果按"alt+a",其结果不是快键"alt+a"，而是发送了乱码+字符A到游戏聊天输入窗口 SendMessage(TEMP,WM_KEYDOWN,VK_menu,0); SendMessage(TEMP,WM_KEYDOWN,VK_F3,0); Sleep(50); SendMessage(TEMP,WM_KEYUP,VK_F3,0); SendMessage(TEMP,WM_KEYUP,VK_menu,0);

白河愁 · 2006-10-13

你有没有看清楚，如果 http://www.ff18.com/delphi/apihooker.rar 还是原来的，只能说是你的 rpwt 了。 我那句是发送 ctrl +f3, 你怎么改成 alt 的 ?

16cy · 2006-10-13

发送Ctrl的也一样 另外，我再下了一遍你的API控件，还是没找到你说的例子，依然只有你的send的例子

Corinth · 2006-10-13

shift $2000 ctrl $4000 alt $8000 用上面的在加上字母的值就行了 如ctrl + a = $4000 + $41

16cy · 2006-10-13

to Corinth: 两种方法是一样的， delphi中早定义好了的，还用得着再这样吗？ 那不是画蛇添足吗？

白河愁 · 2006-10-13

我已经下载过确认没问题的了，自己检查一下吧，相信sendmessage也是同样问题。

16cy · 2006-10-13

runhook里面一共有6个文件，hookdll里面一共有四个文件，bin里面一共有3个文件 全是以前的，哪里有新例子啊？

16cy · 2006-10-13

看到了，但是都没有看到你的使用你自已的控件啊，我是说要一个使用你的控件的例子。

zj_mpy · 2006-10-13

做法就错误，不是发送快捷组合键消息，这样是无效的

16cy · 2006-10-13

to zj_mpy:那么要怎么发？

16cy · 2006-10-13

to 白河愁： 我编译了你的示例程序，只有按下ctr+H有反应。 按ctrl+1 ctrl+2 ctrl+3都没有任何反应，也没有任何变化，不知道是什么原因？

风铃夜思雨 · 2006-10-13

前几天帮朋友做的。。。发送组合键到游戏中 用到些第三方控件，可以换为对应的普通控件 可以全局按键操作或非全局按键操作 Unit Main; Interface Uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, RzCommon, ComCtrls, RzEdit, RzTray, RzButton, RzRadChk,  RzLabel, ExtCtrls, ImgList, Inifiles, menus, Mask; Type  TFrmMain = Class(TForm)    Tray: TRzTrayIcon;    HotKey1: TRzHotKeyEdit;    RzFrameController1: TRzFrameController;    lbl1: TLabel;    lbl2: TLabel;    HotKey2: TRzHotKeyEdit;    LbHwnd: TRzLabel;    lbl3: TLabel;    Timer: TTimer;    CmdStart: TRzBitBtn;    CmdStop: TRzBitBtn;    CmdMouse: TRzToolButton;    il1: TImageList;    Up: TRzNumericEdit;    lbl4: TLabel;    ChkGol: TRzCheckBox;    Procedure CmdMouseMouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    Procedure CmdMouseMouseUp(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    Procedure CmdMouseMouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    Procedure FormCreate(Sender: TObject);    Procedure FormClose(Sender: TObject; Var Action: TCloseAction);    Procedure CmdStartClick(Sender: TObject);    Procedure CmdStopClick(Sender: TObject);    Procedure TimerTimer(Sender: TObject);  Private    Hwd: Hwnd;    SpyMode: Boolean;    P: TPoint;    HotID: Integer;    CurV: Integer;    Ini: Tinifile;    Procedure HotKey(Var msg: TWMHotKey); Message WM_HOTKEY;    Procedure LoadConfigs;    Procedure SaveConfigs;    Procedure SetControls(B: Boolean);  Public    { Public declarations }  End; Var  FrmMain: TFrmMain; Implementation {$R *.dfm} Procedure SetUpKey(ShortCut: TShortCut; Var Modifiers, Key: Word); Var  Shift: TShiftState; Begin  ShortCutToKey(ShortCut, Key, Shift);  Modifiers := 0;  If ssShift In Shift Then Modifiers := Modifiers Or MOD_SHIFT;  If ssCtrl In Shift Then Modifiers := Modifiers Or MOD_CONTROL;  If ssAlt In Shift Then Modifiers := Modifiers Or MOD_ALT; End; Procedure TFrmMain.HotKey(Var msg: TWMHotKey); Begin  If HotKey1.Focused Then exit;  If msg.HotKey = HotID Then    If CmdStop.Enabled Then      CmdStop.Click Else CmdStart.Click; End; Procedure TFrmMain.LoadConfigs; Var  Modifiers, Key: Word; Begin  Ini := Tinifile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');  HotKey1.HotKey := TextToShortCut(Ini.ReadString('Config', 'AppKey', 'CTRL+F12'));  HotKey2.HotKey := TextToShortCut(Ini.ReadString('Config', 'GameKey', '无'));  Up.IntValue := Ini.ReadInteger('Config', 'DoTime', 3);  ChkGol.Checked := Ini.ReadBool('Config', 'IsGobalKey', False);  SetUpKey(HotKey1.HotKey, Modifiers, Key);  HotID := GlobalAddAtom('HotKey_AppGame');  RegisterHotKey(handle, HotID, Modifiers, Key); End; Procedure TFrmMain.SaveConfigs; Begin  UnregisterHotKey(handle, HotID);  GlobalDeleteAtom(HotID);  Ini.WriteString('Config', 'AppKey', ShortCutToText(HotKey1.HotKey));  Ini.WriteString('Config', 'GameKey', ShortCutToText(HotKey2.HotKey));  Ini.WriteInteger('Config', 'DoTime', Up.IntValue);  Ini.WriteBool('Config', 'IsGobalkey', ChkGol.Checked); End; Procedure TFrmMain.SetControls(B: Boolean); Begin  CmdStart.Enabled := B;  CmdStop.Enabled := Not B;  Timer.Enabled := Not B;  HotKey1.Enabled := B;  HotKey2.Enabled := B;  CmdMouse.Enabled := B;  Up.Enabled := B;  LbHwnd.Enabled := B;  ChkGol.Enabled := B; End; Procedure TFrmMain.CmdMouseMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); Begin  Screen.Cursor := crCross;  SetCapture(handle);  SpyMode := true;  SetWindowPos(handle, HWND_TOPMOST, 0, 0, 0, 0, swp_nomove Or swp_nosize); End; Procedure TFrmMain.CmdMouseMouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); Begin  Screen.Cursor := crDefault;  ReleaseCapture;  SpyMode := False;  SetWindowPos(handle, HWND_NOTOPMOST, 0, 0, 0, 0, swp_nomove Or swp_nosize); End; Procedure TFrmMain.CmdMouseMouseMove(Sender: TObject; Shift: TShiftState;  X, Y: Integer); Begin  If Not SpyMode Then exit;  GetCursorPos(P);  Hwd := WindowFromPoint(P);  LbHwnd.Caption := IntToStr(Hwd); End; Procedure TFrmMain.FormCreate(Sender: TObject); Begin  Ini := Tinifile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');  LoadConfigs; End; Procedure TFrmMain.FormClose(Sender: TObject; Var Action: TCloseAction); Begin  CmdStop.Click;  SaveConfigs;  Ini.Free; End; Procedure TFrmMain.CmdStartClick(Sender: TObject); Begin  SaveConfigs;  LoadConfigs;  If (Hwd = 0) Then  Begin    MessageBox(handle, '请查找准备控制的窗口句柄！', '错误', MB_ICONHAND);    exit;  End;  If (HotKey2.HotKey = 0) Then  Begin    MessageBox(handle, '请设置执行键值！', '错误', MB_ICONHAND);    exit;  End;  SetControls(False);  CurV := 0; End; Procedure TFrmMain.CmdStopClick(Sender: TObject); Begin  SetControls(true); End; Type  TSMsg = Packed Record    Shift: TShiftState;    Key: Word;  End; Procedure SendMsg(AhWnd: Hwnd; M: TSMsg); Begin  If ssShift In M.Shift Then    PostMessage(AhWnd, WM_KEYDOWN, VK_SHIFT, 0);  If ssAlt In M.Shift Then    PostMessage(AhWnd, WM_KEYDOWN, VK_MENU, 0);  If ssCtrl In M.Shift Then    PostMessage(AhWnd, WM_KEYDOWN, VK_CONTROL, 0);  PostMessage(AhWnd, WM_KEYDOWN, M.Key, 0);  PostMessage(AhWnd, WM_KEYUP, M.Key, 0);  If ssShift In M.Shift Then    PostMessage(AhWnd, WM_KEYUP, VK_SHIFT, 0);  If ssAlt In M.Shift Then    PostMessage(AhWnd, WM_KEYUP, VK_MENU, 0);  If ssCtrl In M.Shift Then    PostMessage(AhWnd, WM_KEYUP, VK_CONTROL, 0); End; Function EnumChildWndProc(AhWnd: Hwnd; AlParam: Pointer): Boolean; Stdcall; Begin//遍历窗口句柄内的所有控件并发送键消息  SendMsg(AhWnd, TSMsg(AlParam^));  result := true; End; 定时发送 Procedure TFrmMain.TimerTimer(Sender: TObject); Var  M: TSMsg;  ThreadID: DWord; Begin  Inc(CurV);  If CurV = Up.IntValue Then  Begin    CurV := 0;    ShortCutToKey(HotKey2.HotKey, M.Key, M.Shift);    If ChkGol.Checked Then    Begin      ThreadID := GetWindowThreadProcessId(Hwd, Nil);      AttachThreadInput(GetCurrentThreadId, ThreadID, true);      //ShowWindow(Hwd, SW_SHOWNOACTIVATE);      SetForegroundWindow(Hwd);      If ssShift In M.Shift Then        keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), 0, 0);      If ssAlt In M.Shift Then        keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);      If ssCtrl In M.Shift Then        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);      keybd_event(M.Key, MapVirtualKey(M.Key, 0), 0, 0);      keybd_event(M.Key, MapVirtualKey(M.Key, 0), KEYEVENTF_KEYUP, 0);      If ssShift In M.Shift Then        keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0);      If ssAlt In M.Shift Then        keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);      If ssCtrl In M.Shift Then        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);      AttachThreadInput(GetCurrentThreadId, ThreadID, False);      ShowWindow(Hwd, SW_RESTORE);    End Else    Begin      SendMsg(Hwd, M);      EnumChildWindows(Hwd, @EnumChildWndProc, LongInt(@M));    End;  End; End; End.

16cy · 2006-10-13

楼上的写了这么多，其实核心就是： Procedure SendMsg(AhWnd: Hwnd; M: TSMsg); Begin  If ssShift In M.Shift Then    PostMessage(AhWnd, WM_KEYDOWN, VK_SHIFT, 0);  If ssAlt In M.Shift Then    PostMessage(AhWnd, WM_KEYDOWN, VK_MENU, 0);  If ssCtrl In M.Shift Then    PostMessage(AhWnd, WM_KEYDOWN, VK_CONTROL, 0);  PostMessage(AhWnd, WM_KEYDOWN, M.Key, 0);  PostMessage(AhWnd, WM_KEYUP, M.Key, 0);  If ssShift In M.Shift Then    PostMessage(AhWnd, WM_KEYUP, VK_SHIFT, 0);  If ssAlt In M.Shift Then    PostMessage(AhWnd, WM_KEYUP, VK_MENU, 0);  If ssCtrl In M.Shift Then    PostMessage(AhWnd, WM_KEYUP, VK_CONTROL, 0); End; 这和白河愁的是一样的，根本不能向游戏发送热键，而keybd_event发送热键代码我早已实现，但是用keybd_event必须将游戏窗口前置，设为活动窗口。 必须SetForegroundWindow(Hwd); 我想用sendmessage发送热键是因为当窗口最小化时，窗口还能响应消息。

风铃夜思雨 · 2006-10-13

你都没看清楚这个，看完了，测试过了，再说不行吧 Function EnumChildWndProc(AhWnd: Hwnd; AlParam: Pointer): Boolean; Stdcall; Begin//遍历窗口句柄内的所有控件并发送键消息  SendMsg(AhWnd, TSMsg(AlParam^));  result := true; End;

所有家当全部给你！ 求用postmessage向其他程序发送快捷组合键的控件或程序。(62分)

16cy

Unregistered / Unconfirmed

xiammy

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

Corinth

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

zj_mpy

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

风铃夜思雨

Unregistered / Unconfirmed

16cy

Unregistered / Unconfirmed

风铃夜思雨

Unregistered / Unconfirmed

Similar threads

所有家当全部给你！求用postmessage向其他程序发送快捷组合键的控件或程序。(62分)