Я понимаю, что для массовой рассылки СМС лучше использовать какой нибудь сервис с готовым API. Однако, в моем случае в офисе для обеспечения резервного интернет-канала используется usb LTE-модем, подключенный напрямую к маршрутизатору Mikrotik. Почему бы и не использовать оплаченный пакет смс для рассылки сообщений сотрудникам.
После небольших поисков в сети выяснилось, что прошивка LTE-модема HiLink имеет встроенный API и, для отправки/чтения сообщений, достаточно применять HTTP-запрос с передачей xml строки методом POST.
Для обращения к модему используем HTTPСоединение:
Соединение = Новый HTTPСоединение(АдресIP, 80);
АдресIP по умолчанию 192.168.8.1
Кроме этого, для каждого действия необходимо получать токен . Это действие проще вывести в отдельную функцию:
Функция ПолучитьТокенИСессию(Соединение)
Запрос = Новый HTTPЗапрос("/api/webserver/SesTokInfo");
Результат = Соединение.Получить(Запрос);
Если Результат.КодСостояния<>200 Тогда
Возврат Неопределено;
КонецЕсли;
ЧтениеXML=Новый ЧтениеXML;
ЧтениеXML.УстановитьСтроку(Результат.ПолучитьТелоКакСтроку());
РезXDTO=ФабрикаXDTO.ПрочитатьXML(ЧтениеXML);
Токен=РезXDTO.TokInfo;
СессияID=РезXDTO.SesInfo;
Заголовки=Новый Соответствие;
Заголовки.Вставить("Cookie" , СессияID);
Запрос = Новый HTTPЗапрос("/html/smsinbox.html",Заголовки);
Результат = Соединение.Получить(Запрос);
Если Результат.КодСостояния<>200 Тогда
Возврат Неопределено;
КонецЕсли;
ЧтениеHTML=Новый ЧтениеHTML;
ЧтениеHTML.УстановитьСтроку(Результат.ПолучитьТелоКакСтроку());
ПостроительDOM = Новый ПостроительDOM;
ДокументHTML = ПостроительDOM.Прочитать(ЧтениеHTML);
Токен=ДокументHTML.ПолучитьЭлементыПоИмени("*","meta")[1].Содержание;
Возврат Новый Структура("СессияID,Токен",СессияID,Токен);
КонецФункции
Хочу обратить внимание на предпоследнюю строку. Почему-то для вызова какого-нибудь метода API признается токен, который указан в HTML заголовке формы smsinbox.
Отправка сообщения:
//функция возвращает Истина при успешной отправки, ЛОЖЬ при возникновении ошибок
Функция ОтправитьSMSHuaweiHiLink(АдресIP,Телефон,Сообщение)
/// Формируем запрос
ЗаписьXML=Новый ЗаписьXML;
ЗаписьXML.УстановитьСтроку("UTF-8");
ЗаписьXML.ЗаписатьОбъявлениеXML();
ЗаписьXML.ЗаписатьНачалоЭлемента("request");
ЗаписьXML.ЗаписатьНачалоЭлемента("Index");
ЗаписьXML.ЗаписатьТекст("-1");
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("Phones");
ЗаписьXML.ЗаписатьНачалоЭлемента("Phone");
ЗаписьXML.ЗаписатьТекст(Телефон);
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("Sca");
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("Content");
ЗаписьXML.ЗаписатьТекст(Сообщение);
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("Length");
ЗаписьXML.ЗаписатьТекст(Формат(СтрДлина(Сообщение),"ЧРГ=0"));
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("Reserved");
ЗаписьXML.ЗаписатьТекст("1");
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("Date");
ЗаписьXML.ЗаписатьТекст(Формат(ТекущаяДата(),"ДФ='yyyy-MM-dd HH:mm:ss'"));
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьКонецЭлемента();
СтрокаЗапроса=ЗаписьXML.Закрыть();
Соединение = Новый HTTPСоединение(
АдресIP, // сервер (хост)
80);
ТокенИСессия=ПолучитьТокенИСессию(Соединение);
Если ТокенИСессия=Неопределено Тогда
Возврат Ложь;
КонецЕсли;
//Создаём запрос на отправку
Заголовки=Новый Соответствие;
Заголовки.Вставить("Origin" , "http://"+АдресIP);
Заголовки.Вставить("Referer" , "http://"+АдресIP+"/html/smsinbox.html");
Заголовки.Вставить("Content-Type" , "text/xml");
Заголовки.Вставить("X-Requested-With" , "XMLHttpRequest");
Заголовки.Вставить("__RequestVerificationToken" , ТокенИСессия.Токен);
Заголовки.Вставить("Cookie" , ТокенИСессия.СессияID);
Запрос = Новый HTTPЗапрос("/api/sms/send-sms",Заголовки);
Запрос.УстановитьТелоИзСтроки(СтрокаЗапроса);
Результат = Соединение.ОтправитьДляОбработки(Запрос);
Если Результат.КодСостояния<>200 Тогда
Возврат Ложь;
КонецЕсли;
Возврат Найти(Результат.ПолучитьТелоКакСтроку(),"<response>OK</response>")>0;
Чтение полученных сообщений
//возвращает структуру
//count - количество сообщений
//data массив сообщений
Функция ПрочитатьSMSHuaweiHiLink(АдресIP, boxType = 1, page = 1, count = 20, unreadPreferred = false)
/// Формируем запрос
ЗаписьXML=Новый ЗаписьXML;
ЗаписьXML.УстановитьСтроку("UTF-8");
ЗаписьXML.ЗаписатьОбъявлениеXML();
ЗаписьXML.ЗаписатьНачалоЭлемента("request");
ЗаписьXML.ЗаписатьНачалоЭлемента("PageIndex");
ЗаписьXML.ЗаписатьТекст(строка(page));
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("ReadCount");
ЗаписьXML.ЗаписатьТекст(строка(count));
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("BoxType");
ЗаписьXML.ЗаписатьТекст(строка(boxType));
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("SortType");
ЗаписьXML.ЗаписатьТекст("0");
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("Ascending");
ЗаписьXML.ЗаписатьТекст("0");
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьНачалоЭлемента("UnreadPreferred");
ЗаписьXML.ЗаписатьТекст(?(unreadPreferred,"1","0"));
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьКонецЭлемента();
СтрокаЗапроса=ЗаписьXML.Закрыть();
Соединение = Новый HTTPСоединение(
АдресIP, // сервер (хост)
80);
ТокенИСессия=ПолучитьТокенИСессию(Соединение);
Если ТокенИСессия=Неопределено Тогда
Возврат Новый Структура("Count",-1);
КонецЕсли;
//Создаём запрос на отправку
Заголовки=Новый Соответствие;
Заголовки.Вставить("Origin" , "http://"+АдресIP);
Заголовки.Вставить("Referer" , "http://"+АдресIP+"/html/smsinbox.html");
Заголовки.Вставить("Content-Type" , "text/xml");
Заголовки.Вставить("X-Requested-With" , "XMLHttpRequest");
Заголовки.Вставить("__RequestVerificationToken" , ТокенИСессия.Токен);
Заголовки.Вставить("Cookie" , ТокенИСессия.СессияID);
Запрос = Новый HTTPЗапрос("/api/sms/sms-list",Заголовки);
Запрос.УстановитьТелоИзСтроки(СтрокаЗапроса);
Результат = Соединение.ОтправитьДляОбработки(Запрос);
Если Результат.КодСостояния<>200 Тогда
Возврат Новый Структура("Count",-1);
КонецЕсли;
ЧтениеXML=Новый ЧтениеXML;
ЧтениеXML.УстановитьСтроку(Результат.ПолучитьТелоКакСтроку());
РезXDTO=ФабрикаXDTO.ПрочитатьXML(ЧтениеXML);
Рез=Новый Структура("Count,Data",Число(РезXDTO.Count),Новый Массив);
Если РезXDTO.Count<>"0" Тогда
Мас=РезXDTO.Messages.Message;
Если ТипЗнч(РезXDTO.Messages.Message)=Тип("ОбъектXDTO") Тогда
Мас=Новый Массив;
Мас.Добавить(РезXDTO.Messages.Message);
КонецЕсли;
Для каждого Стр из Мас Цикл
Рез.Data.Добавить(Новый Структура("Content,Date,Index,Phone",
Стр.Content,
Дата(СтрЗаменить(СтрЗаменить(СтрЗаменить(Стр.Date,"-","")," ",""),":","")),
Стр.Index,
Стр.Phone
)
)
КонецЦикла;
КонецЕсли;
Возврат Рез;
КонецФункции
Удаление сообщений
индекс сообщения берем из предыдущей процедуры
Функция УдалитьSMSHuaweiHiLink(АдресIP,Индес)
/// Формируем запрос
ЗаписьXML=Новый ЗаписьXML;
ЗаписьXML.УстановитьСтроку("UTF-8");
ЗаписьXML.ЗаписатьОбъявлениеXML();
ЗаписьXML.ЗаписатьНачалоЭлемента("request");
ЗаписьXML.ЗаписатьНачалоЭлемента("Index");
ЗаписьXML.ЗаписатьТекст(строка(Индес));
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.ЗаписатьКонецЭлемента();
СтрокаЗапроса=ЗаписьXML.Закрыть();
Соединение = Новый HTTPСоединение(
АдресIP, // сервер (хост)
80 );
ТокенИСессия=ПолучитьТокенИСессию(Соединение);
Если ТокенИСессия=Неопределено Тогда
Возврат Ложь;
КонецЕсли;
//Создаём запрос на отправку
Заголовки=Новый Соответствие;
Заголовки.Вставить("Origin" , "http://"+АдресIP);
Заголовки.Вставить("Referer" , "http://"+АдресIP+"/html/smsinbox.html");
Заголовки.Вставить("Content-Type" , "text/xml");
Заголовки.Вставить("X-Requested-With" , "XMLHttpRequest");
Заголовки.Вставить("__RequestVerificationToken" , ТокенИСессия.Токен);
Заголовки.Вставить("Cookie" , ТокенИСессия.СессияID);
Запрос = Новый HTTPЗапрос("/api/sms/delete-sms",Заголовки);
Запрос.УстановитьТелоИзСтроки(СтрокаЗапроса);
Результат = Соединение.ОтправитьДляОбработки(Запрос);
Если Результат.КодСостояния<>200 Тогда
Возврат Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
Собственно все.
P.S. При разработке использовалась информация с ресурсов:
https://stackoverrun.com/ru/q/10478644
https://github.com/if0xx/Huawei-Hilink-API/blob/master/src/if0xx/HuaweiHilinkApi/Router.php
Вступайте в нашу телеграмм-группу Инфостарт
