-
本版专家分：6007结帖率 96.97% -
现在已经可以自动填写数据,并点击网页上的提交按钮,
Submit := WebBrowser1.OleObject.Document.All.Item('submit', 0);
Submit.Click;
问题是在click处由于页面上有js要求确认你的提交,会弹出一个对话框,而代码也堵塞在这块,所以用模拟键盘事件和发送消息都没有用,请高手赐教.![]()
-
本版专家分：6007
-
怎么没人啊,郁闷
-
本版专家分：6007
-
没人来回答我吗
-
本版专家分：6007
-
嫌分少吗?可以再加
-
本版专家分：20381
-
- 红花 2003年10月 Delphi大版内专家分月排行榜第一
-
- 蓝花 2003年8月 Delphi大版内专家分月排行榜第三
-
-
简单，先令 WebBrowser1.Slient = false;就OK了，结帐吧
-
本版专家分：20381
-
- 红花 2003年10月 Delphi大版内专家分月排行榜第一
-
- 蓝花 2003年8月 Delphi大版内专家分月排行榜第三
-
-
好久没回贴了，记得加分哦
![]()
-
本版专家分：50 -
procedure TForm1.Button2Click(Sender: TObject);
var
str:string;
begin
str:='button1';
(Self.WebBrowser1.Document as IHTMLDocument3).getElementById(str).click;
end;
僅僅供參考
不要給我分 給上家
-
本版专家分：6007
-
huojiehai,我设置了这个属性,但是还是会出现提示框让你确认,还有楼上的代码和我的代码的作用是一样的
-
本版专家分：6007
-
网页的代码中submit是通过js的chgsubmit函数返回值来确定是否提交,函数中有如下判断
....
else if (window.confirm("确认...？将扣除您"+smoneysum+"....！"))
-
本版专家分：6007
-
人呢？又没人了？
