25.08.2015, 03:01
|
Новичок
|
|
Регистрация: 21.05.2015
Сообщения: 55
Версия Delphi: Rad Studio 10
Репутация: 10
|
|
Авторизация на ok.ru
Добрый день, что-то не могу авторизоваться:
Код:
procedure Ts.Button1Click(Sender: TObject);
var
log, pass,vhod,v:string;
data:tstringlist;
begin
idhttp2.Request.UserAgent:='Opera/9.80 (Windows NT 6.2; Win64; x64; U; ru) Presto/2.10.289 Version/12.01';
idhttp2.Request.Host:='m.ok.ru';
idhttp2.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
idhttp2.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
data:=tstringlist.Create;
log:=login.Text;
pass:=password.Text;
begin
vhod:=idhttp2.Get('http://m.ok.ru/');
v:=Pars('prevCmd=main&tkn=',vhod,'"');
memo1.Lines.Add(v);
Data.Add('st.posted=set');
Data.Add('st.email='+login.Text);
Data.Add('st.password='+password.Text);
Data.Add('button_go=Войти');
vhod:=idhttp2.Post('http://m.ok.ru/dk?bk=GuestMain&st.cmd=main&_prevCmd=main&tkn='+v, data);
memo1.Lines.Add(vhod);
Data.Free;
end;
end;
Что тут не так подскажите пожалуйста?
Последний раз редактировалось Stanei, 25.08.2015 в 03:05.
|