Ссылка на аккаунт или публикацию Вконтакте
Накрутить подписчиков Вконтакте
Подписчики в аккаунты и паблики
Накрутить лайки Вконтакте
Лайки постов, видео и фото
Накрутить репосты Вконтакте
Репосты постов, видео и фото
Накрутить комментарии Вконтакте
Комментарии постов, видео и фото
Накрутить просмотры Вконтакте
Просмотры видео, посты
Накрутить голосования Вконтакте
Голосование опросы, голосования
Ссылка на аккаунт или публикацию Фейсбук
Накрутить подписчиков в Фейсбук
Подписчики в аккаунты и паблики
Накрутить лайки в Фейсбук
Лайки постов, видео и фото
Накрутить репосты в Фейсбук
Репосты постов, видео и фото
Накрутить комментарии в Фейсбук
Комментарии постов, видео и фото
Накрутить просмотры в Фейсбук
Просмотры видео, посты
Накрутить голосование в Фейсбук
Голосование опросы, голосования
Ссылка на аккаунт или публикацию в Инстаграм
Накрутить подписчиков в инстаграм
Подписчики в аккаунты и паблики
Накрутить лайки в инстаграм
Лайки постов, видео и фото
Накрутить репосты в инстаграм
Репосты постов, видео и фото
Накрутить комментарии в инстаграм
Комментарии постов, видео и фото
Накрутить просмотры в инстаграм
Просмотры видео, посты
Накрутить голосование в инстаграм
Голосование опросы, голосования
Ссылка на аккаунт или публикацию в Твиттер
Накрутить подписчиков в Твиттере
Подписчики в аккаунты и паблики
Накрутить лайки в Твиттере
Лайки постов, видео и фото
Накрутить репосты в Твиттере
Репосты постов, видео и фото
Накрутить комментарии в Твиттере
Комментарии постов, видео и фото
Накрутить просмотры в Твиттере
Просмотры видео, посты
Накрутить голосование в Твиттере
Голосование опросы, голосования
Ссылка на аккаунт или публикацию в Однокласниках
Накрутить подписчиков в Одноклассниках
Подписчики в аккаунты и паблики
Накрутить лайки в Одноклассниках
Лайки постов, видео и фото
Накрутить репосты в Одноклассниках
Репосты постов, видео и фото
Накрутить комментарии в Одноклассниках
Комментарии постов, видео и фото
Накрутить просмотры в Одноклассниках
Просмотры видео, посты
Накрутить голосование в Одноклассниках
Голосование опросы, голосования

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

29.01.2017 в 08:32
5.6K
просмотров
198
загрузок
3
комментария
12
оценок
С каждым днём в рядах программистов происходит пополнение. Кто-то всегда хотел этим заняться и вдруг решился, кто-то внезапно решил поменять сферу деятельности и изучить программирование, а кому-то это требуется, к примеру, для выполнения своих рабочих обязанностей. Так или иначе, всегда легче обучаться по готовым примерам, когда все самые трудные вопросы изучены за вас, а вам предоставляется урок, изложенный в довольно упрощённой форме. Именно такой урок ждёт вас сегодня.

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

Цель урока



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

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

Приступим



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

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

    Проект спамера ВКонтакте на 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

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

    Результат работы написанного на Delphi спамера ВКонтакте

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

Заключение



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

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

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

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

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

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

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

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

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