Пост
Hello :)

DELPHI

-

GSM-Modem Controller Beeline/Activ/Tele2/Neo

 
 
И так, что это? а хз) Дело было вечером, делать было нечего =)
 Вот и решил написать, что нибудь полезное на Delphi для себя, но то, что получилось захотелось выложить в свет, может кому то ещё данная программа будет полезна)
Сори, если гдето встретятся опечатки, пишу быстро :)

Что я учёл при написании:
1. У всех было такое что срочно нужен баланс, а возможности пополнить - нет)
2. Компьютер работает 24/7, нужен смс контроль над состоянием
3. Возможность Пополнять баланс Любому абоненту с системы QIWI имея любой телефон под рукой
4. Ну и ещё всякие мелочи :))
 
 
 
Что нужно для работы программы?
1. Любой GSM Модем марки "Huawei"
2. SIM карта Beeline с балансом :)) (Можно любого, но не будет работать запрос экстренного баланса)
3. Компьютер

Программа работает только с модемами марки Huawei. Почему?
-Потому, что адекватнее модема я не встречал (Моё мнение ZTE УГ)

Что может программа?:
1. Отправлять, принимать sms, а также Flash сообщения которые не сохраняются у абонента
2. Пополнять баланс при 0-м балансе, методом запроса баланса у вашего модема *143*...# и *144*...#
3. Пополнять баланс любого оператора, если ваша SIM зарегистрирована в системе QIWI.
4. Возможность звонить или отправлять смс администратору, при загрузке компьютера или при других условиях.
5. Всякие шалости: выключение/перезагрузка компьютера по средствам SMS команды.

С какими операторами будет работать программа?
-Со всеми, но ориентировалась под билайн

Хочу отправлять смс со своего сайта, или программы.
-Без проблем, ниже будет API

Программа имеет WEB интерфейс?
-Да

На каких ОС работает?
-Писал на XP, на других не тестировал, пробуйте.

Сколько оперативной памяти занимает?
-В режиме спокойствия 1,5мб, в режиме обработки 2мб-5мб, выгружается автоматически.
 
НАСТРОЙКА:
 
При первом запуске, программа попросит ввести номер администратора и пароль, придумайте любой пароль (6 символов).
 
 
1. Данный пункт, для того чтобы программа могла сама проверять баланс на вашей SIM карте,
и переводить баланс (у билайна минимальный перевод 100 тг)

2. Нам нужно соединится с модем для начала работы, нажимаем логотип USB модема:
Выбираем: "Huawei Mobile Connect - 3G PC UI Interface" жмём коннект.

3. SMS-Server даёт возможность отправлять смс с вашего сайта или программы, а также включает Web-интерфейс программы (http://IP:Port). Позже приведу пример отправки SMS через API.

4. Собственно пункт для работы с интернетом модема и не только.
 
5. Работа с DynDNS.org

Нажимаем "Сохранить текущие настройки".

Как это работает?
-Пополняете баланс на SIM карте модема, далее при необходимости он вам понадобится.

Теперь пример, ситуации когда можно воспользоваться:
У вас кончился баланс:0
набираем команду *143*7705xxxxxxx# или *144*7705xxxxxxx#
7705xxxxxxx - номер вашей сим карты в модеме.
Модема автоматически присылает вам баланс, cумму которую вы указали в пункте настроек "1"

Если у вас есть QIWI :)
-Если ваша SIM карта зарегистрирована в системе QIWI то можно переводить баланс любому абоненту таким методом:
Мой пароль: "!mypass", буду использовать его в примерах.
Собственно отправляем на модем SMS, с таким содержанием:

!mypass balanse beelinekz 770512345678 20
И чтобы 20 это сумма в рублях QIWI )))
И чтобы было понятнее пару примеров:

!mypass balanse beelinekz 770512345678 20
!mypass balanse kcell 770112345678 20
!mypass balanse activ 777512345678 20
!mypass balanse neo 770712345678 20
!mypass balanse tele2 770712345678 20
!mypass balanse dalacom 770012345678 20
!mypass balanse pathword 770012345678 20


