Вы вошли как: Гость
Форум All-For-VKontakte
Это сообщество, объединяющее в себе пользователей, заинтересованных в продвижении в популярных социальных сетях и заработке на них. У нас вы сможете узнать мнения профессионалов по любым вопросам или поделиться своим опытом с неопытными пользователями, найти полезную информацию и просто пообщаться с хорошими людьми.
Присоединяйтесь к нам!
Главная Социальные сети Всё для ВКонтакте Информация о ВКонтакте
Пишем простейший спамер для ВКонтакте на Delphi
29.01.2017 в 08:32
1.6K
просмотров
86
загрузок
2
комментария
9
оценок
С каждым днём в рядах программистов происходит пополнение. Кто-то всегда хотел этим заняться и вдруг решился, кто-то внезапно решил поменять сферу деятельности и изучить программирование, а кому-то это требуется, к примеру, для выполнения своих рабочих обязанностей. Так или иначе, всегда легче обучаться по готовым примерам, когда все самые трудные вопросы изучены за вас, а вам предоставляется урок, изложенный в довольно упрощённой форме. Именно такой урок ждёт вас сегодня.

Пишем простейший спамер для ВКонтакте на Delphi

Цель урока
Цель этого урока – написать простейшую программу для ВКонтакте, которая будет спустя минуту после запуска публиковать пост в указанное сообщество от имени администратора, удаляя при этом предыдущий пост, если таковой имеется.

В целях написания данной программы было использовано программное обеспечение Embarcadero RAD Studio с Delphi XE6 на борту. Вы можете использовать это ПО или любую другую версию.

