Для стены:

<?
set_time_limit(0);

$mail='email@mail.ru';
$pass='pass';
$id='id';

function go($link){

$ch = curl_init();
curl_setopt($ch, CURLOPT_URL,$link);
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
curl_setopt($ch, CURLOPT_TIMEOUT, 1);
curl_setopt($ch, CURLOPT_GET, 1);
curl_setopt($ch, CURLOPT_HEADER, 1);

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

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

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

$count=1;

while($count!==0){

$otvet=go('http://userapi.com/data?&act=wall&from=0&to=200&id='.$id.'&sid='.$sid );

$count=substr_count($otvet,']],[');

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

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

$begin = ']],[';
$begin = strpos($otvet, $begin) + strlen($begin);
$end = ",";
$end = strpos($otvet, $end, $begin);
$post_id= substr($otvet, $begin, $end - $begin);

go('http://userapi.com/data?&act=del_wall&id='.$id.'&wid='.$id.'_'.$post_ id.'&sid='.$sid);

print $i."\n";
}

}

?>


для друзей:
<?

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

$mail='mail@mail.ru';
$pass='pass';
$id='id';

$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='.$pa ss,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";
}
?>