November 18th, 2012

Скидка на пиццу

Начал осваивать язык Perl с написания бота для социальной сети Вконтакте, который ловил бы за меня скидку на пиццу. Так уж повелось, что иногда закакзываю пиццы из местной сети пиццерий. У этих пиццерий есть группа в Вконтакте, в которой иногда разыгрываются 30%-ные скидки на заказ пиццы с доставкой.

Розыгрыш производится следующим образом: раз в день на стене группы секунд на 10-30 выкладывается изображение, символизирующее скидку. Юзер, который сидит за компом и смотрит свои новости в социальной сети, видит скидку и чтобы её поймать, он должен её "лайкнуть", нажать кнопулю "Мне нравится". Затем изображение удаляется со стены группы. Те, кто успел увидеть новость и остаться в живых надавить на кнопку, получают скидку.

Как администрация группы узнаёт, кто получил скидку? Всё просто! Задача администратора вывести список всех тех, кому понравилось, на экран, сделать скриншот. И затем быстренько-быстренько удалить запись со стены.

Но что происходит с теми, кто успел поймать скидку в промежуток времени после того, как администратор группы выведет на своей странице список понравившихся, и до удаления картинки со скидкой?

Администрация разводит руками и говорит "Так получилось".

Лотерея, в общем. Испытание для упорных.

Моей жене нравятся пиццы из этой сети, мне - тоже. И чтобы не заморачиваться каждый раз с этими пиццами, сидением в сети и тупым и бессмысленным наблюдением за новостями, я и решил написать небольшой скрипт, который будет следить за новостями за меня.


А вот и он сам..Collapse )

Дело за малым, забить его в системный планировщик задач и запускать два раза в минуту. Этого достаточно, чтобы получить скидку на пиццу. Можно, конечно, заморочиться ещё сильнее и получать уведомления от бота о выигранной скидке, но.. В другой раз. Доверие к машине. Скользкая тема.

Tags: ,