怎样向一个窗体发消息(100分)

lizheng · 2001-04-06

我想向街霸发击键消息,我在街霸中摄的键是W上A左S下D右J拳,我想用sendmessage, 但怎么也无法成功,键是发过去了,但好像不对,发键盘上任意键,游戏总是收到一组键, 游戏中的人物总是先发一记轻拳,在向屏幕右面两下.请各位打下帮忙看看!!!

doxpix · 2001-04-06

让俺瞧瞧你是咋发送的？ 俺没有街霸哟。

秋之叶 · 2001-04-07

自定义消息类型。 接管消息事件。 接收判断消息类型。 处理事件。 OK!

zengmj · 2001-04-07

SendMessage 你是怎么用的。里面的参数你写对了吗？

lizheng · 2001-04-07

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); var   H: hWnd;   vKey: byte; begin   H := FindWindow('Callus95', 'Callus95 - Street Fighter II Turbo');   if SetForegroundWindow(H) then              //bring it to front   begin     vKey := Lo(Key);     SendMessage(H, WM_KEYDOWN, MapVirtualKey(vKey, 0), vKey);     Sleep(1000);     SendMessage(H, WM_KEYUP, MapVirtualKey(vKey, 0), vKey);   end; end;

Fyx · 2001-04-08

在FormKeyDown中写当焦点不在程序上就不能执行了。用SendMessage也不行，有个方法是注册全局热键，以下这个方法 我在真侍魂中试过，街霸中应该可以： unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Menus; type   TForm1 = class(TForm)     Label1: TLabel;     MainMenu1: TMainMenu;     N1: TMenuItem;     procedure FormCreate(Sender: TObject);     procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }     HotKeyId: Integer;     procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin   HotKeyId := GlobalAddAtom('MyHotKey') - $C000;   RegisterHotKey(Handle, hotkeyid, 0, 96); end; procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean); begin //  if msg.CharCode = 13 then end; procedure TForm1.HotKeyDown(var Msg: Tmessage); begin   if Msg.LParamHi = 96 then   begin     {     //奥义旋风烈斩：↓?→·斩     KeyBd_Event(VK_Down, MapVirtualKey(Vk_Down, 0), 0, 0);     Sleep(10);     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), 0, 0);     Sleep(10);     KeyBd_Event(VK_Down, MapVirtualKey(Vk_Down, 0), KEYEVENTF_KEYUP, 0);     Sleep(10);     KeyBd_Event(99, MapVirtualKey(99, 0), 0, 0);     Sleep(10);     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), KEYEVENTF_KEYUP, 0);     Sleep(10);     KeyBd_Event(99, MapVirtualKey(99, 0), KEYEVENTF_KEYUP, 0);}         //奥义弧月斩：→?↓?←?·斩     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), 0, 0);     Sleep(10);     KeyBd_Event(VK_Down, MapVirtualKey(Vk_Down, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Left, MapVirtualKey(VK_Left, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Down, MapVirtualKey(VK_Down, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(99, MapVirtualKey(99, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(99, MapVirtualKey(99, 0), KEYEVENTF_KEYUP, 0);     {     //秘奥义忍法影舞：→←→←→←↓·中斩＋轻踢＋中踢     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), 0, 0);     Sleep(10);     KeyBd_Event(VK_Right, MapVirtualKey(Vk_Right, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Right, MapVirtualKey(Vk_Right, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(VK_Right, MapVirtualKey(Vk_Right, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Right, MapVirtualKey(Vk_Right, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(VK_Right, MapVirtualKey(Vk_Right, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Left, MapVirtualKey(Vk_Left, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(VK_Down, MapVirtualKey(Vk_Down, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Right, MapVirtualKey(Vk_Right, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(98, MapVirtualKey(98, 0), 0, 0);     KeyBd_Event(100, MapVirtualKey(100, 0), 0, 0);     KeyBd_Event(101, MapVirtualKey(101, 0), 0, 0);     Sleep(5);     KeyBd_Event(VK_Down, MapVirtualKey(Vk_Down, 0), KEYEVENTF_KEYUP, 0);     Sleep(5);     KeyBd_Event(98, MapVirtualKey(98, 0), KEYEVENTF_KEYUP, 0);     KeyBd_Event(100, MapVirtualKey(100, 0), KEYEVENTF_KEYUP, 0);     KeyBd_Event(101, MapVirtualKey(101, 0), KEYEVENTF_KEYUP, 0);}   end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   UnRegisterHotKey(handle, HotKeyId); end; end.

lizheng · 2001-04-14

多人接受答案了。

怎样向一个窗体发消息(100分)

lizheng

Unregistered / Unconfirmed

doxpix

Unregistered / Unconfirmed

秋之叶

Unregistered / Unconfirmed

zengmj

Unregistered / Unconfirmed

lizheng

Unregistered / Unconfirmed

Fyx

Unregistered / Unconfirmed

lizheng

Unregistered / Unconfirmed

Similar threads