将 Enter 键发送到 Web 浏览器1

Question

你好。

我尝试过；

PostMessage(embeddedwb1.Handle,VK_RETURN,0,0);
sendmessage(embeddedwb1,wm_keyup,vk_return,0);
embeddedwb1.perform(wm_keyup,vk_return,0);

但我的程序不起作用。 我尝试过；

Keybd_Event(VK_RETURN,   1, 0, 0);

我的程序可以运行。但这是用于发送所有应用程序的回车键的代码。我只想为我的程序编写代码。感谢您帮助我。

Answer 1

在调用 Keypd_Event(...) 之前，确保使用 SetFocus(embeddedwb1.Handele) 聚焦 Web 浏览器。

既然您可能想要提交表单，您是否考虑过使用 DOM 来实现这一点？下面是一些填充所选输入字段然后提交第一个表单的代码。如果您导航到 http://www.google.com，这种方法就很好用，但在现实世界中，您' d 需要更加小心（按类或 id 搜索输入字段，检查是否有表单等）

procedure TForm23.Button2Click(Sender: TObject);
begin
  ((W.Document as IHTMLDocument2).activeElement as IHTMLInputElement).value := 'Search';
  ((W.Document as IHTMLDocument2).forms.item(0, '') as IHTMLFormElement).submit;
end;

Answer 2

如果 Javascript 用于提交表单，那么我认为 Cosmin 答案不起作用。在这种情况下，您必须了解按钮的 JS 代码并从您的程序中执行它。例如;在我的页面中，我使用 JQuery 提交表单。所以：

procedure TForm1.Button1Click(Sender: TObject);
var
  js_code : string;
  Win : IHTMLWindow2;
begin
  Win := (WebBrowser1.Document as IHTMLDocument2).parentWindow;
  js_code := '$("#formlogin").submit();';
  Win.execScript(js_code, 'JavaScript');
end; 

Answer 3

使用此代码：

PostMessage(EmbeddedWB1.HWND, WM_CHAR, 13, 0);

此代码将字符 13（输入代码）发送到 EmbeddedWB。