Vkontakte.Spam. captcha

Доброе утро всем!
Помогите плиз. Подскажите как можно вытянуть капчу при спаме в группах в контакте, и направить её на антигейт ну или на ручной ввод? Спасибо.
вот код операции спама

HTML:

s:= IdHTTP1.Get('http://vkontakte.ru/club'+id);
hash := Copy(s, pos('"post_hash":"', s) + 13, pos('","media_types":', s) - pos('"post_hash":"', s) -13);
new:= Copy(s, pos('Groups.init({"group_id":', s) + 24, pos(',"loc"', s) - pos('Groups.init({"group_id":', s) -24);
//memo2.Lines.Add(hash);
data.Add('act=post');
data.Add('al=1');
data.Add('facebook_export=');
data.Add('friends_only=');
data.Add('hash='+hash);
data.Add('message='+memo2.Lines.Text);
data.Add('note_title=');
data.Add('official=');
data.Add('status_export=');
data.Add('to_id=-'+new);
//memo2.Lines.Add(data[9]);
data.Add('type=all');
 error:=false;
 try
  PageProfile:=IdHTTP1.Post('http://vkontakte.ru/al_wall.php', data);

 

1 - Тебе надо смотреть ответы сервера, и вытягивать из них sid капчи, если он ее вернет. Если вернет то
2 -Скачиваешь капчу
3 - Выводишь на форму

Выводить ее лучше в модальном окне, на билдере я делал так: (думаю на delphi примерно так же будет)

Добавляешь к проекту новую форму, кидаешь на нее компонент Timage, Edit, и Кнопку (в свойстве кнопки ModalResult ставишь - mrOk

в событии OnCreate пишешь

Code:

AnsiString Dir = GetCurrentDir(); // выясняем откуда запущено приложение (каталог)
Image1->Picture->LoadFromFile(Dir + "\\captcha.jpg");// Загружаем из этого каталога капчу

//Можно ее тут же удалить

DeleteFile(Dir + "\\index.jpg");

Если сервер вернет капчу то Форму вызываешь так: (перед этим не забудь скачать саму капчу

Code:

TForm2* Form = new TForm2(Application);
Form->ShowModal();
AnsiString res = Form->Edit1->Text.c_str(); //текст капчи
delete Form;

К сожалению те проекты на которых я это делал давно удалены, написал по памяти.

 

Спасибо t-s =)
А можно поподробнее про ответы сервера и вытягивание sid каптчи.

 

Text:=IdHTTP1.Post('http://vkontakte.ru/al_mail.php',s);
If pos('<!>2<!>',Text)<>0 then sid капчи от <!>2<!> до <!>

 

fuckyoupig и вам спасибо)

 

Что за люди пошли. Скопировал где-то исходник, выдал под видом, что сам все написал, и просит, чтобы еще ему все дописали. Мда.

 

Что за люди пошли. Засирают тему, не прочитав внимательно сообщение. Где тс сказал, что это его код? Какую информационную нагрузку несёт твой пост? Хватит флудить.

 

вообще то я сам писал этот код...
авторизацию смотрел на сайте avtuh.ru разбирался, потом всё делал сам.