1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Не выходит логин вконтакте

Тема в разделе "Delphi - программирование", создана пользователем vvn94, 19 янв 2010.

  1. vvn94

    vvn94 Гость

    Репутация:
    0
    Собственно вот код. Что неверно, подскажите пожалуйста?
    Код:
     params:=TStringList.Create;
    responseres:=TStringList.Create;
    params.Clear;
    responseres.Clear;
    IdHTTP1.AllowCookies := true;
    IdHTTP1.CookieManager := IdCookieManager1;
    IdHTTP1.HandleRedirects := true;
    IdHTTP1.Request.Host:='login.vk.com';
    IdHTTP1.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
    IdHTTP1.Request.AcceptCharSet:='iso-8859-1, utf-8, utf-16, *;q=0.1';
    IdHTTP1.Request.Referer:='http://vkontakte.ru/index.php';
    IdHTTP1.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
    IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10';
    try
    params.Add('email='+email.Text);
    params.Add('pass='+pass.Text);
    params.Add('vk=');
    responseres.Text:=IdHTTP1.Post('http://login.vk.com/?act=login',params);
    Memo1.Lines:=responseres;
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    params.Clear;
    responseres.Text := Stringreplace(responseres.Text,'''',#13,[rfreplaceall,rfignorecase]);
    for i := 0 to responseres.Count-1 do
    begin
    responseres[i]:=trim(responseres[i]);
    if responseres[i]='value=' then
    params.Add(responseres[i-3]+'='+responseres[i+1]);
    end;
    responseres.Clear;
    IdHTTP1.Request.Referer:='http://login.vk.com/?act=login';
    IdHTTP1.Request.Host:='vkontakte.ru';
    responseres.Text:=IdHTTP1.Post('http://vkontakte.ru/login.php',params);
    Memo1.Lines:= responseres;
    if Pos('logout',responseres.Text)>0 then
    ShowMessage('Залогинились!')
    else
    ShowMessage('Упс..');
    finally
    params.free;
    responseres.free;
    end;
     
Загрузка...

Поделиться этой страницей