Если же вам надо пополнить счёт, человеку оператору другой страны то так:
!mypass balanse auto 91912345678 20

Как сделать так, чтобы и мои друзья могли пользоваться экстреным запросом баланса:
-Добавльте их сюда:
 
 
На друзей ограничения 1 запрос в сутки, на администратора ограничений нет)

Я Спамер, постоянно шлю много смс всем друзьям
-Это для вас:
 
 
Что нужно сделать, чтобы программа звонила мне при запуске компьютера или когда я захочу:
-Создайте ярлык к программе с параметром: "-sendstartring" - звонок, или "-sendstartsms" - SMS
Пример: "C:GSMcontrol.exe -sendstartring" и добавьте его в автозагрузку.

Какие SMS команды можно отправлять модему?
Отправляете текстовое сообщение на номер SIM карты в модеме:

!mypass status -Получите ответное смс со статусом модема
!mypass internet-on -Включит интернет соединение указанное в настройка пункта "4"
!mypass internet-off -Выключит интернет соединение указанное в настройка пункта "4"
!mypass internet-status -Получите ответное смс со статусом интернет соединения
!mypass comp-off -Выключит компьютер
!mypass comp-reboot -Перезагрузит компьютер

Как выглядит WEB-интерфейс?
 
 

Уведомления: 
 
 
Как отправлять SMS со стороннего интерфейса/сайта/прогаммы?
- Достаточно послать TCP пакет на IP:PORT в кодировке base64, указанные в настройках пункт "3"

Обычное сообщение:
!mypass#SENDSMS#[TYPE]0[NUMBER]77771234567[TEXT]Привет :)

Флэш сообщение:
!mypass#SENDSMS#[TYPE]1[NUMBER]77771234567[TEXT]Привет :)

Также, можно послать USSD команды:
!mypass#CMD#[USSD]*145#

Ниже пример, как на PHP отправить SMS:

<?
error_reporting(E_ALL);
 
$address = gethostbyname ('127.0.0.1'); //IP Адрес вашего компьютера
$service_port=8000; //Порт
$pass_server='!mypass'; //Пароль
 
$socket = socket_create (AF_INET, SOCK_STREAM, 0);
if ($socket < 0) {
echo "socket create failed reason: " . socket_strerror ($socket) . "n";
}
 
$result = socket_connect ($socket, $address, $service_port);
if ($result < 0) {
echo "socket connect failed.nReason: ($result) " . socket_strerror($result) . "n";
}
 
$in = base64_encode($pass_server."#SENDSMS#[TYPE]0[NUMBER]77771324578[TEXT]Тест............."); //Пример отправки смс
 
//$in = base64_encode($pass_server."#CMD#[USSD]*102#"); //Пример запроса USSD команды
 
$out = '';
 
socket_write ($socket, $in, strlen ($in));
 
echo "Response:nn";
 
while ($out = socket_read ($socket, 2048)) {
echo $out;
}
 
socket_close ($socket);
?>
 
 
Если у вас есть идеи, по поводу улучшения программы, то пиши на email, через обратную связь или оставляйте комментарии.
  • Serj, 11 ноября 2011