Приступим
Процесс создания спамера заключается в написании кода в несколько этапов, на каждом из которых пишется какая-то часть спамера. Урок предполагает, что у вас уже есть базовые знания в языке программирования Delphi, и направлен скорее на демонстрацию работы с API ВКонтакте. Ничего кардинально сложного здесь нет, поэтому просто следуйте инструкции.

  • Запускаем Delphi, создаём новый проект и добавляем на форму поля, необходимые для простейшего спамера:


    • 4 поля Edit для логина и пароля, для ID группы-приёмника и прикрепления аттача
    • 2 текстовых поля Memo для текста сообщения и лога событий
    • 2 кнопки Button для входа в аккаунт и запуска спамера
    • Компонент Timer для отправки сообщения спустя некоторый интервал времени
    • Компонент HTTP для осуществления GET и POST запросов к ВКонтакте
    • Компонент IdSSLIOHandlerSocketOpenSSL для отправки запросов по защищённому соединению HTTPS

  • Приступаем к написанию кода. Для начала опишем авторизацию аккаунта. Для этого создадим процедуру GetToken:

    procedure TForm1.GetToken; 
    var
      temp: string;
      response: string;
    begin
      try
        // отправка запроса на авторизацию
        response := idhttp1.Get('https://oauth.vk.com/token?grant_type=password&client_id=2274003&scope=wall&client_secret=hHbZxrka2uZ6jB1inYsH&username=' + LoginEdit.Text + '&password=' + PassEdit.text);
      except
        // если что-то пошло не так, выводим в лог информацию об этом
        logmemo.Lines.Add('ошибка соединения при получении access token');
      end;

      // проверяем, если слово token есть в переменной response, значит access_token получен
      if Pos('token', response) <> 0 then
      begin
        // выдергиваем access_token
        temp := Copy(response, Pos('access_token":"', response), Pos('","expires_in', response) - 3);
        Delete(temp, 1, 15);
        // и кладём в переменную token
        token := temp;
        logmemo.Lines.Add('token получен');
      end else
      begin
        // если token получить не удалось, пишем об этом в логе
        logmemo.Lines.Add('token не получен');
      end;
    end;

    Описанный метод авторизации заключается в получении ключа доступа access_token. Если точнее, это так называемая «Прямая авторизация». Прочитать о ней можно здесь: vk.com/dev/auth_direct.

    Access_token, или маркер доступа, – программный объект, который содержит информацию по безопасности сеанса и идентифицирует пользователя и его привилегии в социальной сети ВКонтакте.

    Позже, при отправке некоторых Get или Post запросов к ВКонтакте, необходимо будет вместе с самими запросами передавать и сгенерированный при авторизации маркер доступа, потому что не все методы API ВКонтакте являются общедоступными и могут требовать от пользователя определённых прав, которые идентифицируются посредством передаваемого access_token.

    В запрос для получения маркер доступа access_token в процедуре выше были включены следующие параметры:

    • grant_type – тип авторизации, должен быть всегда равен password
    • client_id – ID приложения, через которое происходит авторизация
    • client_secret – секретный ключ того же приложения
    • username – логин от вашего аккаунта ВКонтакте
    • password – пароль от вашего аккаунта ВКонтакте

    Доступ к этому типу авторизации может быть получен только после предварительного согласования с администрацией ВКонтакте. Но так как это наиболее быстрый и удобный способ авторизации, мы схитрили и для реализации данного типа авторизации в нашей программе использовали в качестве приложения для авторизации данные от официального клиента ВКонтакте для Android (имеются ввиду параметры client_id и client_secret). Поэтому не нужно возиться с созданием нового приложения ВКонтакте и отправкой запроса на одобрение администрацией – для нашего примера можно обойтись и таким вариантом.

  • Привяжем созданную процедуру к кнопке «Авторизация», по клику на которую программа будет проходить авторизацию и получать сгенерированный access_token:

    procedure TForm1.Button1Click(Sender: TObject); 
    begin
      GetToken;
    end;

  • Все запросы к ВКонтакте в обязательном порядке выполняются через защищённое соединение. Поэтому обязательно нужно связать компоненты HTTP и IdSSLIOHandlerSocketOpenSSL, а также положить в папку с программой файлы dll-библиотек ssleay32.dll и libeay32.dll, если их там нет.

  • Следующий шаг – написание функции, отвечающей за работу спамера по таймеру. Мы уже определились, что программа будет проверять стену сообщества на наличие уже опубликованного поста, удалять его, если он существует, и публиковать новый по таймеру через заданный интервал времени. В нашем случае, через минуту. Для реализации такого алгоритма нам потребуются 3 метода API ВКонтакте со следующими параметрами:

    • wall.get – получение записей со стены пользователя или сообщества

      Требуемые параметры:
      • owner_id – ID сообщества ВКонтакте, записи со стены которого необходимо получить
      • access_token – маркер доступа здесь необязателен, т.к. метод wall.get – общедоступный

    • wall.delete – удаление записи со стены пользователя или сообщества

      Требуемые параметры:
      • owner_id – ID сообщества ВКонтакте, запись со стены которого необходимо удалить
      • post_id – ID записи на стене сообщества, которую необходимо удалить
      • access_token – маркер доступа, полученный при авторизации

    • wall.post – публикация записи на стену пользователя или сообщества

      Требуемые параметры:
      • owner_id – ID сообщества ВКонтакте, на стене которого необходимо разместить запись
      • from_group – метка, обозначающая, от имени кого публиковать запись. В нашем случае, мы публикуем от имени администратора сообщества, поэтому этот параметр должен быть равен 1
      • message – текст сообщения
      • attachments – прикрепление по ссылке. Это может быть: фотография, аудио или видеозапись, документ, wiki-страница, заметка, опрос, альбом, товар или подборка товаров
      • access_token – маркер доступа, полученный при авторизации

    Ознакомиться со всеми параметрами используемых методов API ВКонтакте вы можете на страницах документации, но для нашей задачи нам хватит и перечисленных выше параметров.

    Объединив эти методы и поколдовав над ними, получилась вот такая простенькая процедура, которую мы связали с событием таймера OnTimer:

    procedure TForm1.Timer1Timer(Sender: TObject); 
    var
      response: String;
      id: String;
      pos1: Integer;
      Info: TStringList;
    begin
      // как только интервал, заданный в таймере, подойдёт к концу, выключаем таймер и выполняем алгоритм
      timer1.Enabled := false;
      try
        // получаем список записей со стены сообщества
        // согласно документации API ВКонтакте, метод wall.get – общедоступный, поэтому access_token можно не передавать
        response := idhttp1.Get('https://api.vk.com/method/wall.get?owner_id=-' + GroupEdit.text);
      except
        logmemo.Lines.Add('Ошибка получения ID поста');
      end;

      // получаем ID последнего поста
      id := Pars(response,'"id":', ',"');
      sleep(500);

      // если пост есть
      if Length(id) > 0 then
      begin
        try
          // удаляем его
          response := idhttp1.Get('https://api.vk.com/method/wall.delete?owner_id=-' + GroupEdit.text + '&post_id=' + id + '&access_token=' + token);
        except
          // если что-то пошло не так, сообщаем об этом в логе
          logmemo.Lines.Add('Ошибка удаления поста');
        end;
      end;
      sleep(500);

      // публикуем новый пост посредством post-запроса
      try
        response := '';
        Info := TStringList.Create;
        Info.Add('owner_id=-' + GroupEdit.text);
        Info.Add('from_group=1');
        Info.Add('access_token=' + token);
        Info.Add('message=' + messagememo.text);
        Info.Add('attachments=' + attachedit.text);
        response := idhttp1.Post('https://api.vk.com/method/wall.post', Info);
      except
        // если что-то пошло не так, сообщаем об этом в логе
        logmemo.Lines.Add('Ошибка создания поста');
      end;

      // проверяем ответ от сервера: удалось ли опубликовать пост или нет, и выводим соответствующую надпись в лог
      if Pos('post_id', response) > 0 then logmemo.Lines.Add('Пост добавлен!') else logmemo.Lines.Add('Пост не добавлен!');
      Info.Free;
    end;

  • И опишем функцию Pars, с помощью которой в процедуре выше происходит извлечение ID последнего поста из ответа от сервера:

    function TForm1.Pars(st, st_begin, st_end: WideString): WideString; 
    begin
      if Pos(st_begin, st) <> 0 then Delete(st, 1, Pos(st_begin, st) + Length(st_begin) - 1) else
      begin
        result := '';
        exit;
      end;

      if Pos(st_end, st) <> 0 then Delete(st, Pos(st_end, st), Length(st)) else
      begin
        result := '';
        exit;
      end;
      result := st;
    end;

  • В свойствах таймера в блоке Object Inspector нашего Delphi устанавливаем свойство Interval равным 60000 миллисекунд (1 минута). Это будет означать, что после запуска спамера должна будет пройти 1 минута, прежде чем выполнится основной алгоритм программы.

  • Далее создаём событие нажатия на кнопку «Запустить». Оно будет по клику запускать таймер, если заранее был получен ключ access_token:

    procedure TForm1.StartButtonClick(Sender: TObject); 
    begin
      if Length(token) > 0 then timer1.Enabled := true;
    end;

  • В итоге, скомпилировав весь этот код и запустив программу, можно насладиться результатом:

    Пишем простейший спамер для ВКонтакте на Delphi

  • Введя данные как на скриншоте выше, авторизовавшись и запустив спамер, в итоге мы получили следующий результат:


    Ещё раз подчеркнём, что данный вариант программы требует от вашего аккаунта прав администратора для удаления поста со стены и публикации нового поста от имени группы.

