Скачать капчу с ВКонтакте

[Lemo]

Как можно скачать картинку?
Запарсить ссылку не получиться, так как она не встречаеться в исходном коде(

http://vkontakte.ru/captcha.php?s=1&sid=737089159314

[psycho-coder]

Это вроде pop-under сообщение. смотри в сторону ява скриптов. как там формируется запрос.

[Lemo]

дык какие то идеи есть?

[Виталий Желтяков]

А откуда эта ссылка?

http://vkontakte.ru/captcha.php?s=1&sid=737089159314

[Lemo]

это я в исходном коде отловил, но не для нанного случая...

[wetchislaf]

можно правой кнопкой мыши (сохраниьт изображение) попробовать или в кэше браузера поискать.
C:\Documents and Settings\имя пользователя\Local Settings\Application Data\Opera\Opera\cache --- Opera, у других браузеров незнаю, неработал с ними.

[KentOne]

Делал через EmbeddedWB, наверное в обычном Веббраузере нужно включить возможность копирования (поищи в нете)

Активируй ClipBoard:

uses
  ClipBrd;

На форму брось Edit1 (вводишь номер картинки на странице), Edit2 (в него будет сохранятся путь к картинке, чтобы в дальнейшем находить картинку не по номеру...), Image1 (для копирования в него картинки, которую выбираешь) и Button1, с кодом, что ниже:

procedure TForm1.Button1Click(Sender: TObject);
var
  body, imgs, controlRange: olevariant;
begin
        body := EmbeddedWB1.OleObject.document.body;
        imgs := EmbeddedWB1.OleObject.document.images.item(StrToInt(Edit1.Text));
Edit2.Text := EmbeddedWB1.OleObject.document.images.item(StrToInt(Edit1.Text)).Src;
        controlRange := body.createControlRange;
        controlRange.add(imgs);
        controlRange.execCommand('Copy', False, EmptyParam);
        if ClipBoard.HasFormat(CF_BITMAP) then begin
          Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
          Clipboard.Clear;
        end;
end;

Например, на странице вступления в группу номер картинки капчи 12 (если в списке 10 груп)
Можно в дальнейшем делать цикл по Src картинки и если в нем есть что-то типа http://vkontakte.ru/captcha.php?s=х&sid=хххххххх, то ее собственно и сохранять.