WebBrowser的问题,自动提交数据

Question

现在已经可以自动填写数据,并点击网页上的提交按钮,
  Submit := WebBrowser1.OleObject.Document.All.Item('submit', 0);
  Submit.Click;
问题是在click处由于页面上有js要求确认你的提交,会弹出一个对话框,而代码也堵塞在这块,所以用模拟键盘事件和发送消息都没有用,请高手赐教.

Answer 1

简单，先令 WebBrowser1.Slient = false;就OK了，结帐吧

Answer 2

  procedure   TForm1.Button2Click(Sender:   TObject);   
  var   
      str:string;   
  begin   
      str:='button1';   
      (Self.WebBrowser1.Document   as   IHTMLDocument3).getElementById(str).click;   
  end;僅僅供參考  
不要給我分  給上家

Answer 3

huojiehai,我设置了这个属性,但是还是会出现提示框让你确认,还有楼上的代码和我的代码的作用是一样的

Answer 4

网页的代码中submit是通过js的chgsubmit函数返回值来确定是否提交,函数中有如下判断
....
else if (window.confirm("确认...？将扣除您"+smoneysum+"....！"))