&НаСервере
Функция ОтправкаСообщенийВТелеграм(Знач Токен, Знач ChatId, Знач ТекстСообщения)
Попытка
Соединение = Новый HTTPСоединение("api.telegram.org",443,,,,15,Новый
ЗащищенноеСоединениеOpenSSL());
Запрос = Новый HTTPЗапрос("bot" + Токен + "/sendMessage?chat_id="
+ ChatId +
"&text=" + ТекстСообщения);
Результат = Соединение.ВызватьHTTPМетод("GET", Запрос);
Если Результат.КодСостояния = 200 Тогда
ЧтениеJSON = Новый ЧтениеJSON();
ЧтениеJSON.УстановитьСтроку(Результат.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8));
РезСтруктура = ПрочитатьJSON(ЧтениеJSON);
ЧтениеJSON.Закрыть();
Иначе
КонецЕсли;
Исключение
//Сообщить(ОписаниеОшибки());
//Сообщить(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки
КонецФункции
&НаКлиенте
Процедура
Команда1(Команда)
ОтправкаСообщенийВТелеграм("1234567:abcdefg", "-1234567", "Тестовое
сообщение");
КонецПроцедуры
|