Авторизация [Delphi]

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by ilyhamas, 8 Feb 2011.

  1. ilyhamas

    ilyhamas Banned

    Joined:
    25 Oct 2009
    Messages:
    48
    Likes Received:
    2
    Reputations:
    0
    Делаю небольшой софт для вконтакте. Пытаюсь получить авторизацию по списку акков.

    Code:
    for i:=0 to memo1.Lines.Count-1 do begin
    Data := TStringList.Create;
    login:= memo1.Lines[i];
    login:= copy(login, 1, pos(':', login) - 1);
    pass:= memo1.Lines[i];
    delete(pass, 1, pos(':', pass));
    
      Data.Add('email=' + login);
      Data.Add('pass=' + pass);
      Data.Add('expire=');
      Data.Add('vk=1');
    
      Page.Text:=idhttp1.Post('http://vkontakte.ru/login.php', data);
      if pos('logout',Page.Text)= 0 then begin
      memo2.Lines.Add(memo1.Lines.Strings[i]+' - ошибка');
      end
      else
        memo2.Lines.Add(memo1.Lines.Strings[i]+' - авторизация выполнена');
     data.clear;
    end;
    ...
    После авторизации первого акка идёт редирект на его станицу. У всех последующих редирект идёт на страницу первого, хотя post передаются разные.
    Что не так делаю?
     
  2. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    cookie?
     
  3. ilyhamas

    ilyhamas Banned

    Joined:
    25 Oct 2009
    Messages:
    48
    Likes Received:
    2
    Reputations:
    0
    Cookie := TidCookieManager.Create(nil);
    idhttp1.CookieManager := cookie;
    ______________________________
    W!z@rD, спасибо. Понял в чём проблема
     
    #3 ilyhamas, 8 Feb 2011
    Last edited: 8 Feb 2011
  4. Pyhin

    Pyhin Member

    Joined:
    25 Oct 2008
    Messages:
    1
    Likes Received:
    32
    Reputations:
    0
    Чисти куки на каждом витке цикла