И снова Вконтакт :)

[W0LF]

Не проверял, но если продолжить работу с IdHTTP до его Free, то должно работать нормально...

[fezilk24]

Сейчас еще раз попробую что-нибудь из тех вариантов.
отпишусь

[fezilk24]

procedure TForm1.Button1Click(Sender: TObject);
var data:tstringlist;
      PageProfile:string;
      error:boolean;
begin
 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;
 data:=tstringlist.create;
 data.Add('email=mylogin'); // логин для авторизации
 data.Add('pass=mypass');  // пароль для авторизации
 data.Add('expire=');
 data.Add('vk=');
 error:=false;
 try
  PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
 except
  error:=true;
 end;

 if not(error) then
  begin
   data.Clear;
   data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
   data.Add('op=slogin');
   data.Add('redirect=1');
   data.Add('expire=0');
   data.Add('to=');
   IdHTTP1.HandleRedirects:=true;
   try
    PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
   except
   end;
   Memo1.Lines.Add('Авторизация удалась');
   Memo1.Lines.Add(idhttp1.Get('http://vkontakte.ru')) ;
  end
 else
  Memo1.Lines.Add('Авторизация не удалась');

 Data.Free;
end;

Первый способ. В сниффере:
- 00:21:36.046 Project1.exe[2736] (Count=4, Sent=1,18 K, Received=25,72 K, ElapsedTime=5,580 s)
POST 200 1,30 K text/html http://login.vk.com/?act=login
POST 302 607 text/html http://vkontakte.ru/login.php /nick
POST 200 9,09 K text/html http://vkontakte.ru/nick
GET 200 14,73 K text/html http://vkontakte.ru/

Видно, что авторизация срабатывает, но при Гет запросе выкидывает на главную. IdCookieManager1 подключен, редиректы и куки включены.

[fezilk24]

[[удалено]]

[fezilk24]

актуально!

попробовал третий способ - не работает вообще.

[Pasha_Sh]

Стучи в асю, помогу с авторизацией

[kangreon]

Авторизация вконтакте

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : TStringList;
  s, email, pass, text : string;
begin
  email := 'user@tut.by';
  pass := 'qwerty';
  sl := TStringList.Create;
  sl.Add('email=' + email + '&pass=' + pass + '&expire=&vk=');
  text := IdHTTP1.Post('http://login.vk.com/?act=login',sl);
  s := Copy(text,Pos('name=' + #39 + 's' + #39,text)+16,PosEx(#39,text,Pos('name=' + #39 + 's' + #39,text)+17)-Pos('name=' + #39 + 's' + #39,text)-16);
  IdHTTP1.Request.CustomHeaders.Add('Cookie:remixchk=5; remixsid=' + s);
  
  // Проверка
  IdHTTP1.Get('http://vkontakte.ru/mail.php');
  IdHTTP1.Get('http://vkontakte.ru/groups.php');
end;

[fezilk24]

kangreon, не представляешь, как я рад!!

Спасибо тебе огромное! всё работает!


PS. Ув. Модеры, просьба не закрывать тему, т.к. вопросы еще появятся

[fezilk24]

Вот и вопрос:

при http1.get('http://vkontakte.ru/profile.php');
вылетает ошибка 404,
при
http1.get('http://vkontakte.ru');
на страницу авторизации кидает

mail.php грузится нормально.

[MadReason]

vkconnect.zip

пример логина и работы с TWebBrowser, может чем поможет