This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Switch branches/tags
Branches Tags
Could not load branches
Nothing to show
Could not load tags
Nothing to show
Name already in use
A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?
Cancel Create
- Local
- Codespaces
HTTPS GitHub CLI
Use Git or checkout with SVN using the web URL.
Work fast with our official CLI. Learn more about the CLI.
Sign In Required
Please sign in to use Codespaces.
Launching GitHub Desktop
If nothing happens, download GitHub Desktop and try again.
Launching GitHub Desktop
If nothing happens, download GitHub Desktop and try again.
Launching Xcode
If nothing happens, download Xcode and try again.
КАК ИЗМЕНИТЬ СВОЙ СТАТУС В ВК В 2021 ГОДУ?
Launching Visual Studio Code
Your codespace will open once ready.
There was a problem preparing your codespace, please try again.
Источник: github.com
Автоматическое обновление статуса ВКонтакте
Предлагаю вашему вниманию небольшой скрипт для автоматического обновления статуса в социальной сети ВКонтакте. Скрипт написан за полчаса, ничего сложного в нем нет. Толчком для написания стало желание побаловаться, в процессе возникла еще пара интересных идей, которые я осуществлять не планирую, может кого-то наведу на мысль и буду рад. Не будем голословничать, приступаем к делу.
И да, забыл сказать, это — Perl. Будет желание — сможете легко повторить на вашем любимом языке.
# Запрашиваем необходимые модули
require LWP::UserAgent;
use HTTP::Cookies;
use Encode;
# Счетчик
open (FILE, «$path/num.txt» );
$num = ;
close (FILE);
my $ua = LWP::UserAgent-> new ;
$ua->timeout(10);
$ua->agent( ‘Mozilla/5.0’ );
$ua->env_proxy;
# Путь к файлу с cookies
$cookies= new HTTP::Cookies(file=> ‘$path/cookies.dat’ ,autosave=>1);
$ua->cookie_jar($cookies);
# Логинимся
$loginpage = «http://vkontakte.ru/login.php?email=$email ;
$response = $ua-> get ($loginpage);
$page = $response->content;
# Достаем значение activityhash
$ah = $1 if $page =~ m/’activityhash’ value = ‘(.+)’ >/;
# Наш статус
$status = «L ;
Encode::from_to($status, ‘windows-1251’ , ‘utf-8’ );
# POST-запрос для обновления статуса
$response = $ua->post
( ‘http://vkontakte.ru/profile.php’ ,
[
activityhash => $ah,
setactivity => $status
]
);
# Если удачно, выведется значение обновленного статуса
Установка любых эмодзи статусов ВКонтакте
print $response->content;
# Увеличиваем значение счетчика
$num++;
# Обновляем значение в файле
open (FILE, «>$path/num.txt» );
print FILE $num;
close (FILE);
* This source code was highlighted with Source Code Highlighter .
Затем скрипт добавляем в расписание cron’а:
*/3 * * * * /home/anton/www/site.ru/cgi/test.pl >/dev/null
И смотрим на результаты:
Как это применить? Вот что пришло в голову:
— достать своих друзей, которые не вылазят из ВКонтакта своими статусами :))
— в рандоме выбирать из файла какие-либо цитаты, анекдоты, что угодно
— сделать обратный отсчет, н-р, «До моего дня рождения осталось 3 дня, 15 часов и 42 минуты»
— привлекать друзей на какие-либо мероприятия, сайты и прочее
— ну и спамеры, конечно же, могут использовать взломанные аккаунты, чтобы собирать траффик
А еще из всех этих идей можно сделать специальный сервис, который будет выполнять все эти действия. Интересно, есть ли у ВКонтакта ограничение на количество обновлений статуса в сутки? Скоро узнаю 🙂
Всем хорошего вечера.
Just for fun.
Источник: habr.com
ПРИВАТНЫЙ AutoStatus VK 1.1.2
ВНИМАНИЕ!
В связи с тем, что ВК «спрятали» статус сообществ внутрь раздела «Подробная информация» данный плагин более не актуален.
Он по прежнему полностью выполняет поставленные задачи, однако увидеть статус группы на сайте теперь проблематично так как он не находится прямо под названием, как было раньше.
В списках группсообществ теперь указывается описание, менять которое «на лету»- не самая лучшая идея.
Плагин останется на продаже, однако при покупке примите это к сведенью — текст, отображаемый им, скорее всего не увидит никто
