Баланс БВК, Мегафон

**nobody** · 14.09.2007 18:41

Появилась у меня такая идея... Сделать проверку баланса для телефона, да так, чтоб она всегда под рукой была. Поскольку большинство народу сидит на Виндусе, то такие волшебные штуки как Conky поюзать не могут. Под виндусом для этих целей больше всего сгодятся Opera Widgets и Google Gadgets. Но вот беда, я совсем не дружу с JavaScript.

Привожу здесь два скрипта на перле для проверки баланса БВК и Мегафона. Для работы потребуется установить через ppm библиотеку Crypt::SSLeay из репозитария http://theoryx5.uwinnipeg.ca/ppms/ (для Perl 5.8) или http://theoryx5.uwinnipeg.ca/ppmpackages/ (для Perl 5.6)

Код:

#!/usr/bin/perl -w
#############################################################
##
## BWC (http://www.bwc.ru) balance checker
## by Qwadrat, qwadrat@gmail.com
##
#############################################################

use strict;
use warnings;
use LWP;

my $prefix='902'; #код
my $phone='1234567'; #7 цифр телефона
my $passwd='xxxx'; # пароль на issa.bwc.ru
my $agent = LWP::UserAgent->new;
my $url = 'http://issa.bwc.ru/cgi-bin/cgi.exe?function=is_login'
$agent->cookie_jar({});
my $response = $agent->post($url,
[ 'mobnum' => $prefix.$phone,
'Password' => $passwd
]
);
die "$url error: ", $response->status_line
unless $response->is_success;
$response = $agent->get("http://issa.bwc.ru/cgi-bin/cgi.exe?function=is_account");
$response->content =~ /<td class=dark align=left width="50%">&nbsp;Актуальный баланс:<\/td>\r\n<td class=light width="50%">&nbsp;(.+?)&nbsp;/;
my $rc = (defined $1)?($1):("**.**");
print $rc, "\n";
$response->content =~ /(cgi-bin\/cgi.exe?function=is_exit)\"/;
$response = $agent->get("http://issa.bwc.ru");

Код:

#!/usr/bin/perl -w
#############################################################
##
## Megafon DV (http://megafondv.ru) balance checker
## by Qwadrat, qwadrat@gmail.com
##
#############################################################

use strict;
use warnings;
use LWP;

my $prefix='924'; #код
my $phone='1234567'; #7 цифр телефона
my $passwd='xxxx'; # пароль на sc.megafondv.ru

my $agent = LWP::UserAgent->new;
my $url = 'https://sc.megafondv.ru/SELFCARE/ACCOUNT_INFO';
my $response = $agent->post($url,
[ 'X_Username' => $prefix.$phone,
'X_Password' => $passwd
]
);
die "$url error: ", $response->status_line
unless $response->is_success;
$response->content =~ /<div class="numg" style="margin:0 0 0 5px;">(.+?) руб/;
my $rc = (defined $1)?($1):("**.**");
print $rc, "\n";
$response->content =~ /(CLOSE_SESSION.SESSION_ID=.+?)\"/;
$response = $agent->get("https://sc.megafondv.ru/SELFCARE/$1");

Задача в следующем: переписать это на JavaScript с использованием XMLHttpRequest(), чтобы оформить затем это в виджеты и гаджеты. Кто мне поможет?

**nons** · 14.09.2007 19:37

мм.. идея очень гут!
как раз аякс штурмую, как выкрою свободную минутку - посмотрю (%

**sinner** · 08.10.2007 00:42

так токая прога есть для виндоуз мобаил если надо пишите в личку дам!!!!!!!!!!!БезВозмездно!!!!!

**nobody** · 08.10.2007 14:14

С исходниками?

**sinner** · 08.10.2007 22:23

с чем????????

**sinner** · 08.10.2007 22:40

вот смотрите сами все что требуется от вас ввести номер баланса и через какое время будет происходить обнавление!!!!!!

**sinner** · 09.10.2007 00:32

хоть комменты оставляйте то. та не та прога!!!!!!!

**nobody** · 09.10.2007 00:53

прога может и та, но пользы от нее без исходников нет

**mdie** · 25.10.2007 09:34

"Проэмулить" процесс общения с серваком на основе WininetAPI, добавить парсер для выдирания нужных данных и все ))

