С каждым днём в рядах программистов происходит пополнение. Кто-то всегда хотел этим заняться и вдруг решился, кто-то внезапно решил поменять сферу деятельности и изучить программирование, а кому-то это требуется, к примеру, для выполнения своих рабочих обязанностей. Так или иначе, всегда легче обучаться по готовым примерам, когда все самые трудные вопросы изучены за вас, а вам предоставляется урок, изложенный в довольно упрощённой форме. Именно такой урок ждёт вас сегодня.

Пишем простейший спамер для ВКонтакте на 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 ВКонтакте для написания подобных программ.

Готовый исходный код спамера можно скачать в прикреплении к материалу.

Источник: