Простенький Автопостер

Есть готовый постер комментариев в вордпресс с распознаванием капчи Challenge (математический пример). Пишите в личку, отдам недорого

вот пример одной постилки правдо не на ПХП, а на С++ .. мож сгодится :) постит ссылки на text20.ru ..

//---------------------------------------------------------------------------



#include <vcl.h>

#pragma hdrstop



#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "trayicon"

#pragma link "CSPIN"

#pragma resource "*.dfm"

TForm1 *Form1;

int i=0;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------







void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

  i++;

  Label2->Caption=i;

  if(i%CSpinEdit1->Value==0)

  {

  ProgressBar1->Max=Memo1->Lines->Count;

  TMemoryStream *ms = new  TMemoryStream;

  TStringList *PostMes = new TStringList;

   try

  {

    AnsiString Post_Request="&profession=1111&domain=" + Memo1->Lines->Strings[0] +

                            "&source=" + Memo1->Lines->Strings[0] +

                            "&title=" + Memo1->Lines->Strings[0] +

                            "&text=" + Memo1->Lines->Strings[0] +

                            "&tags=" + "1";



    PostMes->Add(Post_Request);

    IdHTTP1->Request->ContentType="application/x-www-form-urlencoded";

    IdHTTP1->Post("http://text20.ru/add/", PostMes,ms );

    ms->Position = 0;

  //  Memo1->Lines->LoadFromStream(ms) ;

    }



    __finally {

    delete ms ;

   }

   Memo1->Lines->Add(Memo1->Lines->Strings[0]);

   Memo1->Lines->Delete(0);

   ProgressBar1->Position++;

   Label1->Caption="Добавлено " + IntToStr(ProgressBar1->Position) + " всего " + Memo1->Lines->Count;

   Application->ProcessMessages();

   Memo1->Lines->SaveToFile(ExtractFilePath(Application->ExeName) + "urls.txt");

   }

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

 Memo1->Lines->LoadFromFile(ExtractFilePath(Application->ExeName) + "urls.txt");       

}

//---------------------------------------------------------------------------





void __fastcall TForm1::Button1Click(TObject *Sender)

{

 Timer1->Enabled=!Timer1->Enabled;

 if(Timer1->Enabled)

 Button1->Caption="Стоп";

 else

 Button1->Caption="Старт";

}

//---------------------------------------------------------------------------