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

Posted 2020-06-22 朝闻道

 

[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