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

Ребят, дайте кто-нить рабочий код для Авторизации ВКонтакте для Delphi7.

P.S. не предлагать авторизацию через pda.vkontakte.ru

 

а у кого есть авторизация через pda ? любопытно взглянуть) покажите кому не жалко)

 

http://forum.vingrad.ru/forum/s/1f70f0f48567725ac211911a99f3ce16/topic-270450.html

 

webbrowser1.Navigate('http://vkontakte.ru/login.php?email='+ xpEdit1.Text+'&pass='+ xpEdit2.Text);

 

Могу кинуть на Winsock. Пиши в ПМ.

 

ololo Search ...
http://forum.antichat.ru/thread165316.html
То, что там дал Пуховой работает на Delphi 2010, на 7 не пашет..там ругаеться и виснет) + TIdCompressorZLib отсутствует((( так что Torrent и Delphi 2010 ждёn тебя ))

 

Не помню где находил, но короче на народе ищи "Indy Fixes", там всё что нужно что бы всё что есть в Delphi 2010 в 7 перенести

 

Сниффер + 10 минут и готово

 

А без снифера можно?

 

Всем спасибо, тему можно закрывать) Kata1o, отдельное спасибо)

 

Нет, без сниффера бессмысленно

 

Обьясни почему ? все что отправляется можно посмотреть в исходнике страницы.

 

Ну попробуй

 

Cо снифером проще! зачем усложнять себе жизнь?

 

вот рабочая функция. Писал давно. У меня работает

Code:

function VK_Login(email, pass: string): boolean;
var
 Cookie : TidCookieManager;
 Data, Page : TStringList;
 I : Integer;
 S : string;
begin
 HTTP := TIDHTTP.Create(NIL);
 Cookie := TidCookieManager.Create(nil);
 HTTP.AllowCookies := True;
 HTTP.HandleRedirects := True;
 HTTP.ProtocolVersion := pv1_1;
 HTTP.Request.UserAgent := 'Mozlilla/5.0';
 HTTP.CookieManager := Cookie;

 Data := TStringList.Create;
 Page := TStringList.Create;

 HTTP.Post('http://vkontakte.ru/login.php', Data);

 Data.Add('act=login');
 Data.Add('email=' + email);
 Data.Add('pass=' + pass);

 Page.Text := HTTP.Post('http://login.vk.com/', Data);

 For I := 0 To Page.Count -1 Do
 begin
  If Pos('id=' + #39 + 's' + #39, Page[i]) <> 0 Then
  begin
   S := Page[i];
   S := Copy(s, Pos('value=', s) +7, Length(s));
   Delete(s, Pos(#39, s), Length(s));
  end;
 end;

 Data.Clear;

 Data.Add('op=slogin');
 Data.Add('s=' + s);

 Page.Text := HTTP.Post('http://vkontakte.ru/login.php', Data);

 If Pos('error', Page.Text) <> 0 Then Result := False
 Else Result := True;

 Page.Free;
 Data.Free;
end;

тока добавьте в idCookieManager.pas в процедуре DoAdd две строчки, идущую после строчки ACookie.Domain := LDomain;

Code:

 If ACookie.Domain[1] = '.' Then
 ACookie.Domain := Copy(ACookie.Domain, 2, Length(ACookie.Domain));

иначе авторизация не пройдет из-за точки в ночале домена.