delphi - 如何使用 delphi 6 twebbrowser 单击弹出按钮？

Question

我正在 Delphi 6 上编写我的自动提交工具。

我正在使用TWebbroswer组件将数据插入到不同的控件中。

但是，我需要能够 在弹出窗口上单击“确定”按钮（此按钮出现在 javascript 确认命令之后）。

有什么方法可以从我的 Delphi 应用程序中单击此按钮？

Answer 1

试试这个=）

procedure TForm1.Button1Click(Sender:Tobject);
begin
 EmbeddedWB1.Navigate('about:<input%20type=submit%20value="Click%20me!!!"%20onClick="alert(''Click!!!'');">');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Document:Variant;
Button:Variant;
I:Dword;
begin
 Document:=EmbeddedWB1.Document;
 for i:= 0 to Document.all.Length -1 do begin
   Button:=Document.all.item(I);
   if SameText(Button.tagName,'INPUT') then begin
     Button.Click;
     break;
   end;
 end;
end;