Ebay Login

[Natcree]

Hallo ich habe vor mit meinem prog mich in meinem ebay account einzuloggen. Dort information zu meinen Käufen und Verkäufen auslesen. Mittels der Twebbrowser Kompo klappt es hab es dauert mir zu lange. Nun Will ich mit den Indy komponenten es versuchen scheitere jedoch immer am Login.

Indyversion 9.1 ist installiert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
params:TStringList;
i:integer;
htmlcode:string;
begin
  params:=tstringlist.create;
  Params.Add('MfcISAPICommand=SignInWelcome');
  Params.text:=Params.text + 'a1%3Dna~a2%3Dna~a3%3Dna~a4%3DMozilla~a5%3D' + 'Netscape~a6%3D5.0%20(Windows%3B%20de)~a7%3D20090715~a8%3Dna~a9%3Dtrue~a10%3DWindows%20NT%206.0~a11%3Dtrue~a12%3DWin32~a13%3Dn' + 'a~a14%3DMozilla%2F5.0%20(Windows%3B%20U%3B%20Windows%20NT%206.0%3B%20de%3B%20rv%3A1.9.1.1)%20Gecko%2F20090715%20' + 'Firefox%2F3.5.1~a15%3Dtrue~a16%3Dde~a17%3Dna~a18%3Dsignin.ebay.de~a19%3Dna~a20%3Dna~a21%3Dna~a22%3Dna~a23%3D1680~a24%3D10' + '50~a25%3D32~a26%3D1020~a27%3Dna~a28%3DTue%20Jul%2021%202009%2017%3A04%3A13%20GMT%2B0200~a29%3D2~a30%3Ddef%7Cqt6%7Cqt5%7Cqt4%7Cqt3%7Cqt2%7Cqt1%7Cpdf' + '%7Cmso%7Cswf%7C~a31%3Dyes~a32%3Dna~a33%3Dna~a34%3Dno~a35%3Dno~a36%3Dyes~a37%3Dno~a38%3Donline~a39%3Dno~a40%3DWindows%20NT%206.0~a41%3Dno~a42%3Dno~a43%3D';  //musste den string in mehrere substrings aufteilen, da er du lang war
  Params.Add('inputversion=2');
  Params.Add('lse=true');
  Params.Add('lsv=10.0.22');
  Params.Add('mid=AQAAASJINcJdAAUxMjI2NGMwNGJiNy5hMDkwYjczLjc4MjA3LmZmZmZhNjNhADiP0v8hOAsKF2E%2BWA38MVbzj8k*');
  Params.Add('kgver=1');
  Params.Add('kgupg=1');
  Params.Add('kgstate=r');
  Params.Add('omid=');
  Params.Add('hmid=AQAAASJINcJdAAU2NGMwNTU4ZjEyMjBhMDZjMjE2MDVmYzBmZmU1Y2I0YiwwLC0x82UUzbPa7XWixDDVYkW%2Fdqn1cns*');
  Params.Add('siteid=77');
  Params.Add('co_partnerId=2');
  Params.Add('UsingSSL=1');
  Params.Add('ru=');
  Params.Add('pp=');
  Params.Add('pa1=');
  Params.Add('pa2=');
  Params.Add('pa3=');
  Params.Add('i1=-1');
  Params.Add('pageType=-1');
  Params.Add('rtmData=A01=AEABtISBEAAAAAAAQCIEqv9sAMSIs7yMvkojwiPBJ+Qk5LBL/CRiBo4HQSSAKlGksJg4JAK;M01=AIAAHKAIAAMoQBBgAQcABGEYQAkAG;TC01=QEguYX3pIBAAAQQLiUABAAAAAAAkACECVAA/2zSoAjECAC2dZAAMzLJg0RYJUfCSA5DRGAyXCWAEnfhIAJGgCY/ASAlEgC4SDSAtJgIAJnAoAG;PS=T.0');
  Params.Add('userid=' + Memo1.Lines[i]);
  Params.Add('pass=' + Memo2.Lines[i]);
  HTMLCode:=IdHTTP1.Get('https://signin.ebay.de/ws/eBayISAPI.dll?co_partnerid=2&siteid=77&UsingSSL=1');

  IdHTTP1.Request.Referer := 'https://signin.ebay.de/ws/eBayISAPI.dll?SignIn';
  IdHTTP1.Request.Host := 'signin.ebay.de';
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';

  memo3.text:=IdHTTP1.Post('https://signin.ebay.de/ws/eBayISAPI.dll?co_partnerid=2&siteid=77&UsingSSL=1', Params);

  IdHTTP1.Request.Referer := '';
  IdHTTP1.Request.Host := '';
  IdHTTP1.Request.ContentType := '';
end;

Es Klappt einfach nicht. Woran kann es liegen?