Важные Помогите Пожалуйста С Капчей Вк.

[Polya]

У меня получается только выводить картинку в изображение, пытаюсь повторно отправить запрос с передачей с.и.д. и ключ и все равно капча не проходит

Если не сложно, можете пожалуйста показать готовый пример
Так я загружаю картинку, г-жа: TMemoriStream; Подгружаю картинки IDHTTP что синапс Потому выделывается. Мне просто нужно правильно отправить капчу, чтобы программа продолжала свою работу. Можно пример на группе какой нибудь сделать, где спамят стену, там чтобы отправить сообщение нужно вводить капчу.
IdHTTP.Get ( 'HTTP: //' + S, Ms);
Ms.Position: = 0;
JIm.LoadFromStream (Ms);
Form2.Image1.Picture.Bitmap.Assign (Jim); [/ CODE]

 

[Sascha]

На форуме есть уже готовый пример.

 

[4eshir]

У меня получается только выводить картинку в изображение, пытаюсь повторно отправить запрос с передачей с.и.д. и ключ и все равно капча не проходит

Если не сложно, можете пожалуйста показать готовый пример
Так я загружаю картинку, г-жа: TMemoriStream; Подгружаю картинки IDHTTP что синапс Потому выделывается. Мне просто нужно правильно отправить капчу, чтобы программа продолжала свою работу. Можно пример на группе какой нибудь сделать, где спамят стену, там чтобы отправить сообщение нужно вводить капчу.
IdHTTP.Get ( 'HTTP: //' + S, Ms);
Ms.Position: = 0;
JIm.LoadFromStream (Ms);
Form2.Image1.Picture.Bitmap.Assign (Jim); [/ CODE]

может просто интервал между рассылками увеличить?) ставлю 40 секунд обычно и вообще не выбивало капчу

 

[7.UP]

вот примерно так

procedure TForm1.capcha;
var
c, p: string;
fs: tfilestream;
begin
c := Form1.IdHTTP1.Get('http://sms.ru/');
p := Pars('src="?panel=captcha&captcha_key=', c, '" style=');
fs := tfilestream.Create('captcha.jpeg', FMCreate);
Form1.IdHTTP1.Get('http://sms.ru/?panel=captcha&captcha_key=' + p, fs);
fs.Free;
Form1.Image1.Picture.LoadFromFile('captcha.jpeg');
Form1.Image1.Refresh;
end;

data.Add('captcha_key=' + p);
data.Add('captcha_text=' + sEdit5.Text);