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

遍历即可实现，下列代码仅供参考：

var
  i: integer;
  T: OleVariant;
begin
  T := WebBrowser1.Document;
  for i :=  to T.all.Length -  do
  begin
    if T.all.item(i).tagName = 'INPUT' then
    begin
      if T.all.item(i).type = 'submit' then
      begin
        T.all.item(i).click;
        Exit;
      end;
    end;
  end;
end;  

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