|
#1
|
|||
|
|||
Спамер аск.фм
Вот хотел написать спамер аск.фм.Никак не выходит.
Мой код: Код:
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; |