Заключение
Конечно, это ещё очень сырой вариант спамера. Для полноценной работы и его применения на постоянной основе его ещё стоит доработать, например:

  • Организовать работу спамера по таймеру бесконечно, чтобы пост публиковался и удалялся по кольцу автоматически, а не по нажатию на кнопку «Запуск» снова и снова.

  • Доработать удаление поста в группе. Так как наш вариант программы просто удаляет последний пост в группе, то может выйти, что перед удалением старого поста и публикацией нового на стену сообщества был добавлен новый пост (не через нашу программу), который удалится вместо старого рекламного поста.

  • Описать адекватное поведение программы при достижении в группе суточного лимита на добавление 50 постов на стену.

  • В случае, если цель использования спамера – реклама по определённым ключевым словам, по которым пост можно найти в поиске, можно научить программу при достижении суточного лимита на публикацию постов автоматически создавать новую группу для продолжения работы.

  • И многое другое.

На самом деле, это только учебный урок, и программа действительно очень проста. В ней можно сделать множество функциональных доработок, чтобы превратить его в по-настоящему мощный инструмент. Но цель нашего урока – привести пример того, как в целом осуществляется работа в Delphi с API ВКонтакте для написания подобных программ.

Готовый исходный код спамера можно скачать в прикреплении к материалу.
Источник:
Вам понравился материал?
9
Скачать прикрепления
6.16 MB
Антивирусный анализ
Похожие материалы
Обсуждение
grigandal1580 в 10:33 09.11.2017
0
И как получить дату поста?
Там стоит число, как декодировать из него дату?

Нашел, время указывается в формате unix time
grigandal1580 в 10:20 09.11.2017
0
Для метода wall.get access_token не нужен, даже если группа закрытая или частная?
Зарегистрируйтесь или авторизуйтесь, чтобы получить возможность отвечать на комментарии других пользователей и оценивать их
Категории раздела