Новый логин вконтакте. Парсер перестал работать.

Вот часть парсера сообщений вконтакте. Перестал логиниться и работать! помогите исправить пацандрэ!


set_time_limit(0);
include('conf.php');
include('simple_html_dom.php');
include("start.php");


// connect to forum db
//

mysql_connect($dbhost, $dbuser, $dbpasswd);
mysql_select_db($dbname);
mysql_query("SET NAMES cp1251");


$user_cookie_file = 'cookie.txt';
$bad_symbols = array('{', '}');
$min_date = mktime(0, 0, 0, 12, 12, 2012);

function Login($uname, $pass)
{
    global $user_cookie_file;
    $ch = curl_init();
    curl_setopt($ch, CURLOPT_URL, 'http://vk.com/login.php');
    curl_setopt($ch, CURLOPT_COOKIEJAR, $user_cookie_file);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($ch, CURLOPT_POST, 1);
    curl_setopt($ch, CURLOPT_POSTFIELDS, 'email='.$uname.'&pass='.$pass);
    curl_exec($ch);
    curl_close($ch);
}

function GetPageContent($url)
{
    global $user_cookie_file;

    $ch = curl_init();
    curl_setopt($ch, CURLOPT_URL, $url);
    curl_setopt($ch, CURLOPT_COOKIEFILE, $user_cookie_file);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($ch, CURLOPT_TIMEOUT, 15);
    $res = curl_exec($ch);
    curl_close($ch);

    return $res;
}

function AddUser($name, $date)
{
    global $table_prefix;

    $reg_date = $date - mt_rand(300, 1296000);

    // reg user if not registered
    //

    $row = mysql_fetch_array(mysql_query("SELECT `user_id` FROM `{$table_prefix}users` WHERE `username` = '{$name}'"));

    if ($row)
        $user_id = $row['user_id'];
    else
    {
        mysql_query("INSERT INTO `{$table_prefix}users` (`group_id`, `username`, `username_clean`, `user_regdate`) VALUES ('2', '{$name}', '{$name}', '{$reg_date}')");
        $user_id = mysql_insert_id();
        mysql_query("INSERT INTO `{$table_prefix}user_group` (`group_id`, `user_id`) VALUES ('7', '{$user_id}')");

        mysql_query("UPDATE `{$table_prefix}config` SET `config_value` = `config_value` + 1 WHERE `config_name` = 'num_users'");
        mysql_query("UPDATE `{$table_prefix}config` SET `config_value` = '{$name}' WHERE `config_name` = 'newest_username'");
        mysql_query("UPDATE `{$table_prefix}config` SET `config_value` = '{$user_id}' WHERE `config_name` = 'newest_user_id'");
    }

    return $user_id;
}


if (isset($_POST['ok']))
{
    // login to vkontakte
    //
 
  echo "Running...
"
;

    $uname = $_POST['uname'];
  //$uname = "***********@mail.ru";
    $pass = $_POST['pass'];
  //$pass = "*********";

   //echo "login = ".$uname."
";

  //echo "pass = ".$pass."
";


    Login($uname, $pass);
 
  $arr_lenght = count($found[0]);
 
  //echo "arr_lenght = ".$arr_lenght;
   
   for($i=0; $i<$arr_lenght; $i++)
   {

    // get title, author, first page and count max offset
    //

    //$topic = trim($_POST['topic']);
 
  //$tmp = "http://vk.com/".$found[0][$i];
  echo "current link: "."http://vk.com/".$found[0][$i]."
"
;
 
  //$cut = substr($found[0][$i], 0, strlen($found[0][$i])-1);
 
  $topic = "http://vk.com/".$found[0][$i];

        //echo "topic = ".$topic."
";

 
  $content = GetPageContent($topic);

        //echo "content = ".$content."
";

   

    if (trim($content) == '')
        exit('error');

    $html = str_get_html(str_replace($bad_symbols, '', $content));

    //echo "html = ".$html."
";


    //$title = $html->find('a#topic_title', 0);
no image

Аноним

30 января, 09:42
457

Нет комментариев

Добавить комментарий
Вы не можете оставлять комментарии. Чтобы добавить комментарий, залогиньтесь или зарегистрируйтесь
Вы не можете голосовать. Чтобы проголосовать, залогиньтесь или зарегистрируйтесь

Нет ответов

Вы не можете отвечать на вопросы. Чтобы ответить на вопрос, пожалуйста залогиньтесь или зарегистрируйтесь
Работа в Украине
Вакансии от WORK.ua
UI/UX Web Designer
Киев, Izofast
Software developer for ABOR
Киев, SimCorp Ukraine LLC
Project Manager/Product owner
Харьков, Zfort Group
Java developer
Другие страны, MeritKapital
Системный администратор
Кривой Рог, Вікна Віконда, ТОВ
Delphi/SQL (MSSQL)/C# Developer
Днепр, MGNY Консалтинг