如何单击 JavaScript 按钮 WebBrowser Delphi

【问题标题】：How to click JavaScript Button WebBrowser Delphi如何单击 JavaScript 按钮 WebBrowser Delphi
【发布时间】：2014-03-03 22:06:20
【问题描述】：

<tr>
  <td colspan="2" style="text-align: center;">
    <a href="javascript:start_form_submit('SUBMIT');">
      <imgsrc="graphics/proceed_confirm.gif" width="251" height="27" alt="Proceed to Confirmation" border="0">
    </a>
  </td>
</tr>

如何使用delphi点击这个按钮？

【问题讨论】：

标签： javascript delphi button click twebbrowser

【解决方案1】：

严格来说，这不是一个按钮。它只是可点击超链接内的图像。

在任何情况下，HTML 元素都没有指定 name 或 id，因此您的工作已经完成。您必须首先在WebBrowser.Document 中查询IHTMLDocument2 接口，然后根据需要在浏览器的DOM 接口中挖掘您感兴趣的<a> 元素，然后您可以调用它的click() 方法。

【讨论】：

【解决方案2】：

谢谢兄弟，我正在使用

功能

procedure ExecuteScript(doc: IHTMLDocument2; script: string; language: string);
begin
  if doc <> nil then
  begin
    if doc.parentWindow <> nil then
      doc.parentWindow.ExecScript(script, Olevariant(language)) ;
  end;
end;

并在 button1 上使用

script := 'javascript:start_form_submit("SUBMIT");';
ExecuteScript(webbrowser1.Document as IHTMLDocument2, script, 'javascript');

【讨论】：