Не могу авторизоваться вконтакте

[xrenomx]

Вроде все просто,а выдает ошибку...

procedure TForm1.Button1Click(Sender: TObject);
var
html:string;
begin
IdHttp1.HandleRedirects:=true;
try
html:=IdHttp1.Get('vk.com/login.php?email'+Edit1.Text+'&pass='+Edit2.Text);
except
end;
If Pos('logout',html)<>0 then
Memo1.Lines.Add('Done')
else
Memo1.Lines.Add('False');
end;

Помогите кто-нить)

[Человек_Борща]

Кукисы кукисы.. Года 2 назад, этот код работал.

[xrenomx]

...мне почему-то пишет ошибку сокета #10061

[Delphi_ProGer]

Авторизация через m.vk.com

Log := Idhttp.Get('https://login.vk.com/?act=login&to=&from_host=m.vk.com&from_protocol=http&pda=1&email='+aLogin+'&pass='+aPass);
  if Pos('http://m.vk.com:80/', IdHTTP.URL.URI)<>0 then
//удачно!

Не забудьте подключить IdSSLIOHandlerSocket к IdHTTP.
А также нужны библиотеки libeay32.dll и ssleay32.dll

[xrenomx]

Решил попробовать по-другом...взято отсюда так же не удается :\

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='+Edit1.Text); // логин для авторизации
 data.Add('pass='+Edit2.Text);  // пароль для авторизации
 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('Авторизация удалась');
  end
 else
  Memo1.Lines.Add('Авторизация не удалась');

 Data.Free;
end;

[Кольша]

Года 2 назад, этот код работал.

почему он и щас работает просто надо обработать исключение

try
html:=IdHttp1.Get('vk.com/login.php?email'+Edit1.Text+'&pass='+Edit2.Text);except
if IdHttp1.resultcode=302 then begin
///тут надо вытащит кукуи из raw я просто код не помню до конца на форуме есть тем там все описано про куки
end else showmessage('Не удалось');

[xrenomx]

Так уже что-то,но пишет что авторизация не удалась,данные вроде верно ввожу.

begin
IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=true;
 try
  html:=IdHTTP1.Get('http://vk.com/login.php?email='+Edit1.Text+'&pass='+Edit2.Text);
 except
 end;
 if Pos('logout', html)<>0 then
  Memo1.Lines.Add('Авторизация удалась')
 else
  Memo1.Lines.Add('Авторизация не удалась');
end;

[Delphi_ProGer]

вам нудно именно на вк.ком?

[xrenomx]

Ну да,мобильная версия не нужна(

[xrenomx]

Попробовал вот так,тоже не вышло

var
a:string;
data:TStringList;
begin
Idhttp1.HandleRedirects:=True;
idhttp1.AllowCookies:=true;

Data:=Tstringlist.Create;
Data.Add('q=1');
Data.Add('al_frame=1');
Data.Add('from_host=vk.com');
Data.Add('from_protocol=http');
Data.Add('pass='+Edit1.Text);
Data.Add('email='+Edit2.Text);

a:=IdHTTP1.Post('https://login.vk.com/?act=login', data);
If Pos('logout',a)<>0 then
application.MessageBox('','TRUE',MB_OKCANCEL)
else
application.MessageBox('','FALSE',MB_OKCANCEL);
end;

А вот нашел функцию кука,но че-то я не разобрался с ней и куда ее впихивать тоже не понял.

var
sBuff:array [1..6000] of char;

function redirect(sBuff:string):string;
var
text:string;
  Begin
    text:=trim(copy(sBuff,pos('/id',sBuff),pos('Content-Encoding',sBuff)-pos('/id',sBuff)));
    result:=text;
  End;