1,594
社区成员
发帖
与我相关
我的任务
分享WebBrowser的问题,自动提交数据
现在已经可以自动填写数据,并点击网页上的提交按钮,
Submit := WebBrowser1.OleObject.Document.All.Item('submit', 0);
Submit.Click;
问题是在click处由于页面上有js要求确认你的提交,会弹出一个对话框,而代码也堵塞在这块,所以用模拟键盘事件和发送消息都没有用,请高手赐教.
Submit := WebBrowser1.OleObject.Document.All.Item('submit', 0);
Submit.Click;
问题是在click处由于页面上有js要求确认你的提交,会弹出一个对话框,而代码也堵塞在这块,所以用模拟键盘事件和发送消息都没有用,请高手赐教.
...全文
请发表友善的回复…
发表回复
51one 2007-12-14
- 打赏
- 举报
或者试试idhttp？
手指风 2007-12-14
- 打赏
- 举报
人呢？又没人了？
手指风 2007-12-14
- 打赏
- 举报
网页的代码中submit是通过js的chgsubmit函数返回值来确定是否提交,函数中有如下判断
....
else if (window.confirm("确认...？将扣除您"+smoneysum+"....！"))
....
else if (window.confirm("确认...？将扣除您"+smoneysum+"....！"))
手指风 2007-12-14
- 打赏
- 举报
huojiehai,我设置了这个属性,但是还是会出现提示框让你确认,还有楼上的代码和我的代码的作用是一样的
ahbbbc 2007-12-14
- 打赏
- 举报
procedure TForm1.Button2Click(Sender: TObject);
var
str:string;
begin
str:='button1';
(Self.WebBrowser1.Document as IHTMLDocument3).getElementById(str).click;
end;
僅僅供參考
不要給我分 給上家
var
str:string;
begin
str:='button1';
(Self.WebBrowser1.Document as IHTMLDocument3).getElementById(str).click;
end;
僅僅供參考
不要給我分 給上家
huojiehai 2007-12-13
- 打赏
- 举报
好久没回贴了，记得加分哦
huojiehai 2007-12-13
- 打赏
- 举报
简单，先令 WebBrowser1.Slient = false;就OK了，结帐吧
手指风 2007-12-13
- 打赏
- 举报
嫌分少吗?可以再加
手指风 2007-12-13
- 打赏
- 举报
没人来回答我吗
手指风 2007-12-12
- 打赏
- 举报
怎么没人啊,郁闷
