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

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

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

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

Андрей Оффлайн

Андрей

Принятый Кодер
Регистрация
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.
 
Sascha Оффлайн

Sascha

Заместитель Администратора
Команда форума
Администратор
Регистрация
9 Май 2015
Сообщения
1,367
Баллы
155

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.


здесь посмотри

Код:
'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'
 
Андрей Оффлайн

Андрей

Принятый Кодер
Регистрация
17 Дек 2015
Сообщения
62
Баллы
60

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.


здесь посмотри

Код:
'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
Но я не знаю как, у меня не получается. Могу сейчас подать заявку кому то на добавление)
 
Андрей Оффлайн

Андрей

Принятый Кодер
Регистрация
17 Дек 2015
Сообщения
62
Баллы
60

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.


здесь посмотри

Код:
'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'
Не в той теме ответил, этот способ работает спасибо)
Можешь еще подсказать как такую авторизацию вообще делать, с таким нигде не сталкивался и в гугле не могу найти.

То есть не через ввод логина и пароля, а таким образом)
 
Андрей Оффлайн

Андрей

Принятый Кодер
Регистрация
17 Дек 2015
Сообщения
62
Баллы
60

Пожалуйста Авторизируйтесь или Зарегистрируйтесь для просмотра скрытого текста.


здесь посмотри

Код:
'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'
Хотя нет, таким образом можно только создавать заявку на добавление. А мне нужно одобрять новые заявки.
 
Sascha Оффлайн

Sascha

Заместитель Администратора
Команда форума
Администратор
Регистрация
9 Май 2015
Сообщения
1,367
Баллы
155
Вверх Снизу