Я-Вконтакте.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; remixchk=5; '.$cookie_hash; 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/video.php?id=".$id; $res=connect($link, $cookie); ////////// $c=substr_count($res, 'video.php?act=delete'); ###подсчитываем количество видео while($c!==0){ $c=substr_count($res, 'video.php?act=delete'); ###подсчитываем количество видео for($i=0;$i<$c;$i) { ###запускаем цикл $qwe=$i++; ###принтим текущую позицию flush(); print $qwe."\n"; flush(); $end=$end+1; $res= substr($res, $end); $begin = 'video.php?act=delete&oid='.$id.'&id='; $begin = strpos($res, $begin) + strlen($begin); $end = '"'; $end = strpos($res, $end, $begin); $video_id = substr($res, $begin, $end - $begin); $link='http://vkontakte.ru/video.php?id='.$video_id.'&oid='.$id.'&hash=null&act=do_delete'; //////////Подтверждаем заявку $otvet=connect($link, $cookie); ////////// if (substr_count($otvet, "blank.php")>1){ $i=$qwe; print "####### Ban\n"; sleep(1); } } //////////получаем список видео $link = "http://vkontakte.ru/video.php?id=".$id; $res=connect($link, $cookie); ////////// $c=substr_count($res, 'video.php?act=delete'); ###подсчитываем количество видео } print "\n(c) Le][ 2009\n"; ?> | |