Оправка Push уведомления через онлайн сервис Pushover
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | Процедура ОтправитьPushOverУведомление(ТекстСообщения, ЗаголовокСообщения) Сервер = "api.pushover.net"; Адрес = "1/messages.json"; TokenKey = "......"; //Здесь токен канала UserID = "......"; //Здесь ИД пользователя Соединение = Новый HTTPСоединение(Сервер,,,,Новый ИнтернетПрокси(истина),10, Новый ЗащищенноеСоединениеOpenSSL); СтрокаПараметров = "?token=%3&user=%4&html=1&message=%1&title=%2"; СтрокаПараметров = СтрЗаменить(СтрокаПараметров, "%1", ТекстСообщения); СтрокаПараметров = СтрЗаменить(СтрокаПараметров, "%2", ЗаголовокСообщения); СтрокаПараметров = СтрЗаменить(СтрокаПараметров, "%3", TokenKey); СтрокаПараметров = СтрЗаменить(СтрокаПараметров, "%4", UserID); Запрос = Новый HTTPЗапрос(Адрес+СтрокаПараметров); Попытка Ответ = Соединение.ОтправитьДляОбработки(Запрос); Исключение СообщениеПользователю = Новый СообщениеПользователю; СообщениеПользователю.Текст = "Ошибка запроса к серверу: "+Ответ.КодСостояния; СообщениеПользователю.Сообщить(); Возврат; КонецПопытки; Если Ответ.КодСостояния <> 200 Тогда СообщениеПользователю = Новый СообщениеПользователю; СообщениеПользователю.Текст = "Ошибка запроса к серверу: "+Ответ.КодСостояния; СообщениеПользователю.Сообщить(); Возврат; КонецЕсли; КонецПроцедуры // ОтправитьPushУведомление() |