поочередная имитация нажатия клавиш

[usb72]

Всем привет, прочисал весь поиск форума но не нашел нужного, поэтому вопрос такой от новичка, надо сделать поочередную имитацию клавишь. на форме есть button при нажатии на который обновляется компонент webbrowser1, обновление прекрасно работает, Но надо сделать так...:

жмем button - обновляется webbrowser1, затем имитация нажатия клавиши enter и снова жмется button и так много много раз.

[kettanaito]

Просто нажатие ентер? Или может сфокусироваться сначала на чем-то (может внутри webbrowser), а потом имитировать нажатие?

[usb72]

просто нажатие имитировать, там уже нужная кнопка в фокусе будет

[kettanaito]

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(webbrowser1.handle, wm_char, ord(#13), 0);
end;

?
Если хочешь повторять действие много раз без твоего участия - поставь таймер а процедуру выполняй на WebBrowserNavigationComplete (когда страница полностью загружена).

P.S. В гугле все есть

[Larboss]

Функции для имитации:

procedure SimulateKeyDown(Key: Byte);
var
  flags: DWORD;
begin
  // if Key in ExtendedKeys then flags := KEYEVENTF_EXTENDEDKEY else flags := 0;
  keybd_event(Key, MapVirtualKey(Key, 0), 0, 0);
end;

procedure SimulateKeyUp(Key: Byte);
var
  flags: DWORD;
begin
  // if Key in ExtendedKeys then flags := KEYEVENTF_EXTENDEDKEY else flags := 0;
  keybd_event(Key, MapVirtualKey(Key, 0), KEYEVENTF_KEYUP, 0);

procedure SimulateKey(Key: Byte; CD: integer);
begin
  SimulateKeyDown(Key);
  sleep(CD);
  SimulateKeyUp(Key);
end;

Пример, съимитирует нажатие enter (CD - задержка перед отпусканием клавиши):

SimulateKey(VK_Enter,0);