Mit Delphi einen Button im Browser anklicken !

[admiralkirk]

Hi Leute,
ich hab einen ganz einfachen Code zum starten des Standardbrowser mit einer bestimmten Seite und zum klicken auf den "Auf gut Glück" Button bei google, durch drücken der Tab und Enter taste mit Keybd_Event(für mozilla firefox).

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, StdCtrls, ImgList, ExtCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure XPColorMap1ColorChange(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, nil , 'http://google.de', nil, nil, SW_SHOWNORMAL);
sleep(2500);
Keybd_Event (VK_TAB, 1, 0, 0);
sleep(20);
Keybd_Event (VK_TAB, 1, 0, 0);
sleep(150);
Keybd_Event (VK_RETURN, 1, 0, 0);
sleep(1500);
close();
end;

end.

Jedoch ist die anzahl der Tabs bei IE und Mozilla Firefox unterschiedlich.
So also meine frage gibt es eine möglichkeit durch zb den quelltext der seite und der id des buttons, den button direkt anzuklicken?

danke im vorraus

mfg

admiralkirk