[scroyler]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

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">