AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Ebay Login geht nicht mehr

Ein Thema von Natcree · begonnen am 22. Jun 2016 · letzter Beitrag vom 25. Jun 2016
Antwort Antwort
Seite 1 von 2  1 2   
Natcree

Registriert seit: 5. Mär 2013
502 Beiträge
 
Delphi 7 Enterprise
 
#1

Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 16:14
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???
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 16:59
Vielleicht heißt der Button mittlerweile anders?
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
t.roller
(Gast)

n/a Beiträge
 
#3

AW: Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 17:21
sgnBtn !
  Mit Zitat antworten Zitat
Natcree

Registriert seit: 5. Mär 2013
502 Beiträge
 
Delphi 7 Enterprise
 
#4

AW: Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 17:26
sgnBtn geht auch nicht ????
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

Registriert seit: 5. Mär 2009
Ort: Hamburg
569 Beiträge
 
Delphi XE8 Professional
 
#5

AW: Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 17:29

type="button"
name="sgnBt"
id="sgnBtn"
Markus H.
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 17:38
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?

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
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
t.roller
(Gast)

n/a Beiträge
 
#7

AW: Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 17:50
Webbrowser1.OleObject.document.forms.item(0).eleme nts.item('sgnBtn').click;
ist richtig, aber der vorangestellte "Rest" ist falsch.
  Mit Zitat antworten Zitat
Natcree

Registriert seit: 5. Mär 2013
502 Beiträge
 
Delphi 7 Enterprise
 
#8

AW: Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 18:06
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.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.014 Beiträge
 
Delphi 12 Athens
 
#9

AW: Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 18:08
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
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
t.roller
(Gast)

n/a Beiträge
 
#10

AW: Ebay Login geht nicht mehr

  Alt 22. Jun 2016, 20:51
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.
Angehängte Dateien
Dateityp: zip EbayLogin.zip (892,3 KB, 10x aufgerufen)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz