按键模拟_注入线程之后国F也可以按键模拟

//每隔几秒_按键模拟

function  SendKey ( Str : string ): Integer ;
var
   MyHwnd : HWND ;
   KeyValue : integer ;
begin
   {功能模拟发送按键:1~9,F1~F8}
     MyHwnd := FindWindow ( nil , 'Element Client' );
    if  Str = '1'   then  KeyValue := 49 ;
    if  Str = '2'   then  KeyValue := 50 ;
    if  Str = '3'   then  KeyValue := 51 ;
    if  Str = '4'   then  KeyValue := 52 ;
    if  Str = '5'   then  KeyValue := 53 ;
    if  Str = '6'   then  KeyValue := 54 ;
    if  Str = '7'   then  KeyValue := 55 ;
    if  Str = '8'   then  KeyValue := 56 ;
    if  Str = '9'   then  KeyValue := 57 ;
    if  Str = 'F1'  then  KeyValue := VK_F1 ;
    if  Str = 'F2'  then  KeyValue := VK_F2 ;
    if  Str = 'F3'  then  KeyValue := VK_F3 ;
    if  Str = 'F4'  then  KeyValue := VK_F4 ;
    if  Str = 'F5'  then  KeyValue := VK_F5 ;
    if  Str = 'F6'  then  KeyValue := VK_F6 ;
    if  Str = 'F7'  then  KeyValue := VK_F7 ;
    if  Str = 'F8'  then  KeyValue := VK_F8 ;
   sendmessage ( MyHwnd , wm_keydown , KeyValue , 0 );
   sendmessage ( MyHwnd , wm_keyup , KeyValue , 0 );
end ;

procedure  TForm1 . CheckBox1Click ( Sender :  TObject );
begin
  if  StrToFloat ( Edit1 . text )  <  1  then  Edit1 . Text := '1' ;  //Timer能接受最小的值为1
  if  CheckBox1 . Checked  then
  begin
    Timer1 . Enabled := True ;
    Timer1 . Interval := Round ( StrToFloat ( Edit1 . text )* 1000 );  //1秒=1000毫秒 Round对一个实数进行四舍五入
    Edit1 . Enabled := False ;
  end
  else
  begin
    Timer1 . Enabled := False ;
    Edit1 . Enabled := True ;
  end ;
end ;

procedure  TForm1 . FormCreate ( Sender :  TObject );
begin
  Timer1 . Enabled := false ;
end ;

procedure  TForm1 . Timer1Timer ( Sender :  TObject );
begin
   SendKey ( ComboBox1 . text ); //ComboBox1.text
end ;

procedure  TForm1 . Edit1KeyPress ( Sender :  TObject ;  var  Key :  Char );
begin
   if  not  ( key  in  [ '0' .. '9' , '.' , #8 ])  then  key := #0 ;  //数字删除键
   if  ( key = '.' )  and  ( Pos ( '.' , Edit1 . Text )> 0 )  then  key := #0 ; //只能数字且只能输入
end ;

 

 

 

//按键模拟

 

//PostMessage

PostMessage(Edit1.Handle, WM_KEYDOWN, 65, 0);// 模拟在Edit控件中按下a键

PostMessage(Form1.Handle, WM_KEYDOWN, VK_TAB, 0); //模拟在窗体中按下Tab键
//按键模拟 1 2 3 4 5 6

//按键模拟F1 F2 F3 F4 F5 F6

 

 

// 功能模拟发送按键:1~9,F1~F8

procedure SendKey(Str:string);

var

  MyHwnd:HWND;

  KeyValue:integer;

begin

  {功能模拟发送按键:1~9,F1~F8}

    MyHwnd:=FindWindow(nil,'Element Client');

   if Str='1'  then KeyValue:=49;

   if Str='2'  then KeyValue:=50;

   if Str='3'  then KeyValue:=51;

   if Str='4'  then KeyValue:=52;

   if Str='5'  then KeyValue:=53;

   if Str='6'  then KeyValue:=54;

   if Str='7'  then KeyValue:=55;

   if Str='8'  then KeyValue:=56;

   if Str='9'  then KeyValue:=57;

   if Str='F1' then KeyValue:=VK_F1;

   if Str='F2' then KeyValue:=VK_F2;

   if Str='F3' then KeyValue:=VK_F3;

   if Str='F4' then KeyValue:=VK_F4;

   if Str='F5' then KeyValue:=VK_F5;

   if Str='F6' then KeyValue:=VK_F6;

   if Str='F7' then KeyValue:=VK_F7;

   if Str='F8' then KeyValue:=VK_F8;

  sendmessage(MyHwnd,wm_keydown,KeyValue,0);

  sendmessage(MyHwnd,wm_keyup,KeyValue,0);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  SendKey('F1');//ComboBox1.text

end;

通过 Wiz 发布

附件列表