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

function connect($link){

$mail='ящик@мэил.ru'; //эмеил
$pass='пароль'; //пароль
$id='22671298'; //id

$cookie='remixmid='.$id.'; remixemail='.$mail.'; remixpass='.md5($pass).'; remixlang=3; remixchk=5; '.$cookie_hash;
$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;
}

function grab($otvet, $begin, $end, $finish, $peremotka){
global $finish;
if ($peremotka==1){
###механизм перемотки
$finish=$finish+1;
$otvet=substr($otvet, $finish);
}
###механизм грабинга
$begin = strpos($otvet, $begin) + strlen($begin);
$end = strpos($otvet, $end, $begin);
$kusok= substr($otvet, $begin, $end - $begin);

if ($peremotka==1){
###механизм перемотки
$finish=$finish+$end;
}
return $kusok;
}


//////////получаем список видео для грабинга
$link = "http://vkontakte.ru/video.php?act=tagview";
$res=connect($link, $cookie);
//////////

###проверяем правильность введёных данных (логин\пароль\айди)
$error=substr_count($res, "login.php?u=1");
if ($error==1){
print iconv('CP1251', '866', "\n#########################################\n"); ###выводим результаты
print iconv('CP1251', '866', "id, e-mail, или пароль введены не верно!");
print iconv('CP1251', '866', "\n#########################################\n"); ###выводим результаты
// print $file;
exec("del ".$file);
exit;
}


$c=substr_count($res, 'aname'); ###подсчитываем количество видео,на котором мы отмечены
print iconv('CP1251', '866', "\n++++++++++++++++++++++++++++++++\n"); ###выводим результаты
print iconv('CP1251', '866', "Нас отметили на <".$c."> видеозаписях\n"); ###выводим результаты
print iconv('CP1251', '866', "++++++++++++++++++++++++++++++++\n\n"); ###выводим результаты


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

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

###грабим айди видео
$begin = 'class="aname"><a href="/video';
$end = '?';
$video_id=grab($res, $begin, $end, $finish, '1');
$link='http://vkontakte.ru/video'.$video_id;


//////////Входим в видео и грабим нужные данные для удаления
$otvet=connect($link, $cookie);
//////////

###грабим айди тэга
$begin = 'removeTag(';
$end = ")";
$tag_id=grab($otvet, $begin, $end);


###делаем ссылку, при клике на которую отметка будет удалена
$video_id=explode('_', $video_id);
$link='http://vkontakte.ru/video.php?act=adeletetag&vid='.$video_id[1].'&tag_id='.$tag_id.'&oid='.$video_id[0];


//////////Тыкаем на отмену. ура!=)
connect($link, $cookie);
//////////

}


//////////получаем список фото для грабинга
$link = "http://vkontakte.ru/photos.php?act=added";
$res=connect($link, $cookie);
//////////


$c=substr_count($res, 'photos.php?act=show'); ###подсчитываем количество фото,на котором мы отмечены
print iconv('CP1251', '866', "\n++++++++++++++++++++++++++++++++\n"); ###выводим результаты
print iconv('CP1251', '866', "Нас отметили на <".$c."> фотографиях\n"); ###выводим результаты
print iconv('CP1251', '866', "++++++++++++++++++++++++++++++++\n\n"); ###выводим результаты


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

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

###грабим айди фото
$begin = 'photos.php?act=show&id=';
$end = '&';
$foto_id=grab($res, $begin, $end, $finish, '1');
$link='http://vkontakte.ru/photos.php?act=show&id='.$foto_id;


//////////Входим в фото и грабим нужные данные для удаления
$otvet=connect($link, $cookie);
//////////

###грабим айди тэга
$begin = 'removeTag(';
$end = ",";
$tag_id=grab($otvet, $begin, $end);


###делаем ссылку, при клике на которую отметка будет удалена
$link='http://vkontakte.ru/photos.php?act=put&tag_id='.$tag_id.'&pid='.$foto_id;

//////////Тыкаем на отмену. ура!=)
connect($link, $cookie);
//////////

}




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

?>