ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure EmulateKey(Wnd: HWND; VKey: Integer);
asm
  push 0
  push edx
  push 0101H //WM_KEYUP
  push eax
  push 0
  push edx
  push 0100H //WM_KEYDOWN
  push eax
  call PostMessage
  call PostMessage
end;

// симуляция нажимаем&отпускаем кнопку
procedure SimulateKeystroke(Key : byte; extra : DWORD);
begin
    keybd_event(Key,extra,0,0);
    keybd_event(Key,extra,KEYEVENTF_KEYUP,0);
end;

// симуляция нажимаем кнопку
procedure SimulateKeyDown(Key : byte);
begin
    keybd_event(Key, 0, 0, 0);
end;

// симуляция отпускаем кнопку
procedure SimulateKeyUp(Key : byte);
begin
    keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;

/////////////////////////////////////////////////////////////

// нажимаем СTRL
SimulateKeyDown(VK_CONTROL);
// нажимаем&отпускам кнопку S (регист важен)
SimulateKeystroke(ord('S'),0);
// отпускаем СTRL
SimulateKeyUp(VK_CONTROL);

var i:integer;
begin
for i:=1 to 500 do begin caption:=inttostr(i); sleep(1); end;
// активируй окно Блокнота
SimulateKeyDown(VK_CONTROL);
SimulateKeystroke(ord('S'),0); // S=0x73 , s=0x53
SimulateKeyUp(VK_CONTROL);

var wnd:HWND;
begin
  wnd := FindWindow('notepad', nil);
  wnd := FindWindowEx(wnd, 0, 'Edit', nil);
  if wnd=0 then exit;
  caption:=inttostr(wnd);
  PostMessage(wnd, WM_KEYDOWN, VK_CONTROL, 0);
  PostMessage(wnd, WM_KEYDOWN, ord('S'), 0);
 // PostMessage(wnd, WM_CHAR, Word('s'), 0);
  PostMessage(wnd, WM_KEYUP, ord('S'), 0);
  PostMessage(wnd, WM_KEYUP, VK_CONTROL, 0);