procedure TForm1.Button1Click(Sender: TObject);
var
HTMLInputElement:IHTMLInputElement;
HTMLDocument:IHTMLDocument2;
HtmlElement:IHtmlElement;
vk:oleVariant;
begin
HTMLDocument:=WebBrowser1.Document as IHTMLDocument2;
vk:=HTMLDocument.all.item('b1',0); //b1是提交按钮的ID,但如果没有ID怎么获取这个按钮呢?比如像下面的html:
//<input type=submit value='确定' class='STYLE4'>
//我应该如何获取这个按钮呢?请各位前辈指点!
vk.click;
end;
end;
var
HTMLInputElement:IHTMLInputElement;
HTMLDocument:IHTMLDocument2;
HtmlElement:IHtmlElement;
vk:oleVariant;
begin
HTMLDocument:=WebBrowser1.Document as IHTMLDocument2;
vk:=HTMLDocument.all.item('b1',0); //b1是提交按钮的ID,但如果没有ID怎么获取这个按钮呢?比如像下面的html:
//<input type=submit value='确定' class='STYLE4'>
//我应该如何获取这个按钮呢?请各位前辈指点!
vk.click;
end;
end;
,如果name也没有的话如果只有一个提交的按钮的话,可以用以下,
WebBrowser1.OleObject.document.getElementsByTagName('input').item(0).click;