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

[patcher]

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

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

[yfet]

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

[Kata1o]

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

[Sokolik]

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

[GlooK]

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

[Kandi]

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

[Jingo Bo]

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

[Jingo Bo]

Ребят, дайте кто-нить рабочий код для Авторизации ВКонтакте для Delphi7.
Сниффер + 10 минут и готово

[[Life]]

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

[patcher]

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

[Jingo Bo]

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

[warlok]

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

[Kandi]

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

Ну попробуй :D :D :D

[Akum]

Обьясни почему ? все что отправляется можно посмотреть в исходнике страницы.
Cо снифером проще! зачем усложнять себе жизнь? :)

[RedFern.89]

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


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;


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


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