Вид авторизации ВК [Delphi]

Ку всем, при этом запросе каким то образом акк не логинится, а просто переходит на страницу этого человека.
Руками проверял, работает, через прогу не пашет.

Code:

IdHTTP1.Get('http://vkontakte.ru/login.php?email=логин&pass=пасс');

 

Реализуй поддержку переходов по редиректам и работу с Cookies. Скорее всего, должно помочь.

 

подключил куки, включил хэндл редирект, все так же

 

Выложи свой код или перехвати все отправляемые пакеты с помощью сниффера и выложи их здесь, чтобы было более менее понятно.

 

HTML:

IdHTTP1.Get('http://vkontakte.ru/login.php?email='+Edit1.Text+'&pass='+Edit2.Text);

 

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

Code:

function Pars(T_, ForS, _T: string; CaseSensitive:Boolean): string;
var
  a, b: integer;
begin
  Result := '';
  if (ForS = '') then
    Exit;
    if T_='' then a:=1
    else
    if CaseSensitive then a := Pos(T_, ForS)
    else a := Pos(UpperCase(T_), UpperCase(ForS));
    if a = 0 then
      Exit
    else
      a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  if _T='' then b:=Length(forS)+1
  else
   if CaseSensitive then b := Pos(_T, ForS)
    else b := Pos(UpperCase(_T), UpperCase(ForS));
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

function auth(mail, pass: string): string;         {Функция авторизации}
var
  l, nach, kon, res, c: string;
  h:tidhttp;
begin
  h:=tidhttp.Create();
  h.HandleRedirects:=false;
  l := 'http://login.vk.com/?act=login&email=' + mail + '&pass=' + pass +
    '&expire=&vk=';
  try
    res := h.Get(l);
  except
    if pos('hash',h.Response.Location)>0 then
    begin
      try
      res:=h.Get(h.Response.Location);
      except
      auth := pars('remixsid=', h.Response.RawHeaders.GetText,'; expires',false);
      end;
    end
    else
      auth:='0';
  end;
end;

 

А этот параметр ты не парсишь?

HTML:

 <input type="hidden" name="ip_h" value="8a9ge3c5d5d30e575b" />

Вроде и без него можно авторизоваться, но думаю, это временно.

Я так слал (https)

Выдрать и потом перейти по этому

В ответе будут куки. Ну я так авторизовывался.

 

кэп,проблема как бы была в другом.

спс, так и сделал уже=)