问一上delphi模拟的有关问题

2012-09-10

问一下delphi模拟的问题。varGameh:HWNDbeginbeginGameh:FindWindow(nil,泡泡堂)//模拟鼠标单击SendMe

问一下delphi模拟的问题。
var
Gameh:HWND;
begin

begin
Gameh:=FindWindow(nil,'泡泡堂');
//模拟鼠标单击
SendMessage(Gameh,Messages.WM_LBUTTONDOWN,0,$);//按下
SendMessage(Gameh,Messages.WM_LBUTTONUP, 0,$);//抬起
end;

这个上面是模拟鼠标点击按下。

var
Gameh2:HWND;
begin
Gameh2:=FindWindow(nil,'泡泡堂');
// postmessage(Gameh2,WM_KEYDOWN,74,0);
//模拟键盘F5按下
// PostMessage(Gameh2,Messages.WM_KEYDOWN,VK_F5,0 );//按下
//PostMessage(Gameh2,Messages.WM_KEYUP, VK_F5,0);//抬起

我想问下怎么实现模拟键盘按下？
参数不知道写

[解决办法]
上网搜下键盘伪码，以及用法

例如

Delphi(Pascal) code

  //模拟键盘Ctrl+C复制  Keybd_Event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),0,0);  Keybd_Event(Ord('C'),MapVirtualKey(Ord('C'),0),0,0);  Keybd_Event(Ord('C'),MapVirtualKey(Ord('C'),0),KEYEVENTF_KEYUP,0);  Keybd_Event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),KEYEVENTF_KEYUP,0);
[解决办法]
没玩这个,帮你顶顶>>>>>>>>>>>>

热点排行

.NET

问一上delphi模拟的有关问题