**Рой Джинс** · 09.02.2010 14:43

Если кому интересно есть сервис "Мультистатистика БВК" для просмотра данных сразу по нескольким номерам БВК.

Замутил его изначально для личного пользования но если кому интересно можете тоже попробовать.

Основные возможности сервиса:
Просмотр информации по нескольким номерам в виде таблицы.
Отображение истории платежей за предыдущие месяцы в виде гистограммы.
Отображение изменений параметров произошедших с момента последнего просмотра информации.
Возможность сохранить в закладках браузера адрес страницы для последующего быстрого доступа к информации по своим номерам.

Подробное описание здесь...

**bug** · 09.02.2010 14:45

Сообщение от Рой Джинс

Если кому интересно есть сервис "Мультистатистика БВК" для просмотра данных сразу по нескольким номерам БВК.

Замутил его изначально для личного пользования но если кому интересно можете тоже попробовать.

Основные возможности сервиса:
Просмотр информации по нескольким номерам в виде таблицы.
Отображение истории платежей за предыдущие месяцы в виде гистограммы.
Отображение изменений параметров произошедших с момента последнего просмотра информации.
Возможность сохранить в закладках браузера адрес страницы для последующего быстрого доступа к информации по своим номерам.

Подробное описание "здесь..."

страшное дело пользоваться такой фичей... сбор паролей и номеров телефонов.... нах нах....

**Рой Джинс** · 09.02.2010 15:06

Сообщение от bug

страшное дело пользоваться такой фичей... сбор паролей и номеров телефонов.... нах нах....

Согласен

есть опасность

но пароли для доступа на сервере на сохраняются...

Они сохраняются в зашифрованном виде только в закладках браузера если использовать функцию быстрого доступа к своей статистике.

**nons** · 09.02.2010 22:44

самый большой минус таких сервисов — малое изначальное к ним доверие. тут хоть тресни. потому зачастую и остаются на уровне личных поделок.

но ты молодец, сам подобную штуку недавно делал.

**Рой Джинс** · 11.02.2010 16:29

Сообщение от bug

страшное дело пользоваться такой фичей... сбор паролей и номеров телефонов.... нах нах....

Ну это уже паранойа

Вы сейчас глупости говорите.
И я легко объясню вам почему.

Давайте предположим даже что я буду сохранять все пароли для доступа к ИССА (конечно я при желании могу это сделать).
Предположим я соберу таким образом тысячу паролей для доступа в ИССА (хотя я никогда столько не соберу потому что доверия пользователей к этому большого не будет и соответственно пользоваться сервисом будет мало кто).

Но тем не менее предположим что у меня есть доступ к ИССА для 1000 номеров...

Ну и что дальше ?
Какую я могу от этого извлечь для себя пользу ?

Если у вас подключена услуга "Касса взаимопомощи" то я могу конечно перевести денежки с чьего-то баланса на свой. Но ведь в этом случае в самой ИССА будет отражено на какой номер я перевел эти деньги и в каком количестве...

Более того, вам смс-ка тут же придет о том сколько и куда я денег перевел

Я что по вашему самоубийца ?

Ну еще конечно можно побаловаться тарифы кому-нибудь поменять ... только вот зачем???

Зачем создавать это чтобы менять кому-то тарифы...

Я просто предложил ... может быть кому-то этот сервис будет полезен...

**KRP** · 12.02.2010 09:42

А нельзя ли добавить в Мультистатистику данные по аккумуляторам? Пакеты минут и трафика?

**[Павел]** · 12.02.2010 09:53

Сообщение от mdie

"Проэмулить" процесс общения с серваком на основе WininetAPI, добавить парсер для выдирания нужных данных и все ))

Оффтопик

Тема: Баланс БВК, Мегафон

Опции темы

Отображение

Баланс БВК, Мегафон

2 пользователей сказали cпасибо nobody за это полезное сообщение:

Мультистатистика БВК - сразу на несколько номеров

1 пользователь сказал cпасибо bug за это полезное сообщение:

1 пользователь сказал cпасибо KRP за это полезное сообщение:

Информация о теме

Пользователи, просматривающие эту тему

Похожие темы

Тестим Мегафон

МТС vs Мегафон

Ваши права