[delphi] allegro + logowanko

0

Witam,
mam problem z zalogowaniem sie na allegro...
zazwyczaj na co niektorych stronach logowalem sie za pomoca delphi 7 personal + indy 9 i szlo ladnie i sprawnie... lecz z allegro juz nie daje rady...
Obszukalem cale forum oraz pytalem google na rozne sposoby - dzialajacego sposobu na dzien dzisiejszy nie znalazlem...

Czy ktos w temacie moglby mi pomoc ? jakis example code przedstawic ?
To nie zlecenie zadne, ale jesli ktosby zapodal np prosty przyklad dzialajacy to chetnie podesle $ na 2-3 piwka... [browar]
pozdrawiam

0

A czy te strony tez miały logowanie przez SSL ? Spróbuj na wersji bez SSL (http://allegro.pl/enter_login.php) czy zadziała. Poza tym czy nie łatwiej do takich celów wykorzystywać AutoIt ?

0

probowalem wlasnie bez ssl , pewnie kod musi byc oparty o obsluge ssl a z tym to ja nigdy do czynienia nie mialem....
AutoIT? nie dzieki, chce wyslac posta i odebrac teskt ze zalogowano... to tyle

0
var
  strData: string;
  PostData: OleVariant;
  Headers: OleVariant;
  i: Integer;
begin
  {1. you must create a string with parameter names and values
  Result string must be in the next format:
  Param1=Value1&Param2=Value2&Param3=Value3...}

  strData := 'user_login=' + '****' + '&' + 'user_password=' + '*****' ;

  {2. you must convert a string into variant array of bytes and
   every character from string is a value in array}
  PostData := VarArrayCreate([0, Length(strData) - 1], varByte);

  { copy the ordinal value of the character into the PostData array}
  for i := 1 to Length(strData) do
    PostData[i-1] := Ord(strData[i]);

  {3. prepare headers which will be sent to remote web-server}
  Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;

  {4. you must navigate to the URL with your script and send as parameters
  your array with POST-data and headers}
    WebBrowser1.Navigate('http://allegro.pl/login.php?request_server=allegro.pl&', EmptyParam, EmptyParam, PostData, Headers);

Skopiowane z bota - powinno działać - zmien * na login i pass i powinno sie zalogowac
Oczywiscie został tu użyty komponent TWebBrowser.

0

Witam, powyzszy kod dziala, nastepuje logowanie... ale to wszystko przez webbrowsera a to nie do konca to czego bym oczekiwal... jednakze dziekuje bardzo.
jesli jednak ktos mialby pomysl na zalogowanie poprzez INDY to pisac :)

0

witam, może mi ktoś co tu jest źle zmodyfikowane przeze mnie w tym kodzie bo jak przekopiowałem to z poprzedniego postu to klikało w przycisk ale nic nie wklejało bo nazwa pola była inna jak wprowadziłem właściwą nazwę pola to wkleja te gwiazdki ale nie klika w przycisk :/

var
  strData: string;
  PostData: OleVariant;
  Headers: OleVariant;
  i: Integer;
begin

  strData:='content=' + '*******';     

  PostData := VarArrayCreate([0, Length(strData) - 1], varByte);

  for i := 1 to Length(strData) do
    PostData[i-1] := Ord(strData[i]);

  Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;

WebBrowser1.Navigate('adres strony', EmptyParam,EmptyParam, PostData,Headers);     //EmptyParam,




end;
0

problem wygląda tak żer teraz wstawia mi do kodu html ten komentarz czyli jest on widoczny w widoku html strony normalnie jak się wpisuje ręcznie to go nie ma natomiast nie zatwierdza mi go dodając go na strone a jak zmienie nazwę pola na wpisywanie tekstu na jaką kolwiek inną to nie wkleja tekstu ale chyba klika w przycisk bo ze strony pisze że treść komentarza nie może być pusta co robić??

0

Po pierwsze - ten kod nie klika w przycisk tylko wysyła POST do strony WWW. Używanie określenia "klika" jest tu wysoko n00barskie.

Po drugie - jaka to strona ?

Po trzecie - popraw swoja pisownie bo ciezko cokolwiek odczytac

0

a jak zrobic zeby Od razu sie na wybrane strony Allegro logowal? tzn zeby np Od razu przeniosilo do dzialu moja sprzedaz - sprzedaje. http://www.allegro.pl/myaccount/sell.php probowalem z tym adresem ale nie dziala.. grrrr. trza sie zalogowac.

0

jeszcze do wczoraj to logowanie działało bez zarzutu, a teraz klops -przestało. Chyba Allegro coś pozmieniało. Może jakieś sugestie ?

1 użytkowników online, w tym zalogowanych: 0, gości: 1