[scroyler]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  stringlist: TStringList;
begin
  stringlist:=TStringList.Create;
  try
    stringlist.Add('username=в лс скажу');
   stringlist.Add('password=в лс скажу');
   memo1.Text:= IdHTTP1.Post('http://askbook.me/signin/verify?hdbuv3as', stringlist);




    if   pos ('{"success":1}',memo1.text)>0 then
    showmessage ('ok');
  finally
    stringlist.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  stringlist: TStringList;
  str:string;n:integer;token:string;
begin
  stringlist:=TStringList.Create;
  try

 str:=idhttp1.Get('http://askbook.me/Sweater');
n:=pos('name="token" value=',str)+length('name="token" value=');
token:=copy(str,n,posex('" />',str,n)-n);
         token:= StringReplace(token,'"','',[rfReplaceAll]);


    stringlist.Add('text=vk.com???');
   stringlist.Add('anonymous=1');
   stringlist.Add('token'+token);
   memo1.Text:= IdHTTP1.Post('http://askbook.me/ask/single/Sweater?hdbuwf49', stringlist);




    if   pos ('{"success":1}',memo1.text)>0 then
    showmessage ('ok');

     finally
    stringlist.Free;
  end;
end;

вот код,выходит ошибка токена,что не так? подскажите пож.

помогите пожалуйста,срочно.

вот код
<input type="hidden" name="token" value="ff0eaa7e62cdef3bb5637df54e0965239b186aeb">

[M.A.D.M.A.N.]

Сниффером просмотри процесс залогинимания (или что ты там делаешь).