| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
http:tidhttp;
vk,request:string;
post:tstringlist;
begin
post := tstringlist.Create;
post.Clear;
http := tidhttp.Create(nil);
http.HandleRedirects := true;
http.ReadTimeout := 30000;
http.Request.UserAgent := 'Mozilla/4.0';
http.Request.Referer := 'http://vkontakte.ru/login.php?u=1';
http.Request.Accept := '*/*';
http.Request.AcceptLanguage := 'ru';
http.Request.ContentType := 'application/x-www-form-urlencoded';
http.Request.Host := 'vkontakte.ru';
http.AllowCookies:=true;
vk := 'http://vkontakte.ru/login.php';
post.Add('email='+edit1.Text);
post.Add('pass='+edit2.Text);
post.Add('try_to_login=1');
post.Add('fail_url=');
post.Add('success_url=');
request := http.Post(vk,post);
memo1.Text := request;
end;
|
В ответ получаю пустую страницу. Если ввести неправильный email или пароль, то в мемо получаю html код http://vkontakte.ru/login.php?u=1 |
