如何用delphi 6 twebbrowser点击弹出按钮？

Question

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

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

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

有什么办法可以在我的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;