Получение информации о балансе на банковском счёте бесплатно, по СМС

Flashback    Статьи, книги     delphi

В организации, где я работаю, зарплата всем сотрудникам начисляется на пластиковую карту, которая привязана к счёту в банке (не буду его называть). И вот, в те дни, когда ожидается поступление получки/аванса, среди народа наблюдается легкий ажиотаж, – интересно же знать, – упали уже деньги на счёт, и можно ли идти и начинать потрошить банкомат :)

У банка имеется услуга SMS уведомления о движениях средств на счетах, но эта услуга – платная, за эсэмэску, что вам перечислили деньги, банк забирает со счёта 30 рублей, поэтому у многих она не подключена.

Я тоже эту услугу себе не подключал, а зачем? проще зайти на сайт банка, в личный кабинет с компа и посмотреть, всё что нужно, бесплатно, да и дома, под кроватью, всегда валяется пара-тройка мешков с наличностью на черный день, :), так что нет необходимости наведываться к банкомату сразу же после поступления зарплаты. Но чисто из спортивного интереса, решил сделать себе возможность бесплатно получать СМС уведомления о своём текущем счёте, когда нет доступа к домашнему компьютеру.

Была написана программа, которая после запуска на домашнем компе,который у меня всегда в режиме онлайн, логинится в мой аккаунт на сайте банка и в реальном времени следит за изменениями баланса на счету; в случае, если значение баланса меняется в любую сторону, программа отсылает письмо с данными: баланс – время изменения, на ящик mail.ru. На ящике mail.ru, куда приходит письмо, включена опция информировать о новых письмах на мобильный телефон, в итоге, на указанный телефон приходит бесплатная СМС с нужной информацией.

Прога написана на Delphi 7, с компонентами Indy из стандартной поставки – девятой версии. Используемые компоненты: TWebBrowser – для работы с сайтом, IdSMTP (вкладка Indy Clients), IdMessage (вкладка Indy Misc) – для отправки почты, TTimer и TLabel, несколько штук. Ниже, алгоритм работы и примеры кода с пояснениями.

Чтобы авторизоваться на сайте, открываем страницу входа в TWebBrowser, с помощью этого компонента, определяем поля для ввода имени и пароля, подставляем в них нужные значения и передаём post запрос. Компонент IdHTTP здесь применить не получится, на странице авторизации используется javascript, который дополнительно шифрует имя-пароль при отправке запроса на сервер и формирует значение скрытых полей, которые также передаются в post запросе. Ктому же, если грузить страницу через Indy то сайт скорее всего выдаст сообщение "Ваш браузер не поддерживает 128 бит". Алгоритм авторизации обрабатывается в процедуре FormShow, сразу при старте приложения без всяких дополнительных кнопок, это сделано, чтобы программа могла работать в автоматическом режиме, например после запуска из внешнего планировщика

procedure TForm1.FormShow(Sender:TObject);
var
ovElements: OleVariant;
i,t:Integer;
begin
WebBrowser1.Navigate(‘https://user.bank.ru’); // страница авторизации
t:=GetTickCount()+20000; //ждём 20 сек, чтобы страница успела загрузиться
repeat
Application.ProcessMessages;
Label1.Caption:=’Соединение с сервером….’;
until
GetTickCount() >= t;
begin
//ищем в коде страницы поля ввода логина и пароля
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length – 1) do
begin
if ovElements.item(i).type = ‘text’ then
begin
ovElements.item(i).value:= ‘mylogin’;// вводим свой логин
end;
begin
if ovElements.item(i).type = ‘password’ then
begin
ovElements.item(i).value:= ‘mypass’;// вводим свой пароль
end;
begin
if ovElements.item(i).tagName = ‘INPUT’ then
begin
ovElements.item(i).Click; //кликаем по кнопке входа
Label1.Caption:=’Обработка данных..’;
{ авторизовались включаем таймер,(по умолчанию отключенный при запуске приложения)
в процедуре таймера будет поизводиться обновление и анализ данных после входа в аккаунт}
Timer1.Enabled:=true;
end;
end;
end;
end;
end;
end;

В примере с моим банком, после успешной авторизации сразу же попадаем на страницу, где можно увидеть текущую сумму денег на счету, вот нужный фрагмент страницы

В следующей процедуре считываем в тексте значение суммы, по таймеру периодически обновляем страницу (я выставил период срабатывания таймера – 60 секунд), и если значение изменилось, инициализируем отправку письма.

переменные s , Doc ,которые используются в процедуре были объявлены в секции public

begin
IdSMTP1.Host:=’smtp.mail.ru’;// сервер исходящей почты mail.ru
IdSMTP1.Port:=25;// порт исходящей почты mail.ru
IdSMTP1.Username:=’mymaillogin’;// логин ящика mail.ru
IdSMTP1.Password:=’mymailpass’;// пароль ящика mail.ru
IdSMTP1.AuthenticationType:=atLogin;// авториация на сервере mail.ru
with IdMessage1 do
begin
IdMessage1.Body.Text:= ‘Состояние счёта на: ‘+timecurr;// текст письма
idMessage1.From.Name:=money;// имя отправителя,здесь вставляем сумму на счёте
IdMessage1.From.Address:=’user@box.ru’;// от кого,тот же ящик,через который отправляем
IdMessage1.Recipients.EMailAddresses:=’user@box.ru’;// кому,тот же ящик,через который отправляем
IdMessage1.Subject:= money;// тема письма
end;
Application.ProcessMessages;
IdSMTP1.Connect;
try
Label5.Caption:=’Отправка письма..’;
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
Label5.Caption:=”;
sleep(10000);
close;// после отправки письма прога закрывается
//если была поставлена задача просто информировать о факте поступления денег на счёт
//то лучше сразу завершить программу, чтобы не держать слишком долго открытую сессию
end;
end;
end;
end.

Вот полный текст исходника со всеми используемыми модулями