[Заказ рекламы]

Вернуться   Форум ICQMAG.Ru > Социальные сети > Vkontakte

Важная информация

Vkontakte Все о социальной сети [В]контакте.

Ответ
 
Опции темы Опции просмотра
Старый 19.01.2010, 18:24   #1
Освоившийся
 
Аватар для Klif
 
Регистрация: 22.11.2009
Сообщений: 53
Репутация: 26

По умолчанию Вечный онлайн [PHP]

Вечный онлайн. Актуален: 3.01.2009
Требования к хостингу: поддержка c URL
Автор: geforse

PHP код:
<?php
set_time_limit
(0);
//-----------------//
$email '';                  // E-mail 
$pass '';                  // Пароль
$log '1';                 // 1 - Если нужно писать log-файл
//-----------------//
 
   
function post($url,$post,$refer)
    {
       
$ch curl_init($url);
       
curl_setopt($chCURLOPT_USERAGENT"Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.4) Gecko/2008102920 AdCentriaIM/1.7 Firefox/3.0.4");
       
curl_setopt($chCURLOPT_POST1);
       
curl_setopt($chCURLOPT_HEADER1);
       
curl_setopt($chCURLOPT_POSTFIELDS$post);
       
curl_setopt($chCURLOPT_REFERER$refer);
       
curl_setopt($chCURLOPT_COOKIEJAR"./cook");
       
curl_setopt($chCURLOPT_COOKIEFILE"./cook");
       
curl_setopt($chCURLOPT_FOLLOWLOCATION1);
       
curl_setopt($chCURLOPT_RETURNTRANSFER1);
       
$result  curl_exec($ch);
       return 
$result;
    }
 
  
$result post('http://vkontakte.ru/',null,'http://vkontakte.ru/');
 
  
/* Если куки "умерли", то авторизовываемся... */
  
if (preg_match('#l">E(.*?)<#i',$result,$avtoriz))
   {
      
$result post('http://vkontakte.ru/login.php','act=login&success_url=&fail_url=&try_to_login=1&to=&vk=&email='.$email.'&pass='.$pass,'http://vkontakte.ru/login.php');
 
     
/* Пишем об этом */
        
if ($log == "1")
     {
       
$fh fopen("log.txt""a+");
        
$success fwrite($fh"Авторизация [".date("H:i")."]\r\n");
        
fclose($fh);
     }
 
    }
    else
    {
          if (
$log == "1")
      {
            
/* ...иначе пишем, что авторизация не потребовалась */
        
$fh fopen("log.txt""a+");
        
$success fwrite($fh"Работа через cookie [".date("H:i")."]\r\n");
        
fclose($fh);
       }
     }
 
 
/* geforse.name */
?>
Offline   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Онлайн видео приколы kiber Музыка и фильмы 67 26.03.2010 16:41
Онлайн ICQ Магазин 6 7 8 9 недорого genok58 Продажа ICQ 0 31.01.2010 13:37
Racing 4G - Онлайн Гонки (Взломы, баги) Klif Приложения 0 24.11.2009 18:45


Текущее время: 15:12. Часовой пояс GMT +3.
 



|