[В]контакте авторизация

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Sunstrider, 16 Apr 2010.

  1. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,022
    Likes Received:
    423
    Reputations:
    234
    Всё равно :(
    me=\ в ярости :mad:
     
    1 person likes this.
  2. Ar2r

    Ar2r New Member

    Joined:
    23 Apr 2010
    Messages:
    20
    Likes Received:
    2
    Reputations:
    0
    дуров наверно сидит и уссывается с нас
     
    1 person likes this.
  3. TrueBit

    TrueBit Member

    Joined:
    21 Nov 2009
    Messages:
    71
    Likes Received:
    19
    Reputations:
    4
    мб этой строки "http://vk.com/profile.php" в "uns" при авторизации нет?
     
  4. Ar2r

    Ar2r New Member

    Joined:
    23 Apr 2010
    Messages:
    20
    Likes Received:
    2
    Reputations:
    0
    посмотри исходник который я выкладывал. там авторизация в несколько этапов с просчётом времяни через таймер идёт. Я авторизовывался через тот пример
     
  5. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    Проверил, работает.
     
    #105 HakaR, 25 Apr 2010
    Last edited: 25 Apr 2010
    1 person likes this.
  6. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,022
    Likes Received:
    423
    Reputations:
    234
    HTTP/1.1 302 found :(
     
    1 person likes this.
  7. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    idhttp1.HandleRedirects := True;
    После begin добавь :( :mad:
     
    #107 HakaR, 25 Apr 2010
    Last edited: 25 Apr 2010
  8. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,022
    Likes Received:
    423
    Reputations:
    234
    всё гуд!

    Кидаем на форму 2 edit, batton, idhttp, IdCookieManager, IdAntiFreeze memo
    На кнопку
    ухх неужели :)
     
  9. Ar2r

    Ar2r New Member

    Joined:
    23 Apr 2010
    Messages:
    20
    Likes Received:
    2
    Reputations:
    0
    это ещё начало гемороя. попробуй теперь загрузи страницу с сообщениями
     
  10. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,022
    Likes Received:
    423
    Reputations:
    234
    у меня все впереди, я только начал кодить
     
  11. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    s:=Copy(uns,Pos('value=',uns)+7,56);
    что в переменую S сохроняеться я не понял
     
  12. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    56 символов после value= из строки uns, вроде так
    Без понятия, я всего лишь указал что делает этот код, фкантагте никогда не работал
     
    #112 GhostOnline, 26 Apr 2010
    Last edited: 26 Apr 2010
  13. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    это единственный способ авторизации ?
     
  14. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    В эту переменную хеш сохраняется, он далее нужен для авторизации.
     
  15. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    да вот рабочий пример!!!!!

    Code:
    var HTTP : TidHTTP;
    
    procedure VK_Login(email, pass: string);
    var
      cookie : TidCookieManager;
      uns     : string;
      Data   : TStringList; 
    begin
      Cookie := TidCookieManager.Create(nil);
      HTTP    := TidHTTP.Create(nil);
      Data    := TStringList.Create;
      HTTP.CookieManager := Cookie;
      HTTP.AllowCookies := True;
      HTTP.HandleRedirects := True;
      HTTP.Request.UserAgent := 'Mozilla/5.0';
    
      Data.Add('email='+email);
      Data.Add('pass='+pass);
     
      Uns := HTTP.Post('http://login.vk.com/?act=login', Data);
      Uns := Copy(uns, 286, 56);
     
      Cookie.AddCookie('remixsid=' + Uns + '; path=/;', 'vkontakte.ru');
      Cookie.AddCookie('remixchk=5; path=/;', 'vkontakte.ru');
    end;
    
    
    чорт1!!!!1!!1 все!!! закройте вы эту тему!!! сколько уже можно в ней писать??? или вам еще примеры какието привести???
     
  16. warkk

    warkk Member

    Joined:
    20 Feb 2009
    Messages:
    139
    Likes Received:
    23
    Reputations:
    0
    Ага))) Можно подробнее)))))
     
  17. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    люди!11!1!1! ололо!!!!1!1! запомните!

    HTTP/1.1 302 Found - это не ошибка!!!! это просто перенаправление!!!!! вываливаеца в виде эксепшена! уууууххххххххх.... закройте пожалуйста эту тему....
     
  18. Sunstrider

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    ураа заработале спасибо добрый человек)
     
  19. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,022
    Likes Received:
    423
    Reputations:
    234
    Подскажите если в этой авторизации вылезла капча
    Как её спарсить и вывести в картинку на форму? текст вводить в edit при нажатии на кнопку что бы продолжался цикл. :)
     
  20. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,022
    Likes Received:
    423
    Reputations:
    234
    Lovemachine, Это точно не то


    upd
    анти-каптчу можно сюда пристроить?
     
    #120 stepashka_, 29 Apr 2010
    Last edited: 29 Apr 2010