Доброго времени суток! В общем пытаюсь авторизоваться вконтакте через Delphi Indy без всякого API вконтакте, ну так нужно... Разумеется искал я и нашел просто фантастическое количество способов авторизации, но увы все они уже не актуальны значит нужно сделать свой сначала, думаю все действия лучше производить через
http://m.vk.com/ так как основной сайт забит всякими js и ajax query и ещё всякой мутней.
И так что мы имеем?
http://m.vk.com/ форма отправляет
https://login.vk.com/act=login&_orig...ole=pda&utf8=1 причем указан тег novalidate и параметры email и pass всё так просто?
Код:
Idhttp1.AllowCookies:=true;
Idhttp1.HandleRedirects:=true;
Data:=TstringList.Create;
Data.Add('email='+Edit1.Text);
Data.Add('pass='+Edit2.Text);
Memo1.Text := IdHTTP1.Post(link, Data);
if Pos('Не удается войти', Memo1.Text) <> 0 then
begin
if Pos('Выход', Memo1.Text) <> 0 then
Memo2.Lines.Add('Авторизация прошла успешно')
else
Memo2.Lines.Add('Ошибка авторизации');
end
else Memo2.Lines.Add(Пожалуйста, проверьте правильность введенных данных');
Data.Free;
Админ: Напоминаю про оформление кода. При рецедиве - бан.
Но элементарно условия не срабатывают потому что выходит ошибка IOHandler value is not valid то есть идёт редирект на https? на мобильной то версии? или что за зло там твориться?
Есть у кого нибудь уже готовый кусок кода простой авторизации вконтакте без API вконтакте желательно для мобильной версии?