sendmessage向其他程序发送模拟按键无效

[charm911]

procedure TForm1.Button1Click(Sender: TObject);
var H: HWND;
begin
  h := findwindow(nil, 'VisualBoyAdvance');
  if H > 0 then //如果找到密码输入窗体
  begin
    label1.Caption := '已找到窗体';
    SendMessage(h,WM_KEYDOWN,VK_F12,0);
  end;
end;

一段简单代码，向VBA模拟器发送模拟按键F12（功能是游戏截图），也试过postmessage，可总是无效，请各位帮帮忙。

VBA模拟器链接：
http://disland.emu-zone.org/emu/vba.zip
超级马里奥游戏ROM链接
thunder://QUFmdHA6Ly9yb21zNjE4OnJvbXM2MThAcm9tczMuZW11NjE4LmNvbToyMzcvemhhbmdqaS9nYmEvYWxsc2V0LzIzNTggLSBDaGFvamkgTWFsaW91IFNoaWppZSAoQykuemlwWlo=

[sololie]

可以找出该程序的f12按键功能的函数调用地址，然后往该程序进程写远程代码

[我看见佛]

findwindow(nil, 'VisualBoyAdvance');//VisualBoyAdvance是窗口的标题。而不是其它。

[s11ss]

试试 SendMessage(h, WM_KEYDOWN, VK_F12, 1+MapVirtualKey(VK_F12, 0) shl 16);

[feiba7288]

引用 楼主 charm911 的回复:

procedure TForm1.Button1Click(Sender: TObject);
var H: HWND;
begin
  h := findwindow(nil, 'VisualBoyAdvance');
  if H > 0 then //如果找到密码输入窗体
  begin
    label1.Caption := '已找到窗体';
    SendMessage(h,WM_KEYDOWN,VK_F12,0);
  end;
end;

一段简单代码，向VBA模拟器发送模拟按键F12（功能是游戏截图），也试过postmessage，可总是无效，请各位帮帮忙。 VBA模拟器链接： http://disland.emu-zone.org/emu/vba.zip 超级马里奥游戏ROM链接 thunder://QUFmdHA6Ly9yb21zNjE4OnJvbXM2MThAcm9tczMuZW11NjE4LmNvbToyMzcvemhhbmdqaS9nYmEvYWxsc2V0LzIzNTggLSBDaGFvamkgTWFsaW91IFNoaWppZSAoQykuemlwWlo=

首先你确定是否label1.Caption已变为'已找到窗体'，如果已变了，说明已找到Handle； 然后试下这句：PostMessage(h,WM_CHAR,VK_F12,0);

[sololie]

俺用od跟了下，找到了调用地址，你可以直接写远程代码或注入代码实现截图 需要3个参数 mov eax,保存路径字串地址 push 0a0 // 常量 push 0f0 // 常量 push eax mov edi, 416a60 // 截图函数地址 call edi add esp,0c // 恢复栈平衡 自己定义个pchar变量，把保存路径写进去，然后把字串地址传给eax

[charm911]

引用 1 楼 case5166 的回复:

findwindow(nil, 'VisualBoyAdvance');//VisualBoyAdvance是窗口的标题。而不是其它。

不好意思，我直接修改以前的程序，注释没改过来。“//如果找到密码输入窗体”这是以前的老注释，应该是“如果找到VBA窗体”

[charm911]

引用 2 楼 s11ss 的回复:

试试 SendMessage(h, WM_KEYDOWN, VK_F12, 1+MapVirtualKey(VK_F12, 0) shl 16);

我试了一下，也不行

[charm911]

引用 3 楼 feiba7288 的回复:

首先你确定是否label1.Caption已变为'已找到窗体'，如果已变了，说明已找到Handle； 然后试下这句：PostMessage(h,WM_CHAR,VK_F12,0);

caption已变成“已找到窗体”，可你提供的代码也不能用。 我用sendmessage关闭vba窗体是可以的，就是发送按键过不去，很费解。

[sololie]

用dll注入方式测试了下，截图成功，米有问题

var
  path: PChar;
begin
  path := 'c:\tmp.png'; //保存路径
  asm
    mov eax,path
    push $0a0  // 常量
    push $0f0  // 常量
    push eax
    mov edi, $416a60 // 截图函数地址
    call edi
    add esp, $0c // 恢复栈平衡
  end;
end;

[feiba7288]

试下这个：PostMessage(h,WM_IME_CHAR,VK_F12,0);

[feiba7288]

引用 6 楼 charm911 的回复:

[quote=引用 3 楼 feiba7288 的回复:] 首先你确定是否label1.Caption已变为'已找到窗体'，如果已变了，说明已找到Handle； 然后试下这句：PostMessage(h,WM_CHAR,VK_F12,0);

caption已变成“已找到窗体”，可你提供的代码也不能用。 我用sendmessage关闭vba窗体是可以的，就是发送按键过不去，很费解。[/quote] 再不行就试下： PostMessage(h,WM_IME_KEYDOWN,VK_F12,0);

[charm911]

发送消息都能拦截到，就是没反映，无语了

[charm911]

感谢楼上的热心回复，但您提供的两条语句依然不能执行。 如果有兴趣，麻烦您下载1楼中的模拟器和ROM，亲自调试一下。非常感谢！

[sololie]

var
  path: PChar;
begin
  path := 'c:\tmp.png'; //保存路径
  asm
    mov eax,path
    push $0a0  // 常量,保存为图片尺寸的height
    push $0f0  // 常量，width
    push eax
    mov edi, $416a60 // 截图函数地址
    call edi
    add esp, $0c // 恢复栈平衡
  end;
end;

不需要对asm了解，上面代码已经全部写出来了，就那么几行。你照抄调用就行了

[charm911]

再次感谢楼上高手鼎力相助！ 我水平太菜，不知道该如何操作才能让VBA接受这段代码，麻烦您再费费口舌或者将完整的工程代码发给我。

[charm911]

感谢楼上的朋友，您说的用OD跟踪F12功能代码的确是个很好的思路，我本来打算通过模拟向directinput发送按键消息实现。 可惜我对delphi调用asm不熟悉，能否将代码传给我一份学习学习，再谢！ [e-mail]

[chu_czx444]

学习 多少

[sololie]

已mail

[charm911]

感谢楼上的各位朋友，特别是soloie，给我提供了很好的思路和具体的方法，我会好好学习研究一下钩子函数。 另外，经过实验，12楼朋友提供的sndkey32.pas也是可行的，由于个人疏忽，曾经认为无效，在此一并谢过！

[full521boy1]

procedure TForm1.Button1Click(Sender: TObject); var H: HWND; begin h := findwindow(nil, 'VisualBoyAdvance'); if H > 0 then //如果找到密码输入窗体 begin label1.Caption := '已找到窗体'; SendMessage(h,WM_KEYDOWN,VK_F12,0); SendMessage(h,WM_KEYUP,VK_F12,0); //需要加一行按键释放，不然光按下不弹起不响应功能的。 end; end;