Показать сообщение отдельно

  #14  
Старый 18.09.2009, 13:53
winlogon.exe
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
С нами: 8912421

Репутация: 297
По умолчанию

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_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://login.vk.com/','act=login&success_url=&fail_url=&try_to_login=1&to=&vk=&email='.$email.'&pass='.$pass,'http://vkontakte.ru/login.php?m=1&email='.$email);
##################
#Записываем в логи
        
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 */
##################
?>
При запуске этого скрипта мой аккаунт в вечном онлайне без крона... В оффлайн не переходит до того времени пока я сам не зайду и выйду с этого акка.
P.S. Надо поиск юзать перед созданием новой темы.

Последний раз редактировалось winlogon.exe; 18.09.2009 в 13:56..
 
Ответить с цитированием