BUtton auf webseite drücken!

[la.reunion]

Danke für die antwort!

Aber ich peil das immernoch nicht wo ich den "free" button definieren muss

....


Das der bisherige code er funktioniert aber nicht was amche ich falsch

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;

procedure SubmitWebForm(webform:OleVariant);
var
   i : Integer;
   formitem : OleVariant;
   itemtype, itemname : string;
begin
   // Schleife über alle Items eines WebFormulars
   For i:= webform.Length-1 downto 0 do
   begin
      formitem := webform.Item(i);
      itemtype := UpperCase(formitem.Type);
      itemname := UpperCase(formitem.Name);

      // if it's a submit button: click it
      if itemtype = 'SUBMIT' then
      begin
         formitem.Click;
         Exit;
      end
      else if (itemtype='BUTTON') and (itemname='Free') then
      begin
         formitem.Click;
         Exit;
      end
   end;

   // try default submit Method
   webform.submit;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   formitem : OleVariant;
   itemtype, itemname : string;
begin
if (itemtype='BUTTON') and (itemname='Free') then
      begin
         formitem.Click;
         Exit;
      end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
SubmitWebForm(WebBrowser1.OleObject.document.forms.Item(0));
end;

end.