• 32981
  • 250
  • 8
Нравится блог?
Подписывайтесь!

Статистика с megaline.kz

Полтора месяца, может немногим более прошло, как я начал читать книжку по php. Написал небольшой скрипт от нечего делать, который логинится на сайт megaline.kz и получает оттуда статистику. Скрипт нуждается в доработке, шлифовке, но на это времени нет - главное работает.
  1. <?php
  2. $month = "200905";  //формат даты YYYYMM
  3. $name = "login";    //имя пользователя
  4. $pass = "password"; //пароль
  5.  
  6. ini_set("max_execution_time", "600"); //порой не успевает отработать за 30 секунд
  7.  
  8. //отправляем запрос
  9. $out = "GET /billing-dealer/index.do HTTP/1.1\r\n";
  10. $out .= "Host: cabinet.megaline.kz\r\n";
  11. $out .= "\r\n";
  12.  
  13. $fp = fsockopen("cabinet.megaline.kz", 80);
  14. fwrite($fp, $out);
  15. while(!feof($fp))
  16. {
  17. $content .= fgets($fp, 1024);
  18. }
  19. fclose($fp);
  20.  
  21. //получаем ID
  22. $begin = strpos($content, "JSESSIONID=") + strlen("JSESSIONID=");
  23. $end = strpos($content, ";", $begin);
  24. $sessionId = substr($content, $begin, $end - $begin);
  25. echo $sessionId;
  26.  
  27. //формируем запрос с именем пользователя и паролем
  28. $query = "user=$name&password=$pass";
  29. $query_len = strlen($query);
  30. $rand = time();
  31.  
  32. $out2 = "POST /billing-dealer/login.do;jsessionid=$sessionId&rand=$rand HTTP/1.1\r\n";
  33. $out2 .= "Host: cabinet.megaline.kz\r\n";
  34. $out2 .= "Referer: http://cabinet.megaline.kz/billing-dealer/index.do\r\n";
  35. $out2 .= "Content-Type: application/x-www-form-urlencoded\r\n";
  36. $out2 .= "Content-Length: $query_len\r\n";
  37. $out2 .= "Cookie: JSESSIONID=$sessionId; Path=/billing-dealer\r\n";
  38. $out2 .= "Connection: Close\r\n";
  39. $out2 .= "\r\n";
  40. $out2 .= $query;
  41.  
  42. $fp = fsockopen("cabinet.megaline.kz", 80) or die("111");
  43. fwrite($fp, $out2);
  44. sleep(2);
  45. fclose($fp);
  46.  
  47. $out3 = "GET http://cabinet.megaline.kz/billing-dealer/statistic-list.do?currDate=$month HTTP/1.1\r\n";
  48. $out3 .= "Host: cabinet.megaline.kz\r\n";
  49. $out3 .= "Referer: http://cabinet.megaline.kz/billing-dealer/index.do\r\n";
  50. $out3 .= "Cookie: JSESSIONID=$sessionId; Path=/billing-dealer\r\n";
  51. $out3 .= "\r\n";
  52.  
  53. $content = '';
  54. $fp = fsockopen("cabinet.megaline.kz", 80);
  55. fwrite($fp, $out3);
  56. sleep(2);
  57. while(!feof($fp))
  58. {
  59. $content .= fgets($fp, 1024);
  60. }
  61. echo $content;
  62. fclose($fp);
  63.  
  64. preg_match_all("/Total Internet256Hit<\/th>\s*<th><\/th>\s*<th>(\d+.\d+)<\/th>\s*<th>(\d+.\d+)/", $content, $matches);
  65. echo "<br /> Входящий внешний трафик: ".$matches[1][0]; //входящий трафик
  66. echo "<br /> Исходящий внешний трафик: ".$matches[2][0]; //искходящий трафик
  67.  
  68. preg_match_all("/Total KazInternet512<\/th>\s*<th><\/th>\s*<th>(\d+.\d+)<\/th>\s*<th>(\d+.\d+)/", $content, $matches);
  69. echo "<br /> Входящий казахстанский трафик: ".$matches[1][0]; //входящий трафик
  70. echo "<br /> Исходящий казастанский трафик: ".$matches[2][0]; //искходящий трафик
  71.  
  72. preg_match_all("/Total\s<\/th>\s*<th><\/th>\s*<th>(\d+.\d+)<\/th>\s*<th>(\d+.\d+)/", $content, $matches);
  73. echo "<br /> Общий входящий трафик: ".$matches[1][0]; //входящий трафик
  74. echo "<br /> Общий исходящий трафик: ".$matches[2][0]; //искходящий трафик
  75.  
  76.  
  77. ?>