92 комментария
Avatar
  1. DELETED
    DELETED
    26 августа 2012 19:01
    Прикольная программа. МОЛОДЕЦ!!
  2. Роман Шапошников
    Роман Шапошников
    25 июня 2012 22:58
    красава чувак) уважаю) тем более с Актобе)
  3. Александр Бондаренко
    Александр Бондаренко
    22 мая 2012 19:49
    Есть ли всётаки возможность отправлять смс используя ZTE модем?
    1. Serj
      Serj
      29 мая 2012 22:52
      неа
  4. Дмитрий Вакульчик
    Дмитрий Вакульчик
    7 мая 2012 05:07
    Спасибо за отличную программу но одно но: не могу отправить сообщение на кирилице из php скрипта. в чём может быть проблема?
    1. Serj
      Serj
      31 мая 2012 10:32
      в кодировке
  5. Иван Григорьев
    Иван Григорьев
    7 мая 2012 02:33
    На AT командах? :)
    1. Serj
      Serj
      11 мая 2012 16:17
      угу
  6. Константин Тарасов
    Константин Тарасов
    29 февраля 2012 19:02
    Я так понял логи пишутся в insms.db sendsms.db Что это за формат фалов? Чем можно открыть? При попытке открыть Database Desktop (из Delphi 7) выдает ошибку "Corrupt table/index header"
    1. Константин Тарасов
      Константин Тарасов
      1 марта 2012 13:12
      может проще в текстовый файл писать?
    2. Serj
      Serj
      4 марта 2012 06:52
      Константин, для кого как... Для меня так проще..
    3. Константин Тарасов
      Константин Тарасов
      4 марта 2012 18:42
      хорошо, а можно попросить сделать чтобы был текстовый файл?
    4. Serj
      Serj
      9 марта 2012 21:47
      Константин, к сожалению нет
    5. Юрий Лядов
      Юрий Лядов
      16 июня 2016 20:59
      Sergey, Поделитесь исходниками пожалуйста. Очень интересна данная тема! Скину денег на бутылочку пива)))
  7. Андрей Устюгов
    Андрей Устюгов
    21 февраля 2012 20:32
    а неизвестная ошибка №2 это что означает и как можно понять настроено правильно всё или нет - тест есть какой-нить?
    1. Serj
      Serj
      22 февраля 2012 07:54
      в статусе должно быть написано Готов
    2. Андрей Устюгов
      Андрей Устюгов
      22 февраля 2012 11:39
      было такое писал готов - но что смски не дошли до получателя!!интернет соединение нужно включать? и поддержка dynDNS - обязательно к заполнению - там что писать настоящее имя доменя и реального пользователя в сети?
    3. Serj
      Serj
      23 февраля 2012 08:28
      дюнднс по желанию, а насчет того что смс не доходили незнаю чё сказать) мозможно в модеме не тот смс центр! стандартной прогой отправляет? какя марка модема?
  8. Александр Савиных
    Александр Савиных
    21 февраля 2012 04:25
    Автор помог сэкономить время на написании своего велосипеда. Спасибо!
  9. Денис Денисов
    Денис Денисов
    8 февраля 2012 14:58
    есть файл в котором хранятся сообщения которые надо автоматически отправить друг за другом. данная программа это сможет сделать?
    1. Serj
      Serj
      9 февраля 2012 04:16
      API же есть, сделать можно всё что угодно
    2. Андрей Устюгов
      Андрей Устюгов
      21 февраля 2012 19:18
      а на Е171 будет работать - что то в исходящих есть и статус стоит отправлено - а на телефоны не приходят смс ки - рассылка меня интересует!! lexandr Shein Здравствуйте. У меня при подключении модема вылазит ошибка и программа сворачивается. В чём может быть проблема? Мне нравится 13 дек 2011 Sergey :) Подключи модем, закрой стандартну прогу если запуститься, запусти GSM-Modem Controller, выбери комп порт - эта проблема была статус готов не появляется на статусе - это при выключенном билайн модеме нужно сласть смски?
  10. DELETED
    DELETED
    17 декабря 2011 15:10
    Под какой лицензией распостроняется ПО и можно ли увидеть исходный код?
    1. Serj
      Serj
      17 декабря 2011 18:03
      Исходной код закрыт) Поэтому под freeware
    2. Александр Болотников
      Александр Болотников
      3 января 2012 00:23
      Неизвестно еще на какой версии Delphi написано))) 99% что взломанной, поэтому ни о какой лицензии и речи быть не может)
    3. Serj
      Serj
      4 января 2012 00:09
      Александр, к сожалению лицензия на Дельфи/Фотошоп/Винду есть))
    4. Виктория Греку
      Виктория Греку
      31 января 2014 19:05
      ПОЧЕМУ Н НЕ ПОЛУЧАЕТСЯ



© SERJ.WS 2011-2021