WebBrowser的问题,自动提交数据

[手指风]

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

[手指风]

怎么没人啊,郁闷

[手指风]

没人来回答我吗

[手指风]

嫌分少吗?可以再加

[huojiehai]

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

[huojiehai]

好久没回贴了，记得加分哦

[ahbbbc]

procedure TForm1.Button2Click(Sender: TObject);
var
str:string;
begin
str:='button1';
(Self.WebBrowser1.Document as IHTMLDocument3).getElementById(str).click;
end;

僅僅供參考
不要給我分 給上家

[手指风]

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

[手指风]

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

[手指风]

人呢？又没人了？

[51one]

或者试试idhttp？