Ebay Login geht nicht mehr

[Natcree]

möchte mich über die Twebbrowser Kompo in meinem Ebay Acount einloggen. was auch bis vor einer Woch klappte. jetzt aber nicht mehr

hier mal mein code für den Login

Delphi-Quellcode:

  webbrowser1.Navigate('https://signin.ebay.de/ws/eBayISAPI.dll?SignIn');
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do begin
  Pause(5);
  end;
  Webbrowser1.OleObject.document.forms.item(0).elements.item('userid').value := 'Benutzername';
  webbrowser1.OleObject.document.forms.item(0).elements.item('pass').value :=  'meinpasswort';
  Webbrowser1.OleObject.document.forms.item(0).elements.item('sgnBt').click;

Er bringt mir jetzt fehlermeldung "Method 'click' not supported by an automation object.

Ich hoffe Ihr könnt mir Helfen???

[Neutral General]

Vielleicht heißt der Button mittlerweile anders?

[t.roller]

sgnBtn !

[Natcree]

sgnBtn geht auch nicht ????

[markus5766h]

Zitat von t.roller:

sgnBtn !

type="button"
name="sgnBt"
id="sgnBtn"

[p80286]

es ist leider zu lange her, daß ich etwas damit gemacht habe, aber

Delphi-Quellcode:

  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do begin
  Pause(5);
  end;

das ist eine Bastellösung, ich müßte heute Abend mal nachschauen wie es besser geht.

Könnte es sein, daß da Frames übertragen werden?

Zitat von Natcree:

Er bringt mir jetzt fehlermeldung "Method 'click' not supported by an automation object.

Ist doch eindeutig, zu dem Zeitpunkt zu dem Du .click aufrufst, ist (noch) nichts zu clicken da.

gruß
K-H

[t.roller]

Webbrowser1.OleObject.document.forms.item(0).eleme nts.item('sgnBtn').click;
ist richtig, aber der vorangestellte "Rest" ist falsch.

[Natcree]

Den rest habe ich jetzt ausgeklammert . ich gebe manuel den benutzernamen und passwort ein und klicke dann
Webbrowser1.OleObject.document.forms.item(0).eleme nts.item('sgnBtn').click; über eine schaltfläche. es passiert nichts.

[himitsu]

eBay hat eine API und die sollte man eigentlich auch benutzen.
Das direkte maschinelle Verarbeiten der normalen Webseite nicht wirklich erlaubt und wenn ich eBay wäre, würde ich da auch ab und an mal ein paar neue Hindernisse einbauen, damit gewisse Leute da Probleme bekommen.

https://go.developer.ebay.com/what-ebay-api
https://go.developer.ebay.com/
https://go.developer.ebay.com/api-documentation

[t.roller]

Hier habe ich eine Lösung: (EXE im Anhang)

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; const URL: OleVariant);
    procedure FormFill(WebBrowser1:TWebBrowser; ElementName, Value: string);
    procedure FormSubmit(WebBrowser1:TWebBrowser; ElementName, Value: string);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  flag:Boolean=False;

implementation

{$R *.dfm}

procedure TForm1.FormFill(WebBrowser1:TWebBrowser; ElementName, Value: string);
var
  i, j: Integer;
  FormItem: Variant;
begin
  for I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser1.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        if FormItem.Item(j).Name = ElementName then
        begin
          FormItem.Item(j).Value := Value;
          Exit;
        end;
      except
        Exit;
      end;
    end;
  end;
end;

procedure TForm1.FormSubmit(WebBrowser1:TWebBrowser; ElementName, Value: string);
var
  i, j: Integer;
  FormItem: Variant;
begin
   for I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser1.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try //when the Submit Button is found click
        if FormItem.Item(j).type = ElementName then
        begin
          FormItem.Item(j).Value := Value;
          FormItem.Item(j).click;
        end;
      except
        Exit;
      end;
    end;
  end;
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  if flag then exit;
  FormFill(WebBrowser1, 'userid', Edit1.Text);
  FormFill(WebBrowser1, 'pass', Edit2.Text);
  FormSubmit(WebBrowser1, 'submit','sgnBt');
  flag := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('https://signin.ebay.de/ws/eBayISAPI.dll?SignIn');
end;

end.