• 32148
  • 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
5794

Загрузка...

Комментарии

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

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

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

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

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

Мысли вслух. Почему казахи перестали общаться с родственниками и ходить в гости?

Мысли вслух. Почему казахи перестали общаться с родственниками и ходить в гости?

Дастархан в те времена был скромен. Не было понятия «сынау» - осуждения кто как живет, какой в доме ремонт и т.д. Пока взрослые обсуждали задержку заработной платы, мы играли в армию, жмурки, строили городки...
socium_kzo
5 дек. 2016 / 15:19
  • 33045
  • 31
Верховный Суд презентовал комментарий к Гражданскому процессуальному кодексу

Верховный Суд презентовал комментарий к Гражданскому процессуальному кодексу

ГПК содержит 505 статей, многие из которых написаны несколько сложным юридическим языком. Однако теперь понять их можно проще и без обращения к юристу.
RuSnake
6 дек. 2016 / 10:31
  • 11175
  • 0
Цены Шымбулака – не для казахстанцев? Но вы не нойте. Держитесь и всего вам хорошего

Цены Шымбулака – не для казахстанцев? Но вы не нойте. Держитесь и всего вам хорошего

Знаменитый алматинский горнолыжный курорт «Шымбулак», которым мы все привыкли гордиться, с 10 декабря поднимает цены на свои услуги. Например, дневной абонемент на катание на склонах Шымбулака...
pacifist
9 дек. 2016 / 12:13
  • 11645
  • 31
Невозвращенцы-болашаковцы должны государству почти 2 млрд тенге. Кто их теперь вернет?

Невозвращенцы-болашаковцы должны государству почти 2 млрд тенге. Кто их теперь вернет?

Как сообщают новостные порталы, в Нью-Йорке нашёлся бывший болашаковец Ержан Еликов, исчезнувший пять лет назад и всё это время не выходивший на связь с родителями. Да-да, это именно он, «тот самый».
openqazaqstan
9 дек. 2016 / 14:31
  • 12133
  • 53
Японец о Казахстане: «Ваши девушки уж сильно себе набивают цену...»

Японец о Казахстане: «Ваши девушки уж сильно себе набивают цену...»

"Мужчины должны у вас тут права качать, ибо их процент в вашей численности населения уступает проценту женщин". Я машинально начала уверять, что у нас в стране таковых не имеется...
Sapientia
5 дек. 2016 / 10:52
  • 11252
  • 71
Известный европейский фотограф показал истинную красоту казашек

Известный европейский фотограф показал истинную красоту казашек

С 26 по 30 ноября в Алматы гостил известный европейский фотограф Ян Маклайн в рамках реализации совместного проекта с Казахстаном. Подробности не уточняются, однако ходят слухи о том, что этот...
Muchacho55
7 дек. 2016 / 18:29
  • 10048
  • 8
Распил 1 млрд долларов или спасение для Алматы? В 2017-м начнётся строительство БАКАД

Распил 1 млрд долларов или спасение для Алматы? В 2017-м начнётся строительство БАКАД

Конечно, Алматы заслужил эту дорогу. Невзирая на все издержки, которые могут возникнуть. Заслужил и как крупнейший город Казахстана, и как субъект, формирующий своими налогами около четверти всех...
merurg
7 дек. 2016 / 12:35
  • 7709
  • 20
«Лицо дьявола»? Страшный силуэт на стекле – не оправдание водительской безответственности

«Лицо дьявола»? Страшный силуэт на стекле – не оправдание водительской безответственности

Казнет уже которые сутки подряд обсуждает страшную аварию на трассе Астана – Боровое, где сошлись страшные мистические знаки и где из-за банальной человеческой безответственности гибли люди..
openqazaqstan
8 дек. 2016 / 13:14
  • 7192
  • 7
10 причин, по которым я не смогла работать учителем. Не только в зарплате дело, ребята

10 причин, по которым я не смогла работать учителем. Не только в зарплате дело, ребята

Я почти год проработала в школе, и когда уходила оттуда, была самым счастливым человеком в мире. Тот год, честно говоря, я и сейчас вспоминаю с ужасом.
demonica
6 дек. 2016 / 17:21
  • 6925
  • 79