WebBrowser Submit problem

[n1m4nd]

Grüßt euch

Ich habe folgendes Problem...

Ich probiere von der http://www.metacrawler.de/sms/ Seite den SMS Versenden Button zudrücken, hab schon alles mögliche probiert, aber irgendwie schmeißt er mich immer raus.

Kann mir da jemand weiterhelfen?

schonmal danke im vorraus...

MFG

[Horst]

Hi, das geht so:

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://www.metacrawler.de/sms/');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.forms.item(0).elements.item(5).click;
end;

Freundliche Grüße
Horst

[Loïs Bégué]

Hmmm...
die Nutzungsbedingungen von MC sollte man besser genau gelesen haben (insb. §6) ;)

[Horst]

Das stimmt natürlich...!! §§§§§
Ich bin von reinem Wissensdurst ausgegangen.

[Freak86]

Ich habe ein ähnliches Problem...

...ich würd gerne eine Seite ausfüllen lassen, wo man Dateien eingeben muss.

z.B.: netload.in

   <div id="Upload_Normal" class="Upload_Container">
      <input type="file" name="file" class="Upload_Field" />
   </div>

Hab mir das so gedacht:

var
  ovElements: OleVariant;
  i: Integer;
begin
  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
  begin
    if (ovElements.item(i).type = 'file') then
      ovElements.item(i).Value:= 'TESTTEST';
  end;

Wenn ich statt type = 'file' -> tagName = 'INPUT' nehme, werden die Loginfelder ausgefüllt. Aber an die Upload-Editbox komm ich irgendwie nicht ran! Woran liegt das? An den Script an der Page oder liegt der Fehler bei mir? Wäre echt super wenn mir da jmd. helfen könnte!