Андрей
Принятый Кодер
- Регистрация
- 17 Дек 2015
- Сообщения
- 62
- Баллы
- 60
Не могу понять как с помощью метода friends.getRequests, сделать так чтобы метод friends.add одобрял заявки в друзья.
Вот будущая программка
Вот будущая программка

Код:
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, sGroupBox,
sButton, sEdit, sSkinManager, httpsend, lib;
type
TForm2 = class(TForm)
sEdit1: TsEdit;
sEdit2: TsEdit;
sButton1: TsButton;
sGroupBox1: TsGroupBox;
sButton2: TsButton;
Timer1: TTimer;
procedure sButton1Click(Sender: TObject);
procedure sButton2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
response, token, uid: string;
end;
var
Form2: TForm2;
tmp:TStringlist;
temp:string;
implementation
{$R *.dfm}
procedure TForm2.sButton1Click(Sender: TObject);
var
temp, login, pass: string;
begin
login:=sEdit1.Text;
pass:=sEdit2.Text;
response:=send('GET', 'https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+login+'&password='+pass+'&captcha_key=&captcha_sid=');
if Pos('token', response)<>0 then begin
temp:=copy(response, pos('access_token":"', response), pos('","expires_in', response)-3);
delete(temp, 1, 15);
token:=temp;
sButton2.Enabled:=true;
end
else showmessage('Ошибка авторизации');
end;
procedure TForm2.sButton2Click(Sender: TObject);
var
i:integer;
tmp:tstringlist;
begin
response:=send('GET', 'https://api.vk.com/method/friends.getRequests?v=5.24&access_token=' + token);
if Pos('friends.getRequests', tmp.Text)<0 then
Timer1.Enabled:= true;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var temp:string;
begin
response:=send('GET', 'https://api.vk.com/method/friends.add?v=5.24&access_token=' + token);
end;
end.