Работа с мессенджером МАКС из 1С

&НаСервереБезКонтекста
Функция UnixTODate(ЧислЗначениеДаты)       
  Возврат Дата(1970,1,1)+ЧислЗначениеДаты/1000+СмещениеСтандартногоВремени(ЧасовойПояс());	
КонецФункции


&НаСервере
Процедура СписокСообщенийНаСервереНаСервере()
	// Вставить содержимое обработчика.  
	СоединениеHTTP = Новый HTTPСоединение("platform-api.max.ru", 443,,,,,Новый ЗащищенноеСоединениеOpenSSL());
	
	Токен=Константы.МАКС_Токен.Получить();
	
	chat_id = ""; 
	
	method = "/updates?limit=50&timeout=5&v=1.2.5"; 
	
	HTTPЗапрос = Новый HTTPЗапрос;
	HTTPЗапрос.Заголовки.Вставить("Content-type", "application/json");  
	HTTPЗапрос.Заголовки.Вставить("Accept", "*/*");
	//HTTPЗапрос.Заголовки.Вставить("Accept-Encoding", "gzip, deflate, br");
	HTTPЗапрос.Заголовки.Вставить("Connection", "keep-alive");
	
	
	HTTPЗапрос.Заголовки.Вставить("Authorization", Токен);
	
	HTTPЗапрос.АдресРесурса = method;   
	
	//совершим соединение по методу 
	РезультатЗапроса = СоединениеHTTP.ВызватьHTTPМетод("GET",HTTPЗапрос);
	
	//РезультатЗапроса.ПолучитьТелоКакСтроку();     
    Если РезультатЗапроса.КодСостояния=200 Тогда
		
		ЧтениеJSON = НОвый ЧтениеJSON();
		Сообщить(РезультатЗапроса.ПолучитьТелоКакСтроку("UTF-8"));
		
		Поток = РезультатЗапроса.ПолучитьТелоКакПоток();
    	ЧтениеJSON.ОткрытьПоток(Поток,"UTF-8");   
		Дерево= Неопределено;
    	СформироватьДерево(ЧтениеJSON, Дерево);
		
		
		Если Дерево["updates"]<>Неопределено Тогда
			Для Каждого Строка ИЗ Дерево["updates"] Цикл                                                                  
				Если Строка["message"]<>Неопределено Тогда
				    UserID=Неопределено;
					text="";
					
					message=Строка["message"];
					
					Если message["timestamp"]<>Неопределено Тогда
				   		ДатаВремя=UnixTODate(message["timestamp"]);
				   		Сообщить(Формат(ДатаВремя,"dd.MM.yyyy hh:mm:ss"));
					КонецЕсли;
					
					Если message["sender"]<>Неопределено Тогда
						
						sender=message["sender"];
						LastActivityTime=UnixTODate(sender["last_activity_time"]);
						is_bot=sender["is_bot"];
						Name=sender["name"];
						Firstname=sender["first_name"];
						Lastname=sender["last_name"];
						UserId=sender["user_id"];
						
						Сообщить("Имя пользователя: "+Name+" Фамилия: "+Firstname+" Имя: "+LastName+" ID: "+Формат(UserID,"ЧГ=0")+" бот: "+is_bot+" Последняя активность: "+LastActivityTime);
						
						//  Ответ с Кнопкой
						//ОтправитьСообщениеНаСервереОтвет(UserID);
					    
						
					КонецЕсли;      
					
					Если message["body"]<>Неопределено Тогда
						body=message["body"];
						text=body["text"];
						seq=body["seq"];
						mid=body["mid"];
					    phone="";	
						Если body["attachments"]<>Неопределено Тогда
							Для Каждого attachments ИЗ body["attachments"] Цикл
								Если attachments["type"]="contact" Тогда 
									Если attachments["payload"]<>Неопределено Тогда
										payload=attachments["payload"];
										Если payload["vcf_info"]<>Неопределено Тогда
											vcf=payload["vcf_info"]; 
											
											Сообщить(vcf);
											РегулярноеВыражение="(?:TEL;TYPE=cell\:)(\d+)";
											phone=СтрНайтиПоРегулярномуВыражению(vcf,РегулярноеВыражение,,,1,Ложь,Истина).Значение;
											phone=Прав(phone,СтрДлина(phone)-14);
											
											Сообщить(phone);
											
											
										КонецЕсли;
									КонецЕсли;
								КонецЕсли;
							КонецЦикла;
							
							
						КонецЕсли;
						
						Сообщить("text:"+text+" seq: "+seq+" mid: "+mid+" phone: "+phone);
						
					КонецЕсли;
					
					
					Если message["recepient"]<>Неопределено Тогда
						recepient=message["recipient"];
						
						
						UserID=recepient["user_id"];
						
						ChatType=recepient["chat_type"];
						
						ChatID=recepient["chat_id"];
						
						Сообщить("Recipient: "+UserID+" ChatType: "+ChatType+" ChatID: "+ChatID)						
						
					КонецЕсли;    
					
					//  Автоматический ответ 
					
					
					Если UserID<>Неопределено И text="/Документы" Тогда
						ОтправитьСообщениеНаСервереОтвет(UserID);
					КонецЕсли
					
					
				КонецЕсли;			
			КонецЦикла;
		КонецЕсли;
		
		
		
		ЧтениеJSON.Закрыть();
		
	//	Сообщить(РезультатЗапроса.ПолучитьТелоКакСтроку());
	
	КонецЕсли;
    
		
	
