Авторизация "В контакте"

[W0LF]

Зайдите в браузер и попробуйте авторизироваться второй раз, не выйдя из первого аккаунта - у вас не выйдет)

[Lemo]

о, это ты правильно подметил
А как програмно "логофнуться" ?

<a href="http://login.vk.com/?act=logout&vk=&hash=82dfb3b76360f9bcb7">выйти</a>

Хеш то разный ....

ЗЫ я предлагаю парсить...

[fezilk24]

да, я парсил.

а проблему с <http> как решить при загрузке аватарки?

[Пепел Феникса]

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

[fezilk24]

проблемы нет уже, код получения аватара в этой теме кривой был =)

[thecerberus]

у кого-то есть рабочий исходник авторизации и просмотра хотя бы профайла? не могу найти ни один рабочий на сегодняшний день перекидывают на страницу логина..

[raxp]

читайте тему сначала, все приведенные рабочие выше примеры - рабочие ...может стоить подумать, что вы делаете что-нибудь не так?

[kangreon]

thecerberus
#17
http://programmersforum.ru/showthrea...=102781&page=2

[-=M@cintosh=-]

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;
listbox1.Items.Add('Successfully');
end
else
listbox1.items.add('Failed');

Data.Free;
end;

[tigr1991]

Помогите, перестали работать все ранее созданные проги с авторизацией в контакте, включая и этот последний код, ничего не работает. Что за изменения там произошли?