помогите найти ошибку

[TwiX]

Вот моя функция:

procedure TForm3.logIn(html: TStringList);
var
  s: string;
  html2: TStringStream;
  response: TMemoryStream;
  params: TStringList;
  time:TDateTime;
begin
  html2 := TStringStream.Create;
  params := TStringList.Create;
  params.add('email=twix1124@rambler.ru');
  params.Add('pass=bcgjkmpeqfynbxbn');
  //params.add('expire=');
  params.add('act=login');
  try
    HTTP.Post('http://login.vk.com/', params, html2);
  except
  end;
  params.Clear;
  s := strParse(strParse(html2.DataString), 'id=''s'' value=''', ''' /', 0);
  params.Add('s=' + s);
  params.Add('op=slogin');
  params.Add('redirect=1');
  html2.Free;
  response := TMemoryStream.Create;
  try
    http.Post('http://vkontakte.ru/login.php', params,response);
  except

  end;
  //HTTP.Post('http://vkontakte.ru/login.php', params, html2);
  response.Position:=0;
  html.LoadFromStream(response);
  response.Free;
  params.free;
end;

  s := strParse(strParse(html2.DataString), 'id=''s'' value=''', ''' /', 0);

В переменную s забиваем значения с полученной страницы.
Незабываем ставить handleRedirects в True...

[DeDoK]

смотрел что шлет снифер - одни пост запросы. т.е страница с приложениями не приходит. почему?

[DeDoK]

блин( кто может реально помочь - стукните в асю плиз. в долгу не останусь(((

[Lime]

Сообщение от TwiX

params.add('email=twix1124@rambler. ru');
params.Add('pass=bcgjkmpeqfynbxbn') ;

Зачем это?

[AquaKlaster]

Вот рабочий пример авторизации!
Дополнительная функция для парсинга

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

И сама функция для авторизации:

function TProgramThread.VKAuth(Login, Pass: string): Boolean;
var
  I: Integer;
begin
  try
    Post := TStringList.Create;
    Response := TStringList.Create;
    Post.Add('op=a_login_attempt');
    IdHTTP.Request.Referer := 'http://vkontakte.ru/index.php';
    IdHTTP.Request.CustomHeaders.Add('X-Requested-With: XMLHttpRequest');
    Response.Text := IdHTTP.Post('http://vkontakte.ru/login.php', Post);
    if Pos('vklogin', Response.Text) <> 0 then
    begin
      Post.Clear;
      Post.Add('email=' + Login);
      Post.Add('pass=' + Pass);
      Post.Add('expire=');
      Post.Add('vk=');
      IdHTTP.Request.Referer := 'http://vkontakte.ru/index.php';
      IdHTTP.Request.CustomHeaders.Clear;
      Response.Text := IdHTTP.Post('http://login.vk.com/?act=login', Post);
      Post.Clear;
      Post.Add('op=slogin');
      Post.Add('redirect=1');
      Post.Add('expire=0');
      Post.Add('to=');
      Post.Add('s=' + Pars('id=''s'' value=''', Response.Text, ''' />'));
      IdHTTP.Request.Referer := 'http://login.vk.com/?act=login';
      IdHTTP.Post('http://vkontakte.ru/login.php', Post);
    end;
    IdHTTP.Post('http://vkontakte.ru/login.php', Post);
    Response.Text := IdHTTP.Get('http://vkontakte.ru/');
    if Pos('logout', Response.Text) <> 0 then
    begin
      Form1.Log1.Lines.Add('Вошли под ' + Login);
      Result := True;
    end
    else
    begin
      Result := False;
      Form1.Log1.Lines.Add( 'Ошибка при входе на ' + Login);
    end;
  finally

  end;
end;