[spoiler] [/spoiler]
ИНТЕРНЕТ
Главная
Вход
Регистрация
Понедельник, 20.05.2024, 13:52Приветствую Вас Гость | RSS
(WMZ - доллар)
Меню сайта

Категории раздела
Музыка и аудио Вконтакте [0]
Секреты Вконтакте [0]
Видео Вконтакте [0]
Аватарки Вконтакте [0]
Стили Вконтакте [45]
Установка стилей [0]
Программки Вконтакте [0]
Разное интересное [0]
Скрипты [14]

Мини-чат

Опрос
Оцените мой сайт
Результаты | Архив опросов
Всего ответов: 45
Главная » Файлы » Скрипты
Удаление всех аудиозаписей
[ Чтоб скачать фаил зарегистрируйтесь, или войдите под своим логином ] 10.06.2009, 22:49
Скрипт для удаления всех аудиозаписей с вашей стены 

Также как и со скриптом удаления отметок, либо качаете полный комплект, либо разбираетесь сами, кстати говоря, в этот раз надо будет ручками чуть-чуть поработать, подробности читайте в файле как настроить.txt 

Скачать 

Ну и сам скрипт 
 
 
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/audio.php?act=edit"; 
$res=connect($link, $cookie); 
////////// 

$c=substr_count($res, 'showDeleteAudioBox('); ###подсчитываем количество аудио 

print iconv('CP1251', '866', "\n++++++++++++++++++++++++++++++++\n"); ###выводим результаты 
print iconv('CP1251', '866', "Всего <".$c."> аудиозаписей\n"); ###выводим результаты 
print iconv('CP1251', '866', "++++++++++++++++++++++++++++++++\n\n"); ###выводим результаты 

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

###принтим текущую позицию 
flush(); 
print $i++."\n"; 
flush(); 

$end=$end+1; 
$res= substr($res, $end); 

$begin = 'showDeleteAudioBox('; 
$begin = strpos($res, $begin) + strlen($begin); 
$end = ')'; 
$end = strpos($res, $end, $begin); 
$audio_id = substr($res, $begin, $end - $begin); 

$link='http://vkontakte.ru/audio.php?act=adeleteaudio&oid='.$id.'&aid='.$audio_id; 
//////////удаляем аудио 
$otvet=connect($link, $cookie); 
////////// 

} 

print "\n© Le][ 2009\n"; 

?>

Категория: Скрипты | Добавил: Demon
Просмотров: 2031 | Загрузок: 329 | Комментарии: 1 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Имя *:
Email *:
Код *:
Поиск

Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0

Сайт не несёт ответственности за то, для каких целей будет использоваться весь представленный материал. Используя материал... Вы берёте на себя ответственность за все последствия! © 2024