Не выходит авторизация Vkontakte.ru

[Smile93]

Здравствуйте, помогите с авторизацией вконтакте на Delphi 7, просьба не кидать миллион ссылок и говорить : ой да таких тем, сиди ищи... Я только начинаю программировать и сидел до последнего момента обходя все сылки посты и т.п по vkontakte.ru. Если не трудно кинуть не тупо код, а обьяснить более менее с авторизацией, что нужно и как что действует. Зарание спасибо за понимание. Вот что я набросал... :

procedure TForm1.BitBtn1Click(Sender: TObject);
var param,response:tstringlist; i:integer;
begin
param := TStringList.Create;
IdHTTP1.HandleRedirects:=true;
response := TStringList.Create;
param.Add('email='+email.Text);
param.Add('pass='+pass.Text);
response.Text := idhttp1.Post('http://vkontakte.ru/?act=login', param);

if Pos('value=',response.Text)>0 then
begin
param.Clear;
response.Text := Stringreplace(response.Text,'''',#1 3,[rfreplaceall,rfignorecase]);
form2.Memo1.Lines := response;
for i := 0 to response.Count-1 do
begin
response[i]:=trim(response[i]);
if response[i]='value=' then
begin
param.Add('s='+response[i+1]);
end;
//---
response.Text := idhttp1.Post('http://vkontakte.ru/login.php?email='+email.Text+'&pass ='+pass.Text+'&expire=&vk=', param);
param.Free;
end;

form2.Memo1.Lines := response;

if Pos('<b>Online</b>',response.Text)>0
then showmessage('Çàëîãèíèëèñü !');
if Pos('/login.php',response.Text)>0
then showmessage('Íåóäà÷íàÿ ïîïûòêà .');
end;
end;

end.

[Arigato]

А Вы посмотрите для начала, как браузер авторизируется. Там не всё так просто.

[Smile93]

я понимаю что не так все просто, так как сижу дней 6 над авторизацией...

[Usov]

может быть две проблемы:
1) не разобрался с авторизацией (отсниферить как это делает броузер и прога и сравнить)
2) проблема с компонентами Indy - не все версии правильно работают

[Arigato]

Usov
1-й пункт точно, т.к. для авторизации там делается запрос ещё на некоторый совсем другой домен, чего в коде нет.
Но помогать нет желания, т.к. достали уже эти спамщики ВКОнтакте, растут тут как грибы.

[Smile93]

Arigato, хм.. во первых я делаю программу для себя и знакомых, если у вас нету времени помочь хорошо, но ненадо тут говорить что кругом спамеры..
Usov, Инди последняя. Авторизация проходит через 2 домена. вк.ком и вконтакте.ру...

[Usov]

Логинится в три прыжка, может достаточно будет и двух, пример (D7+Indy10.2.3):

[Arigato]

Smile93
И какой Вам смысл логиниться ВКонтакт, что за задача?

[Smile93]

Arigato , я же говорю, начинаю програмировать на дэлфи, хочу написать авторизацию и дальше уже думать насчет набора функций (инвайтинг, умная аватарка, смена статуса..)
Usov , сейчас погляжу, спасибо.

[vvn94]

Мне тоже интересна эта тема.
Usov, у меня твой пример, можно сказать, не работает. Работаю в Delphi 7+Indy 10.5.5. Ты там в программе после каждого HTTP запроса сохраняешь полученый текст в HTML файл, так вот после запроса на login.vk.com сохраняется нормальная залогиненая страница, а вот после третьего (на vkontakte.ru/login.php) сохраняется пустая страница. То есть логин как бы проходит, но после этого сразу выбрасывает с сайта.

Я тоже пытался написать и у меня точно такая же проблема возникла.