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

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

Page 6 of 6
  1. stepashka_

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

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

    Ar2r New Member

    Joined:
    23 Apr 2010
    Messages:
    20
    Likes Received:
    2
    Reputations:
    0
    дуров наверно сидит и уссывается с нас
     
    #102 Ar2r, 25 Apr 2010
    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" при авторизации нет?
     
    #103 TrueBit, 25 Apr 2010
  4. Ar2r

    Ar2r New Member

    Joined:
    23 Apr 2010
    Messages:
    20
    Likes Received:
    2
    Reputations:
    0
    посмотри исходник который я выкладывал. там авторизация в несколько этапов с просчётом времяни через таймер идёт. Я авторизовывался через тот пример
     
    #104 Ar2r, 25 Apr 2010
  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 :(
     
    #106 stepashka_, 25 Apr 2010
    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
    На кнопку
    ухх неужели :)
     
    #108 stepashka_, 25 Apr 2010
  9. Ar2r

    Ar2r New Member

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

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

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

    Sunstrider Banned

    Joined:
    9 Apr 2010
    Messages:
    152
    Likes Received:
    10
    Reputations:
    4
    s:=Copy(uns,Pos('value=',uns)+7,56);
    что в переменую S сохроняеться я не понял
     
    #111 Sunstrider, 26 Apr 2010
  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
    это единственный способ авторизации ?
     
    #113 Sunstrider, 26 Apr 2010
  14. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    В эту переменную хеш сохраняется, он далее нужен для авторизации.
     
    #114 HakaR, 26 Apr 2010
  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 все!!! закройте вы эту тему!!! сколько уже можно в ней писать??? или вам еще примеры какието привести???
     
    #115 RedFern.89, 26 Apr 2010
  16. warkk

    warkk Member

    Joined:
    20 Feb 2009
    Messages:
    139
    Likes Received:
    23
    Reputations:
    0
    Ага))) Можно подробнее)))))
     
    #116 warkk, 27 Apr 2010
  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 - это не ошибка!!!! это просто перенаправление!!!!! вываливаеца в виде эксепшена! уууууххххххххх.... закройте пожалуйста эту тему....
     
    #117 RedFern.89, 27 Apr 2010
  18. Sunstrider

    Sunstrider Banned

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

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

    Joined:
    9 Nov 2009
    Messages:
    1,022
    Likes Received:
    423
    Reputations:
    234
    Подскажите если в этой авторизации вылезла капча
    Как её спарсить и вывести в картинку на форму? текст вводить в edit при нажатии на кнопку что бы продолжался цикл. :)
     
    #119 stepashka_, 29 Apr 2010
  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
(You must log in or sign up to post here.)
Page 6 of 6
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.