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

[mkinzler]

Hier wäre ein Zugriff auf über das DOM besser geeignet

[admiralkirk]

könntest du mir erklären was ein dom ist und mir gegebenen falls ein beispiel code posten

danke für deine schnelle antwort
mfg admiralkirk

[mkinzler]

Fahr mit der Maus über das Word DOM.
Das Document Object Modelist der interne Aufbau einer webseite im Browser

[admiralkirk]

ich hab schon sehr lange gegoogelt ...
Habe nur herrausgefunden das ich eventuell über den html quelltext der seite das:
<input name=btnI type=submit value="Auf gut Glück!">
einen Button.Click oder form command benutzen kann.
Bin jedoch was delphi angeht kompletter neuling. Vll bist du ja so net und könntest mir einen beispiel code geben

[mkinzler]

Die Suche findet u.a. dies

[admiralkirk]

danke ich werds mir mal anschauen

[admiralkirk]

ich habe mir den beitrag angeschaut und versucht es zu übernehemen jedoch sind bei mir die begriffe
var WebBrowser1.Navigate WebBrowser1.ReadyState >= READYSTATE_COMPLETE; WebBrowser1.OleObject.document; rot unterstrichen, wie als würde etwas im uses fehelen.
wenn ja was muss ich reinschrieben oder liegt es an etwas anderem?

[mkinzler]

Der Code bezieht sich auf die TWebbrowser-Komponente
In deinem Fall brauchst du die OLE/COM-Referenz auf den externen Browser

[admiralkirk]

Zitat von mkinzler:

Der Code bezieht sich auf die TWebbrowser-Komponente
In deinem Fall brauchst du die OLE/COM-Referenz auf den externen Browser

Und was müsste ich jetzt in meinem fall bei uses eingeben ?

danke für deine bemühungen