Авторизация vkontakte

[fate]

счас только что закончил писать код авторизации, работает и без обновление инди.
Если нужно скину

[XerSon]

Скинь, для всеобщего развития!

[fate]

только нужен модуль для работы с регулярными выражениями

procedure TForm1.Button1Click(Sender: TObject);
var   LoginInfo: TStringList;
  Response: TStringStream;
  Location,html,id,cookie,id2:string;
  var reg:TRegExpr; n:integer;
begin
LoginInfo:=TStringList.Create();
Response:= TStringStream.Create('');
reg:=TRegExpr.Create;

reg.Expression:='(parent.onLoginDone)([^\/]+)([^\)]+)';


LoginInfo.Add('act=login');
LoginInfo.Add('q=1');
LoginInfo.Add('al_frame=1');
LoginInfo.Add('expire=');
LoginInfo.Add('captcha_sid=');
LoginInfo.Add('captcha_key=');
LoginInfo.Add('from_host=vkontakte.ru');
LoginInfo.Add('email=логин');
LoginInfo.Add('pass=пароль');

    IdHTTP1.Request.UserAgent:='Opera/9.50 (Windows NT 5.1; U; MRA 5.6 (build 03278); ru)';
    IdHTTP1.Request.Host:='login.vk.com';
    IdHTTP1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    //IdHTTP1.Request.AcceptEncoding:='gzip,deflate';
    IdHTTP1.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    IdHTTP1.Request.Referer:='http://vkontakte.ru/al_index.php?act=auth_frame&nqr=';
    IdHTTP1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
try
 IdHTTP1.Post('http://login.vk.com/?act=login',LoginInfo,Response);
 except
   Location:=IdHTTP1.Response.Location;
   html:=IdHTTP1.Get(Location);

   For n:=0 To IdHTTP1.Response.RawHeaders.Count-1 Do
       If IdHTTP1.Response.RawHeaders.Names[n]='Set-Cookie' Then
           cookie:=IdHTTP1.Response.RawHeaders.ValueFromIndex[n];


 IdHTTP1.Request.CustomHeaders.Add('Cookie: remixchk=5;audio_vol=70;remixmid=;remixsid='+copy(cookie,1,length(cookie)-abs(pos(';',cookie)-length(cookie)) )+'remixgid=; remixemail=; remixpass=');

   if reg.Exec(html) then begin
   id:=reg.Match[3];
    SetLength(id,length(id)-1);
     html:=IdHTTP1.Get('http://vkontakte.ru/al_profile.php?__query='+copy(id,2,length(id)-1)+'&al=-1&al_id=0'); end
   else ShowMessage('Íå íàøåë id');
end;
//html:=Response.DataString;

LoginInfo.Text:=html;
LoginInfo.SaveToFile('vk.html');
ShellExecute( Handle, 'open', 'vk.html', nil, nil, SW_NORMAL );


LoginInfo.Free;
Response.Free;
reg.Free;
end;

[XerSon]

Социальная сеть «ВКонтакте» закрыла свободную регистрацию!

С сегодняшнего дня на сайте «ВКонтакте» закрыта свободная регистрация – для создания новой анкеты нужно получить приглашение одного из действующих участников социальной сети

Не актуально уже!

[fate]

Сообщение от XerSon

С сегодняшнего дня на сайте «ВКонтакте» закрыта свободная регистрация

Не актуально уже!

а причем тут регистрация? в посте речь идет о авторизации