[vvn94]

Собственно вот код. Что неверно, подскажите пожалуйста?

Код:

params:=TStringList.Create;
  responseres:=TStringList.Create;
  params.Clear;
  responseres.Clear;
  IdHTTP1.AllowCookies := true;
  IdHTTP1.CookieManager := IdCookieManager1;
  IdHTTP1.HandleRedirects := true;
  IdHTTP1.Request.Host:='login.vk.com';
  IdHTTP1.Request.AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
  IdHTTP1.Request.AcceptCharSet:='iso-8859-1, utf-8, utf-16, *;q=0.1';
  IdHTTP1.Request.Referer:='http://vkontakte.ru/index.php';
  IdHTTP1.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
  IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10';
  try
    params.Add('email='+email.Text);
    params.Add('pass='+pass.Text);
    params.Add('vk=');
    responseres.Text:=IdHTTP1.Post('http://login.vk.com/?act=login',params);
    Memo1.Lines:=responseres;
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    params.Clear;
    responseres.Text := Stringreplace(responseres.Text,'''',#13,[rfreplaceall,rfignorecase]);
    for i := 0 to responseres.Count-1 do
    begin
      responseres[i]:=trim(responseres[i]);
      if responseres[i]='value=' then
        params.Add(responseres[i-3]+'='+responseres[i+1]);
    end;
    responseres.Clear;
    IdHTTP1.Request.Referer:='http://login.vk.com/?act=login';
    IdHTTP1.Request.Host:='vkontakte.ru';
    responseres.Text:=IdHTTP1.Post('http://vkontakte.ru/login.php',params);
    Memo1.Lines:= responseres;
    if Pos('logout',responseres.Text)>0 then
      ShowMessage('Залогинились!')
    else
      ShowMessage('Упс..');
  finally
    params.free;
    responseres.free;
  end;

[sXciNe]

приветствую.
это что?авторизация?тогда вот код, но для начала добавь edit1-логин, edit2-пароль, button1-единственная кнопка и listbox1-там мы увидим наш результат!

Код:

procedure TForm1.Button1Click(Sender: TObject);
var data:tstringlist;
	     PageProfile:string;
	     error:boolean;
	begin
	 IdHTTP1.AllowCookies:=true;
	 IdHTTP1.HandleRedirects:=false;
	 data:=tstringlist.create;
	 data.Add('email='+edit1.text); //наш логин для авторизации
	 data.Add('pass='+edit2.Text); //наш пароль для авторизации
	 data.Add('expire=');
	 data.Add('vk=');
	 error:=false;
	 try
	  PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
	 except
	  error:=true;
	 end;

	 if not(error) then
	  begin
	   data.Clear;
	   data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
	   data.Add('op=slogin');
	   data.Add('redirect=1');
	   data.Add('expire=0');
	   data.Add('to=');
	   IdHTTP1.HandleRedirects:=true;
	   try
	    PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
    except
	   end;
     listbox1.items.add('Авторизация прошла успешно');
	  end
	 else
  listbox1.Items.Add('Авторизация неудалась');

	 Data.Free;
	end;