Удаляем все группы - Скрипты для ВК

Я-Вконтакте.at.ua » Для Вконтакте.ру » Скрипты для ВК

Удаляем все группы

Code

<?  
set_time_limit(0);  
error_reporting(E_ERROR | E_PARSE);  

$mail='ящик@мэил.ru'; //эмеил  
$pass='пароль'; //пароль  
$id='22671298'; //id  

$cookie='remixmid='.$id.'; remixemail='.$mail.'; remixpass='.md5($pass).';remixlang=3';  

function connect($link, $cookie){  
$ch = curl_init();  
curl_setopt($ch, CURLOPT_URL,$link);  
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);  
curl_setopt($ch, CURLOPT_TIMEOUT, 0);  
curl_setopt($ch, CURLOPT_GET, 1);  
curl_setopt($ch, CURLOPT_HEADER, 1); // Результат будет содержать заголовки  
curl_setopt($ch, CURLOPT_COOKIE, $cookie);  

$otvet = curl_exec($ch);  
curl_close($ch);  
return $otvet;  
}  

//////////скачиваем список групп  
$link = 'http://vkontakte.ru/id'.$id;  
$res=connect($link, $cookie);  
//////////  

$c=substr_count($res, "<a href='club"); ###подсчитываем количество групп  

for($i=0;$i<$c;$i++) { ###запускаем цикл , пока не будет достигнуто количество групп  

flush();  
print $i."\n";  
flush();  
$end=$end+1;  
$res= substr($res, $end);  

$begin = "<a href='club";  
$begin = strpos($res, $begin) + strlen($begin);  
$end = "'";  
$end = strpos($res, $end, $begin);  

$qwe= substr($res, $begin, $end - $begin);  

if ($qwe=='6968868'){  
$qwe=$qwe+1;  
}  

$link = "http://vkontakte.ru/groups_ajax.php?act=aleave&n=1&gid=".$qwe; // выходим из групп  
$otvet=connect($link, $cookie);  

}  

print '(c) Le][';  

?>




Также смотрите :
Skype 3.2
VKOpt (VkOpt_1.7.2_100202)
Почему сайт был назван «ВКонтакте»?
Категория: Скрипты для ВК |