Помогите Получить Код Капчи Программно Vk Api

[Polya]

Мне нужно вывести в image картинку captcha, и с Edit отправлять код с картинки.

Я написала программу которая приглашает друзей в группу, на 10 приглашении программа перестает приглашать. Все потому что после каждого 10-го приглашения всплывает captcha. Помогите пожалуйста решить эту проблему.

 

[Sascha]

var
img: TMemoryStream;
png: TPNGObject;
begin
img:=TMemoryStream.Create;
IdHTTP1.Get('http://wm-seo.ru/captcha.php?.png',img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
image1.Picture.Assign(png);
png.Free;
img.Free;
end;

 

[Polya]

var
img: TMemoryStream;
png: TPNGObject;
begin
img:=TMemoryStream.Create;
IdHTTP1.Get('http://wm-seo.ru/captcha.php?.png',img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
image1.Picture.Assign(png);
png.Free;
img.Free;
end;

Мне нужно составить правильный запрос, это не будет работать https://new.vk.com/dev?act=search&q=Captcha

 

[Polya]

var
img: TMemoryStream;
png: TPNGObject;
begin
img:=TMemoryStream.Create;
IdHTTP1.Get('http://wm-seo.ru/captcha.php?.png',img);
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
image1.Picture.Assign(png);
png.Free;
img.Free;
end;

А как правильно нужно написать название библиотеки TPngObject в раздел uses ?

 

[Polya]

Ну почему оно не получается(((

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, httpsend, lib, Json,
  Vcl.ExtCtrls, syncobjs, pngimage;

var
  Form1: TForm1;
  HTTP: thttpsend;
  STRTime, response, token: string;
  s1,s2, AnsiReplaceText: string;
  num: TStringList;
  work:boolean;
  CS:TCriticalSection;
  Acc, Thread:integer;

procedure TForm1.Button5Click(Sender: TObject);
var
temp, s:string;
sl:TStringList;
i:integer;
substrs:TArray<string>;
begin
sl:=TStringList.Create;
response := send('GET', 'https://api.vk.com/method/friends.get?user_ids&v=5.24&access_token=' + token);
  if Pos('items', response) <> 0 then
  begin
  s:=(response);
  Delete(s, 1, 21);
  s:=s.Replace('"items":[', '').Replace(']}}', '');
  s2:=s;
  sl:=TStringList.Create;
  substrs:= s2.Split([',']);
  for s in substrs do
  sl.Add(s);
  for i := 1 to sl.Count - 1 do
  memo1.Lines.Add(sl[i]);
  end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
temp, s:string;
sl:TStringList;
i:integer;
substrs:TArray<string>;
img: TMemoryStream;
png: TPNGObject;
begin
  img:=TMemoryStream.Create;
  sl:=TStringList.Create;
  substrs:= s2.Split([',']);
  for s in substrs do
  sl.Add(s);
  for i := 1 to sl.Count - 1 do
  //memo1.Lines.Add(sl[i]);
response := send('GET', 'https://api.vk.com/method/groups.invite?group_id=89924684&user_id='+sl[i]+'&v=5.24&access_token=&captcha_sid=&captcha_img='+img+'&captcha_key='+Form2.Edit1.Text+'' + token);
if Pos('captcha_key', response) <> 0 then
Form2.ShowModal();
img.Position:=0;
png:= TPNGObject.Create;
png.LoadFromStream(img);
Form2.image1.Picture.Assign(png);
png.Free;
img.Free;
Sleep(10000);
sl.Destroy;
end;

 

[Sascha]

jpeg,Vcl.Imaging.pngimage

 

[Sascha]

https://m.vk.com/captcha.php?sid=361204416694&dif=1

Sid свой ставь

https://oauth.vk.com/oauth/authorize?client_id=2904017&redirect_uri=https%3A%2F%2Foauth.vk.com%2Fblank.html&response_type=token&scope=998559&v=5.1&state=&display=mobile&sid=361204416694&dif=1&email=123

 

[Sascha]

var m: TMemoryStream;
begin
  m:=TMemoryStream.Create;
  IdHTTP1.Get('http://m.vk.com/captcha.php?sid=361204416694&dif=1',m);
  m.SaveToFile('temp.jpg');
  m.free;
  Image1.Picture.LoadFromFile('temp.jpg');
end;

 

[Polya]

var m: TMemoryStream;
begin
  m:=TMemoryStream.Create;
  IdHTTP1.Get('http://m.vk.com/captcha.php?sid=361204416694&dif=1',m);
  m.SaveToFile('temp.jpg');
  m.free;
  Image1.Picture.LoadFromFile('temp.jpg');
end;