如何模拟点击这样的图片按钮？

Question

http://shareware.skycn.com/orderform.php?purtype=unreg&soft_id=3538如何模拟点击提交这个图片？小弟试了很多种方法都不成功，希望高手指点！

Answer 1

pocedure buttonclick() ; 
var
  i: Word;
  Doc: IHtmlDocument2;
  str: string;
begin
 for i := 0 to WebBrowser.OleObject.Document.Images.Length - 1 do
    begin
      Doc := WebBrowser.Document as IHtmlDocument2;
      Str := (Doc.Images.Item(i, 0) as IHTMLImgElement).href;
      if Pos('address.gif', str) <> 0 then
      begin
        ((Doc.Images.Item(i, 0) as IHTMLImgElement) as IHTMLElement).Click;
      end;
    end;
end;

Answer 2

好奇怪,按楼上兄所说方法一试,"tijiao.gif"居然找不到?