16 мая 2009, 0:22
5844

Загрузка...
Loading...

Комментарии

проклятая подсветка кода обратные слеши загубила :(
adek
0
0
сделай снимок экрана и сюда залей... и ещё один файл .txt с кодом сюды

Оставьте свой комментарий

Спасибо за открытие блога в Yvision.kz! Чтобы убедиться в отсутствии спама, все комментарии новых пользователей проходят премодерацию. Соблюдение правил нашей блог-платформы ускорит ваш переход в категорию надежных пользователей, не нуждающихся в премодерации. Обязательно прочтите наши правила по указанной ссылке: Правила

Также можно нажать Ctrl+Enter

Популярные посты

Узаконенное варварство в стране, принимающей «EPXO». Еще далеко нам до «топ-30 развитых стран»

Узаконенное варварство в стране, принимающей «EPXO». Еще далеко нам до «топ-30 развитых стран»

В продвинутых государствах едва ли поймут, почему в столь развитом, успешном и преуспевающем Казахстане от имени и по заданию властей творятся такие зверства над животными.
openqazaqstan
24 мая 2017 / 12:12
  • 9590
  • 89
Поддержим пенсией жиреющие банки! На что казахстанцам разрешат досрочно тратить свои накопления в ЕНПФ

Поддержим пенсией жиреющие банки! На что казахстанцам разрешат досрочно тратить свои накопления в ЕНПФ

Со стороны ЕНПФ в очередной раз прозвучало крайне неоднозначное заявление, от которого, на наш взгляд, лучше было бы воздержаться.
openqazaqstan
23 мая 2017 / 11:08
  • 9141
  • 31
Что бы ни сделал пешеход – все равно водитель сядет

Что бы ни сделал пешеход – все равно водитель сядет

Вопрос о равной ответственности водителя и пешехода при наезде на последних, только-только начинают обдумывать в высоких кабинетах. Но, пока государственные головы думают, водители продолжают...
Mirogloff
22 мая 2017 / 23:29
  • 4732
  • 32
Вырубка деревьев в Алматы под БРТ. Проект уже нанес городу экологический ущерб

Вырубка деревьев в Алматы под БРТ. Проект уже нанес городу экологический ущерб

Как ранее уже сообщалось из-за строительства БРТ в Алматы пострадают значительное количество деревьев. На прошлой неделе вырублены первые вязы и клён, - под расширение проезжей части на улице...
SKYFALL
24 мая 2017 / 17:20
  • 4367
  • 12
Алматинские проститутки превращаются в шпионок

Алматинские проститутки превращаются в шпионок

Попасть в притоны на алматинском проспекте Сейфуллина, которых, как бы ни старались полицейские, меньше не становится, теперь можно, только зная явки и пароли.
Mirogloff
19 мая 2017 / 13:25
  • 4468
  • 38
Пока полицейские будут прощать, им будут бить и по чести, и по лицу

Пока полицейские будут прощать, им будут бить и по чести, и по лицу

Судья Алмалинского районного суда Куаныш Арипов ломает стереотипы отношения граждан к представителям Фемиды. Напавшему на полицейского экс-сотруднику алматинского акимата он назначил наказание выше...
Mirogloff
24 мая 2017 / 16:41
  • 3236
  • 9
Да-да, я знаю, пора выходить замуж. Есть ли у меня еще время и, пожалуйста, уточните сколько?

Да-да, я знаю, пора выходить замуж. Есть ли у меня еще время и, пожалуйста, уточните сколько?

Итак давайте сразу начистоту. Мне 29. Не замужем, никогда не была, детей нет. В душе я совсем не чувствую этот возраст. Каждый раз когда задумываюсь об этом больше чем на 3 минуты, меня накрывает...
user2017
23 мая 2017 / 10:57
В Алматы доставили чудотворную икону «Умягчение злых сердец»

В Алматы доставили чудотворную икону «Умягчение злых сердец»

Икона "Умягчение злых сердец" несет особые - сакральные, духовные смыслы. Ее намоленность ощущается даже за те секунды, пока прикасаешься губами к образу.
ValentinaVladimirska
20 мая 2017 / 0:09
  • 3305
  • 0
Выйду замуж по расчету. Брак обесценился, пора вновь возвращать ему ценность

Выйду замуж по расчету. Брак обесценился, пора вновь возвращать ему ценность

После череды неудачных романов, статусов "все сложно", ножей в спину, идея "выйти замуж по расчету" посещает все чаще. И мне не стыдно про это говорить.
energo_ulzhan
22 мая 2017 / 17:39
  • 2689
  • 55