delphi 网页提交按钮执行点击事件

[delphi] view plain copy

print?

1. 遍历即可实现，下列代码仅供参考：
2. var
3. i: integer;
4. T: OleVariant;
5. begin
6. T := WebBrowser1.Document;
7. for i := 0 to T.all.Length - 1 do
8. begin
9. if T.all.item(i).tagName = ‘INPUT‘ then
10. begin
11. if T.all.item(i).type = ‘submit‘ then
12. begin
13. T.all.item(i).click;
14. Exit;
15. end;
16. end;
17. end;
18. end;

http://blog.csdn.net/yanjiaye520/article/details/7942366