КонецПроцедуры  


&НаСервере
Процедура ОтправитьСообщениеНаСервереОтвет(UserID)
	
	СоединениеHTTP = Новый HTTPСоединение("platform-api.max.ru", 443,,,,,Новый ЗащищенноеСоединениеOpenSSL());
	
	Токен=Константы.МАКС_Токен.Получить();
	
	chat_id = ""; 
	
	ТекстЗапроса = "{
	|""text"": ""Получение документов"",
	|""attachments"": [
	|{
	|""type"": ""inline_keyboard"",
	|""payload"": {
	|""buttons"": [
	|[
	|{
	|""type"": ""request_contact"",
	|""text"": ""Расчетный лист"",
	|""url"": """"
	|}
	|]
	|]
	|}
	|}
	|]
	|}";
	
	method = "messages?user_id="+Формат(UserID,"ЧГ=0"); 
	
	HTTPЗапрос = Новый HTTPЗапрос;
	HTTPЗапрос.Заголовки.Вставить("Content-type", "application/json");  
	HTTPЗапрос.Заголовки.Вставить("Authorization", Токен);
	HTTPЗапрос.АдресРесурса = method;
	
	HTTPЗапрос.УстановитьТелоИзСтроки(ТекстЗапроса);
    
	//совершим соединение по методу 
	РезультатЗапроса = СоединениеHTTP.ОтправитьДляОбработки(HTTPЗапрос);           
	
	//РезультатЗапроса.ПолучитьТелоКакСтроку();
	
	//curl -X POST "https://platform-api.max.ru/messages?user_id={user_id}" \
	//-H "Authorization: {access_token}" \
	//-H "Content-Type: application/json" \
	//-d '{
	//"text": "Это сообщение с кнопкой-ссылкой",
	//"attachments": [
	//{
	//"type": "inline_keyboard",
	//"payload": {
	//"buttons": [
	//[
	//{
	//"type": "link",
	//"text": "Откройте сайт",
	//"url": "https://demobot.ru"
	//}
	//]
	//]
	//}
	//}
	//]
	//}'          
	
	Сообщить(РезультатЗапроса.ПолучитьТелоКакСтроку());
	
КонецПроцедуры




&НаСервере
Процедура СформироватьДерево(ЧтениеJSON, Дерево)
    
    ИмяСвойства = Неопределено;
    
    Пока ЧтениеJSON.Прочитать() Цикл
        TипJSON = ЧтениеJSON.ТипТекущегоЗначения;
        
        Если TипJSON = ТипЗначенияJSON.НачалоОбъекта 
        ИЛИ TипJSON = ТипЗначенияJSON.НачалоМассива Тогда
            НовыйОбъект = ?(TипJSON = ТипЗначенияJSON.НачалоОбъекта, Новый Соответствие, Новый Массив);
            
            Если ТипЗнч(Дерево) = Тип("Массив") Тогда
                Дерево.Добавить(НовыйОбъект);
            ИначеЕсли ТипЗнч(Дерево) = Тип("Соответствие") И ЗначениеЗаполнено(ИмяСвойства) Тогда
                Дерево.Вставить(ИмяСвойства, НовыйОбъект);
            КонецЕсли;
            
            СформироватьДерево(ЧтениеJSON, НовыйОбъект);
            
            Если Дерево = Неопределено Тогда
                Дерево = НовыйОбъект;
            КонецЕсли;
        ИначеЕсли TипJSON = ТипЗначенияJSON.ИмяСвойства Тогда
            ИмяСвойства = ЧтениеJSON.ТекущееЗначение;
        ИначеЕсли TипJSON = ТипЗначенияJSON.Число 
        ИЛИ TипJSON = ТипЗначенияJSON.Строка 
        ИЛИ TипJSON = ТипЗначенияJSON.Булево 
        ИЛИ TипJSON = ТипЗначенияJSON.Null Тогда
            Если ТипЗнч(Дерево) = Тип("Массив") Тогда
                Дерево.Добавить(ЧтениеJSON.ТекущееЗначение);
            ИначеЕсли ТипЗнч(Дерево) = Тип("Соответствие") Тогда
                Дерево.Вставить(ИмяСвойства, ЧтениеJSON.ТекущееЗначение);
            КонецЕсли;
        Иначе
            Возврат;
        КонецЕсли;
    КонецЦикла;
    
КонецПроцедуры