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

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

Удаляем всех друзей

Code

<?  

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

$mail='admin@xakep.ru';  
$pass='pass';  
$id='22671298';  

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

function go($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;  
}  

$otvet=go('login.userapi.com/auth?site=2&login=force&email='.$mail.'&pass='.$pass,null);  

$begin = 'sid=';  
$begin = strpos($otvet, $begin) + strlen($begin);  
$end = "\r";  
$end = strpos($otvet, $end, $begin);  
$sid= substr($otvet, $begin, $end - $begin);  
print $sid;  

$otvet=go('http://vkontakte.ru/friendJS.php',$cookie);  

//print $otvet;  

$count=substr_count($otvet,'/u');  

print "\nall friend---".$count."\n\n";  

for($i=0;$i<$count;$i++){  

$otvet=substr($otvet,$end);  

$begin = '/u';  
$begin = strpos($otvet, $begin) + strlen($begin);  
$end = '/';  
$end = strpos($otvet, $end, $begin);  
$id = substr($otvet, $begin, $end - $begin);  

$res=go('http://userapi.com/data?act=del_friend&id='.$id.'&sid='.$sid,null);  

print $i."<br>\n";  
}  

print "\n\n----------\n(c) Le][\n";  

?>




Также смотрите :
Proxy Switcher Pro 3.12.1
Статусы про любовь(#1)
DirectX Новая версия
Категория: Скрипты для ВК |