自动按下网页中的按钮的程序，如何实现？

Question

我想做个可以自动搜寻网页中的按钮，然后再依次按下符合条件的按钮的程序，应该如何实现呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ovElements: OleVariant;
  i: Integer;  
begin
  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
    if (ovElements.item(i).tagName = 'INPUT') and 
      (ovElements.item(i).type = 'SUBMIT') and 
      (ovElements.item(i).Value = '送信') then 
      ovElements.item(i).Click;  
end;

Answer 2

補助：用UpperCase関数会保険点
UpperCase(ovElements.item(i).type) = 'SUBMIT'