[Shady0]

Вот хотел написать спамер аск.фм.Никак не выходит.
Мой код:

Код:

procedure TForm1.Button1Click(Sender: TObject); 
 var res,zap,token:string; 
 begin 
   res:=send('GET','http://ask.fm/'); 
   token:=pars('name="authenticity_token" type="hidden" value="',res,'"'); 
   res:=send('POST','http://ask.fm/illife/questions/create','authenticity_token=mEtKKeimjlHwW7Iz9%2Fsv0Kvt67fqKCZ5KFy%2BfzkcUwI%3D&question%5Bquestion_text%5D=123&question%5Bforce_anonymous%5D=&question%5Bforce_anonymous%5D=force_anonymous&authenticity_token=mEtKKeimjlHwW7Iz9%2Fsv0Kvt67fqKCZ5KFy%2BfzkcUwI%3D');
   zap:=res; 
   mmo1.Lines.Add(zap); 

 end;