<?  
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(c) Le][ 2009\n";  

?>