Отправка SMS оповещений из EcoStruxure Machine SCADA Expert

[PavelMikov]

В данной статье приведен пример отправки SMS сообщений при помощи LTE модема Huawei E3372.
При отправке сообщений через web интерфейс модема нет необходимости переводить его в режим работы от AT команд. Но есть небольшая хитрость с тем, как получить начальные данные (cookie и token) для авторизации. 

Dim o, cookie, token
Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
o.open "GET", "http://192.168.8.1/api/webserver/SesTokInfo", False
o.send
cookie = "SessionID="+Mid(o.responseText, 72, 128)
token = Mid(o.responseText, 221, 32)

o.open "POST", "http://192.168.8.1/api/sms/send-sms", False
o.setRequestHeader "__RequestVerificationToken", token
o.setRequestHeader "Cookie", cookie

Dim data
data = "<?xml version='1.0' encoding='UTF-8'?><request><Index>-1</Index><Phones><Phone>"
data = data + $sPhoneNumber
data = data + "</Phone></Phones><Sca/><Content>"
data = data + $sText
data = data + "</Content><Length>"
data = data + CStr($StrLen($sText))
data = data + "</Length><Reserved>1</Reserved><Date>"
$SetDateFormat("-", "YMD")
data = data + $Date + " " + $Time
data = data + "</Date></request>"
o.send data

 Номер получателя и текст сообщения необходимо указать в тэгах sPhoneNumber и sText.

Данный способ не является единственным вариантом SMS уведомлений. AT команды и работа через web api SMS-шлюзов так же доступны в SCADA Expert.

[SeGo]

отлично. а можно отправлять сообщения в WhatsApp и Telegram

[PavelMikov]

Добрый вечер, Сергей!

Точно можно реализовать для Telegram. Это будет бесплатная отправка сообщений. 

Для WhatsApp существуют поставщики доступа через webAPI, но эти решения обходятся дороже чем SMS. Беглый анализ дает 2,5-3,5 рубля за сообщение.