PHP Занести всех участников сообщества в чёрный список с отображением сообщения пользователю
В редакторе
PHP Занести всех участников сообщества в чёрный список с отображением сообщения пользователю
Brain_Script
898
2018-10-28 17:58:05
<?php
$token = ''; // токена начальника
$guid = ''; // цифровой айди сообщества
$message = "Наш новый адрес: vk.com/hmoody"; // сообщение пользователю для ч/с
$timer = "86400"; //бан на сутки 86400
function vkapi($method) {
$ch = curl_init("https://api.vk.com/method/".$method);
curl_setopt($ch,CURLOPT_RETURNTRANSFER,true);
curl_setopt($ch,CURLOPT_SSL_VERIFYHOST,false);
curl_setopt($ch,CURLOPT_SSL_VERIFYPEER,false);
$response = curl_exec($ch);
curl_close($ch);
return $response; }
$cur_unix = time();
$timeblock = $cur_unix + $timer;
$encoded_message = urlencode($message);
$ridding_inis = fopen('bginis.txt', 'r'); $uns_inis = fgets($ridding_inis, 32096); fclose($ridding_inis); $inis = unserialize($uns_inis);
if (is_array($inis)) { $offset = (int) $inis[set];
$getuids = vkapi('groups.getMembers?group_id='.$guid.'&sort=id_asc&count=10&offset='.$offset.'&access_token='.$token.'&v=5.59');
$list_json = json_decode($getuids, true); $list_rslt = $list_json['response']['items'];
foreach ($list_rslt as $ruid) {
$gotoban = vkapi('groups.banUser?group_id='.$guid.'&user_id='.$ruid.'&end_date='.$timeblock.'&reason=0&comment='.$encoded_message.'&comment_visible=1&access_token='.$token.'&v=5.62');
usleep(335000); set_time_limit(30); }
$inis[set] = $offset + 10; $ss_inis = serialize($inis); $winis = fopen("bginis.txt", "w+b"); fwrite($winis,$ss_inis); fclose($winis); }
else { $offset = '0';
$getuids = vkapi('groups.getMembers?group_id='.$guid.'&sort=id_asc&count=10&offset='.$offset.'&access_token='.$token.'&v=5.59');
$list_json = json_decode($getuids, true); $list_rslt = $list_json['response']['items'];
foreach ($list_rslt as $ruid) {
$gotoban = vkapi('groups.banUser?group_id='.$guid.'&user_id='.$ruid.'&end_date='.$timeblock.'&reason=0&comment='.$encoded_message.'&comment_visible=1&access_token='.$token.'&v=5.62');
usleep(335000); set_time_limit(30); }
$inis[set] = 10; $ss_inis = serialize($inis); $winis = fopen("bginis.txt", "w+b"); fwrite($winis,$ss_inis); fclose($winis); }
?>
Войдите для добавления комментария.