我在利用WinIO模拟按键的时候,模拟单个键没问题,但模拟复合键的时候,就出现不响应现象,不知怎么解决。我的代码如下:(这是DELPHI语法,由于DELPHI没人气,只好来这里问了。)
procedure MyKeyDown(vKeyCoad: Integer);
var
btScancode: DWord;
begin
btScancode := MapVirtualKey(vKeyCoad, 0);
KBCWait4IBE;
SetPortVal($64, $D2, 1);
KBCWait4IBE;
SetPortVal($60, btScancode, 1);
end; // 模拟ctrl+return
MyKeyDown(VK_CONTROL);
Sleep(50);
MyKeyDown(VK_RETURN);
Sleep(50);
MyKeyUp(VK_RETURN);
Sleep(50);
MyKeyUp(VK_CONTROL);
Sleep(50); 请大家帮我指点一下。
procedure MyKeyDown(vKeyCoad: Integer);
var
btScancode: DWord;
begin
btScancode := MapVirtualKey(vKeyCoad, 0);
KBCWait4IBE;
SetPortVal($64, $D2, 1);
KBCWait4IBE;
SetPortVal($60, btScancode, 1);
end; // 模拟ctrl+return
MyKeyDown(VK_CONTROL);
Sleep(50);
MyKeyDown(VK_RETURN);
Sleep(50);
MyKeyUp(VK_RETURN);
Sleep(50);
MyKeyUp(VK_CONTROL);
Sleep(50); 请大家帮我指点一下。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货