• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Помогите С Методом Одобрения Заявок В Друзья Friends.add Api.vk

Андрей

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

Код:
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.
 
https://vk.com/dev/friends.add
здесь посмотри

Код:
'https://api.vk.com/method/friends.add?user_id="+$id+"&v=5.25&access_token="+$token'
Код:
'https://api.vk.com/method/friends.delete?user_id="+$id+"&v=5.25&access_token="+$token'
 
https://vk.com/dev/friends.add
здесь посмотри

Код:
'https://api.vk.com/method/friends.add?user_id="+$id+"&v=5.25&access_token="+$token'
Код:
'https://api.vk.com/method/friends.delete?user_id="+$id+"&v=5.25&access_token="+$token'
Тоже не получается, такая же ошибка как на скриншотах выше.
Просто я не могу понять как получить список новых заявок, для его получения используется метод friends.getRequests а потом только можно добавить всех в друзя методом friends.add
Но я не знаю как, у меня не получается. Могу сейчас подать заявку кому то на добавление)
 
https://vk.com/dev/friends.add
здесь посмотри

Код:
'https://api.vk.com/method/friends.add?user_id="+$id+"&v=5.25&access_token="+$token'
Код:
'https://api.vk.com/method/friends.delete?user_id="+$id+"&v=5.25&access_token="+$token'
Не в той теме ответил, этот способ работает спасибо)
Можешь еще подсказать как такую авторизацию вообще делать, с таким нигде не сталкивался и в гугле не могу найти.
09ZpWLOOAEk.jpg

То есть не через ввод логина и пароля, а таким образом)
 
https://vk.com/dev/friends.add
здесь посмотри

Код:
'https://api.vk.com/method/friends.add?user_id="+$id+"&v=5.25&access_token="+$token'
Код:
'https://api.vk.com/method/friends.delete?user_id="+$id+"&v=5.25&access_token="+$token'
Хотя нет, таким образом можно только создавать заявку на добавление. А мне нужно одобрять новые заявки.
 
Вверх Снизу