16.06.2010, 22:14
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
Авторизовывался в контакте след. кодом :
PHP код:
Post := TStringList.Create;
Response := TStringList.Create;
//1 запрос
Post.Add('op=a_login_attempt');
Response.Text := IdHTTP1.Post('http://vkontakte.ru/login.php',Post);
//2 запрос
Post.Clear;
Post.Add('email=mail');
Post.Add('pass=password');
Post.Add('expire=');
Post.Add('vk=');
Response.Text := IdHTTP1.Post('http://login.vk.com/?act=login',Post);
Post.Clear;
//Парсим хэш
hash := Response.Text;
Delete(hash,1,Pos('value',hash)+6);
Delete(hash,Pos('''',hash),Length(hash));
//3 запрос
Post.Add('s='+hash);
Post.Add('op=slogin');
Post.Add('redirect=1');
Post.Add('expire=0');
Post.Add('to=');
Post.Add('request_method=post');
Response.Text := IdHTTP1.Post('http://vkontakte.ru/login.php',Post);
Сейчас в отпуске. На другой машине скачал дельфи. Набросал код для авторизации, но он не проходит. Хотя буквально неделю назад тем же кодом авторизовывался. В чем проблема, кто подскажет?
Подозреваю что проблема с куками(т.е с самим Delphi)..... |
|
|