mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2025-02-07 13:43:35 +02:00
Main build (Jenkins)
This commit is contained in:
parent
c9ba69ea6e
commit
0bf8e81763
@ -1,5 +1,5 @@
|
|||||||
Token = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
|
Token = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
|
||||||
WorkID = "NF0wMt3xPuoAAAAAAAAAAQ";
|
WorkID = "4SQ3zikww9gAAAAAAAAAAQ";
|
||||||
Status = "in_progress";
|
Status = "in_progress";
|
||||||
|
|
||||||
WHile Status = "in_progress" Do
|
WHile Status = "in_progress" Do
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
|
|
||||||
Result = OPI_VKTeams.DeleteMessage(Token, ChatID, MessageID);
|
Result = OPI_VKTeams.DeleteMessage(Token, ChatID, MessageID);
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
Text = "New message text";
|
Text = "New message text";
|
||||||
|
|
||||||
Result = OPI_VKTeams.EditMessageText(Token, ChatID, MessageID, Text);
|
Result = OPI_VKTeams.EditMessageText(Token, ChatID, MessageID, Text);
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
||||||
FromChatID = "689203963@chat.agent";
|
FromChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
|
|
||||||
Result = OPI_VKTeams.ForwardMessage(Token, MessageID, FromChatID, ChatID);
|
Result = OPI_VKTeams.ForwardMessage(Token, MessageID, FromChatID, ChatID);
|
||||||
|
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
FileID = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
|
FileID = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
|
||||||
|
|
||||||
Result = OPI_VKTeams.GetFileInformation(Token, FileID);
|
Result = OPI_VKTeams.GetFileInformation(Token, FileID);
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
|
|
||||||
Result = OPI_VKTeams.PinMessage(Token, ChatID, MessageID);
|
Result = OPI_VKTeams.PinMessage(Token, ChatID, MessageID);
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
||||||
FileID = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
|
FileID = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
|
||||||
Text = "File caption";
|
Text = "File caption";
|
||||||
|
|
||||||
Result = OPI_VKTeams.ResendFile(Token, ChatID, FileID, Text);
|
Result = OPI_VKTeams.ResendFile(Token, ChatID, FileID, Text);
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
||||||
FileID = "I000b3qLXbT1dFg04yowf6670a67e21bd";
|
FileID = "I000bzdU0pRaLPRFQ42mv6670d55531bd";
|
||||||
|
|
||||||
Result = OPI_VKTeams.ResendVoice(Token, ChatID, FileID);
|
Result = OPI_VKTeams.ResendVoice(Token, ChatID, FileID);
|
||||||
|
@ -5,7 +5,7 @@
|
|||||||
Result = OPI_VKTeams.SendTextMessage(Token, ChatID, Text);
|
Result = OPI_VKTeams.SendTextMessage(Token, ChatID, Text);
|
||||||
|
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
ReplyID = "7424860889745984697";
|
ReplyID = "7425684917876428136";
|
||||||
Text = "<b>Bold text</b>";
|
Text = "<b>Bold text</b>";
|
||||||
Markup = "HTML";
|
Markup = "HTML";
|
||||||
|
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
ReplyID = "7424860889745984697";
|
ReplyID = "7425684917876428136";
|
||||||
|
|
||||||
File = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
|
File = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
|
||||||
FilePath = GetTempFileName("m4a"); // Path
|
FilePath = GetTempFileName("m4a"); // Path
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
|
|
||||||
Result = OPI_VKTeams.UnpinMessage(Token, ChatID, MessageID);
|
Result = OPI_VKTeams.UnpinMessage(Token, ChatID, MessageID);
|
||||||
|
@ -24,7 +24,7 @@ sidebar_position: 6
|
|||||||
|
|
||||||
```bsl title="Code example"
|
```bsl title="Code example"
|
||||||
Token = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
|
Token = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
|
||||||
WorkID = "NF0wMt3xPuoAAAAAAAAAAQ";
|
WorkID = "4SQ3zikww9gAAAAAAAAAAQ";
|
||||||
Status = "in_progress";
|
Status = "in_progress";
|
||||||
|
|
||||||
WHile Status = "in_progress" Do
|
WHile Status = "in_progress" Do
|
||||||
|
@ -27,7 +27,7 @@ Method at API documentation: [GET /files/getInfo](https://teams.vk.com/botapi/#/
|
|||||||
|
|
||||||
```bsl title="Code example"
|
```bsl title="Code example"
|
||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
FileID = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
|
FileID = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
|
||||||
|
|
||||||
Result = OPI_VKTeams.GetFileInformation(Token, FileID);
|
Result = OPI_VKTeams.GetFileInformation(Token, FileID);
|
||||||
```
|
```
|
||||||
|
@ -29,7 +29,7 @@ Method at API documentation: [GET /messages/deleteMessages](https://teams.vk.com
|
|||||||
```bsl title="Code example"
|
```bsl title="Code example"
|
||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
|
|
||||||
Result = OPI_VKTeams.DeleteMessage(Token, ChatID, MessageID);
|
Result = OPI_VKTeams.DeleteMessage(Token, ChatID, MessageID);
|
||||||
```
|
```
|
||||||
|
@ -33,7 +33,7 @@ You can mention a user by appending their userId to the text in the following fo
|
|||||||
```bsl title="Code example"
|
```bsl title="Code example"
|
||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
Text = "New message text";
|
Text = "New message text";
|
||||||
|
|
||||||
Result = OPI_VKTeams.EditMessageText(Token, ChatID, MessageID, Text);
|
Result = OPI_VKTeams.EditMessageText(Token, ChatID, MessageID, Text);
|
||||||
|
@ -34,7 +34,7 @@ Only the chatId from events can be passed to the FromChatID (the code from the c
|
|||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
||||||
FromChatID = "689203963@chat.agent";
|
FromChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
|
|
||||||
Result = OPI_VKTeams.ForwardMessage(Token, MessageID, FromChatID, ChatID);
|
Result = OPI_VKTeams.ForwardMessage(Token, MessageID, FromChatID, ChatID);
|
||||||
|
|
||||||
|
@ -31,7 +31,7 @@ To call this method, the bot must be an administrator in the chat room
|
|||||||
```bsl title="Code example"
|
```bsl title="Code example"
|
||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
|
|
||||||
Result = OPI_VKTeams.PinMessage(Token, ChatID, MessageID);
|
Result = OPI_VKTeams.PinMessage(Token, ChatID, MessageID);
|
||||||
```
|
```
|
||||||
|
@ -31,7 +31,7 @@ Method at API documentation: [GET /messages/sendFile](https://teams.vk.com/botap
|
|||||||
```bsl title="Code example"
|
```bsl title="Code example"
|
||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
||||||
FileID = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
|
FileID = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
|
||||||
Text = "File caption";
|
Text = "File caption";
|
||||||
|
|
||||||
Result = OPI_VKTeams.ResendFile(Token, ChatID, FileID, Text);
|
Result = OPI_VKTeams.ResendFile(Token, ChatID, FileID, Text);
|
||||||
|
@ -29,7 +29,7 @@ Method at API documentation: [GET /messages/sendVoice](https://teams.vk.com/bota
|
|||||||
```bsl title="Code example"
|
```bsl title="Code example"
|
||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
ChatID = "AoLI0egLWBSLR1Ngn2w";
|
||||||
FileID = "I000b3qLXbT1dFg04yowf6670a67e21bd";
|
FileID = "I000bzdU0pRaLPRFQ42mv6670d55531bd";
|
||||||
|
|
||||||
Result = OPI_VKTeams.ResendVoice(Token, ChatID, FileID);
|
Result = OPI_VKTeams.ResendVoice(Token, ChatID, FileID);
|
||||||
```
|
```
|
||||||
|
@ -39,7 +39,7 @@ You can mention a user by appending their userId to the text in the following fo
|
|||||||
Result = OPI_VKTeams.SendTextMessage(Token, ChatID, Text);
|
Result = OPI_VKTeams.SendTextMessage(Token, ChatID, Text);
|
||||||
|
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
ReplyID = "7424860889745984697";
|
ReplyID = "7425684917876428136";
|
||||||
Text = "<b>Bold text</b>";
|
Text = "<b>Bold text</b>";
|
||||||
Markup = "HTML";
|
Markup = "HTML";
|
||||||
|
|
||||||
|
@ -34,7 +34,7 @@ If you want the client to display this file as a playable voice message, it must
|
|||||||
```bsl title="Code example"
|
```bsl title="Code example"
|
||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
ReplyID = "7424860889745984697";
|
ReplyID = "7425684917876428136";
|
||||||
|
|
||||||
File = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
|
File = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
|
||||||
FilePath = GetTempFileName("m4a"); // Path
|
FilePath = GetTempFileName("m4a"); // Path
|
||||||
|
@ -31,7 +31,7 @@ To call this method, the bot must be an administrator in the chat room
|
|||||||
```bsl title="Code example"
|
```bsl title="Code example"
|
||||||
Token = "001.3501506236.091...";
|
Token = "001.3501506236.091...";
|
||||||
ChatID = "689203963@chat.agent";
|
ChatID = "689203963@chat.agent";
|
||||||
MessageID = "7424860889745984697";
|
MessageID = "7425684917876428136";
|
||||||
|
|
||||||
Result = OPI_VKTeams.UnpinMessage(Token, ChatID, MessageID);
|
Result = OPI_VKTeams.UnpinMessage(Token, ChatID, MessageID);
|
||||||
```
|
```
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
Токен = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
|
Токен = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
|
||||||
ИДРаботы = "NF0wMt3xPuoAAAAAAAAAAQ";
|
ИДРаботы = "4SQ3zikww9gAAAAAAAAAAQ";
|
||||||
Статус = "in_progress";
|
Статус = "in_progress";
|
||||||
|
|
||||||
Пока Статус = "in_progress" Цикл
|
Пока Статус = "in_progress" Цикл
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ЗакрепитьСообщение(Токен, IDЧата, IDСообщения);
|
Результат = OPI_VKTeams.ЗакрепитьСообщение(Токен, IDЧата, IDСообщения);
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
Текст = "Новый текст сообщения";
|
Текст = "Новый текст сообщения";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ИзменитьТекстСообщения(Токен, IDЧата, IDСообщения, Текст);
|
Результат = OPI_VKTeams.ИзменитьТекстСообщения(Токен, IDЧата, IDСообщения, Текст);
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ОткрепитьСообщение(Токен, IDЧата, IDСообщения);
|
Результат = OPI_VKTeams.ОткрепитьСообщение(Токен, IDЧата, IDСообщения);
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDЦитируемого = "7424860889745984697";
|
IDЦитируемого = "7425684917876428136";
|
||||||
|
|
||||||
Файл = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
|
Файл = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
|
||||||
ФайлПуть = ПолучитьИмяВременногоФайла("m4a"); // Путь
|
ФайлПуть = ПолучитьИмяВременногоФайла("m4a"); // Путь
|
||||||
|
@ -5,7 +5,7 @@
|
|||||||
Результат = OPI_VKTeams.ОтправитьТекстовоеСообщение(Токен, IDЧата, Текст);
|
Результат = OPI_VKTeams.ОтправитьТекстовоеСообщение(Токен, IDЧата, Текст);
|
||||||
|
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDЦитируемого = "7424860889745984697";
|
IDЦитируемого = "7425684917876428136";
|
||||||
Текст = "<b>Полужирный текст сообщения</b>";
|
Текст = "<b>Полужирный текст сообщения</b>";
|
||||||
Разметка = "HTML";
|
Разметка = "HTML";
|
||||||
|
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
||||||
IDФайла = "I000b3qLXbT1dFg04yowf6670a67e21bd";
|
IDФайла = "I000bzdU0pRaLPRFQ42mv6670d55531bd";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ПереслатьГолосовоеСообщение(Токен, IDЧата, IDФайла);
|
Результат = OPI_VKTeams.ПереслатьГолосовоеСообщение(Токен, IDЧата, IDФайла);
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
||||||
IDЧатаИсточника = "689203963@chat.agent";
|
IDЧатаИсточника = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ПереслатьСообщение(Токен, IDСообщения, IDЧатаИсточника, IDЧата);
|
Результат = OPI_VKTeams.ПереслатьСообщение(Токен, IDСообщения, IDЧатаИсточника, IDЧата);
|
||||||
|
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
||||||
IDФайла = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
|
IDФайла = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
|
||||||
Текст = "Подпись к файлу";
|
Текст = "Подпись к файлу";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ПереслатьФайл(Токен, IDЧата, IDФайла, Текст);
|
Результат = OPI_VKTeams.ПереслатьФайл(Токен, IDЧата, IDФайла, Текст);
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDФайла = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
|
IDФайла = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ПолучитьИнформациюОФайле(Токен, IDФайла);
|
Результат = OPI_VKTeams.ПолучитьИнформациюОФайле(Токен, IDФайла);
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.УдалитьСообщение(Токен, IDЧата, IDСообщения);
|
Результат = OPI_VKTeams.УдалитьСообщение(Токен, IDЧата, IDСообщения);
|
||||||
|
@ -24,7 +24,7 @@ sidebar_position: 6
|
|||||||
|
|
||||||
```bsl title="Пример кода"
|
```bsl title="Пример кода"
|
||||||
Токен = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
|
Токен = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
|
||||||
ИДРаботы = "NF0wMt3xPuoAAAAAAAAAAQ";
|
ИДРаботы = "4SQ3zikww9gAAAAAAAAAAQ";
|
||||||
Статус = "in_progress";
|
Статус = "in_progress";
|
||||||
|
|
||||||
Пока Статус = "in_progress" Цикл
|
Пока Статус = "in_progress" Цикл
|
||||||
|
@ -27,7 +27,7 @@ sidebar_position: 3
|
|||||||
|
|
||||||
```bsl title="Пример кода"
|
```bsl title="Пример кода"
|
||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDФайла = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
|
IDФайла = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ПолучитьИнформациюОФайле(Токен, IDФайла);
|
Результат = OPI_VKTeams.ПолучитьИнформациюОФайле(Токен, IDФайла);
|
||||||
```
|
```
|
||||||
|
@ -29,7 +29,7 @@ sidebar_position: 5
|
|||||||
```bsl title="Пример кода"
|
```bsl title="Пример кода"
|
||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.УдалитьСообщение(Токен, IDЧата, IDСообщения);
|
Результат = OPI_VKTeams.УдалитьСообщение(Токен, IDЧата, IDСообщения);
|
||||||
```
|
```
|
||||||
|
@ -33,7 +33,7 @@ sidebar_position: 4
|
|||||||
```bsl title="Пример кода"
|
```bsl title="Пример кода"
|
||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
Текст = "Новый текст сообщения";
|
Текст = "Новый текст сообщения";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ИзменитьТекстСообщения(Токен, IDЧата, IDСообщения, Текст);
|
Результат = OPI_VKTeams.ИзменитьТекстСообщения(Токен, IDЧата, IDСообщения, Текст);
|
||||||
|
@ -34,7 +34,7 @@ sidebar_position: 8
|
|||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
||||||
IDЧатаИсточника = "689203963@chat.agent";
|
IDЧатаИсточника = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ПереслатьСообщение(Токен, IDСообщения, IDЧатаИсточника, IDЧата);
|
Результат = OPI_VKTeams.ПереслатьСообщение(Токен, IDСообщения, IDЧатаИсточника, IDЧата);
|
||||||
|
|
||||||
|
@ -31,7 +31,7 @@ sidebar_position: 9
|
|||||||
```bsl title="Пример кода"
|
```bsl title="Пример кода"
|
||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ЗакрепитьСообщение(Токен, IDЧата, IDСообщения);
|
Результат = OPI_VKTeams.ЗакрепитьСообщение(Токен, IDЧата, IDСообщения);
|
||||||
```
|
```
|
||||||
|
@ -31,7 +31,7 @@ sidebar_position: 6
|
|||||||
```bsl title="Пример кода"
|
```bsl title="Пример кода"
|
||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
||||||
IDФайла = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
|
IDФайла = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
|
||||||
Текст = "Подпись к файлу";
|
Текст = "Подпись к файлу";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ПереслатьФайл(Токен, IDЧата, IDФайла, Текст);
|
Результат = OPI_VKTeams.ПереслатьФайл(Токен, IDЧата, IDФайла, Текст);
|
||||||
|
@ -29,7 +29,7 @@ sidebar_position: 7
|
|||||||
```bsl title="Пример кода"
|
```bsl title="Пример кода"
|
||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
IDЧата = "AoLI0egLWBSLR1Ngn2w";
|
||||||
IDФайла = "I000b3qLXbT1dFg04yowf6670a67e21bd";
|
IDФайла = "I000bzdU0pRaLPRFQ42mv6670d55531bd";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ПереслатьГолосовоеСообщение(Токен, IDЧата, IDФайла);
|
Результат = OPI_VKTeams.ПереслатьГолосовоеСообщение(Токен, IDЧата, IDФайла);
|
||||||
```
|
```
|
||||||
|
@ -39,7 +39,7 @@ sidebar_position: 1
|
|||||||
Результат = OPI_VKTeams.ОтправитьТекстовоеСообщение(Токен, IDЧата, Текст);
|
Результат = OPI_VKTeams.ОтправитьТекстовоеСообщение(Токен, IDЧата, Текст);
|
||||||
|
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDЦитируемого = "7424860889745984697";
|
IDЦитируемого = "7425684917876428136";
|
||||||
Текст = "<b>Полужирный текст сообщения</b>";
|
Текст = "<b>Полужирный текст сообщения</b>";
|
||||||
Разметка = "HTML";
|
Разметка = "HTML";
|
||||||
|
|
||||||
|
@ -34,7 +34,7 @@ sidebar_position: 3
|
|||||||
```bsl title="Пример кода"
|
```bsl title="Пример кода"
|
||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDЦитируемого = "7424860889745984697";
|
IDЦитируемого = "7425684917876428136";
|
||||||
|
|
||||||
Файл = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
|
Файл = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
|
||||||
ФайлПуть = ПолучитьИмяВременногоФайла("m4a"); // Путь
|
ФайлПуть = ПолучитьИмяВременногоФайла("m4a"); // Путь
|
||||||
|
@ -31,7 +31,7 @@ sidebar_position: 10
|
|||||||
```bsl title="Пример кода"
|
```bsl title="Пример кода"
|
||||||
Токен = "001.3501506236.091...";
|
Токен = "001.3501506236.091...";
|
||||||
IDЧата = "689203963@chat.agent";
|
IDЧата = "689203963@chat.agent";
|
||||||
IDСообщения = "7424860889745984697";
|
IDСообщения = "7425684917876428136";
|
||||||
|
|
||||||
Результат = OPI_VKTeams.ОткрепитьСообщение(Токен, IDЧата, IDСообщения);
|
Результат = OPI_VKTeams.ОткрепитьСообщение(Токен, IDЧата, IDСообщения);
|
||||||
```
|
```
|
||||||
|
File diff suppressed because it is too large
Load Diff
@ -1328,6 +1328,72 @@ EndProcedure
|
|||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
|
||||||
|
#Region VkTeams
|
||||||
|
|
||||||
|
Procedure CLI_VKT_CommonMethods() Export
|
||||||
|
|
||||||
|
TestParameters = New Structure;
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_FileID", TestParameters);
|
||||||
|
|
||||||
|
CLI_VkTeams_CheckToken(TestParameters);
|
||||||
|
CLI_VkTeams_GetEvents(TestParameters);
|
||||||
|
CLI_VKTeams_GetFileInformation(TestParameters);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKT_MessagesSending() Export
|
||||||
|
|
||||||
|
TestParameters = New Structure;
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID2" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_MessageID", TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("Document" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("Audio2" , TestParameters);
|
||||||
|
|
||||||
|
CLI_VkTeams_SendTextMessage(TestParameters);
|
||||||
|
OPI_Tools.Pause(60);
|
||||||
|
|
||||||
|
CLI_VKTeams_ForwardMessage(TestParameters);
|
||||||
|
CLI_VKTeams_SendFile(TestParameters);
|
||||||
|
CLI_VKTeams_ResendFile(TestParameters);
|
||||||
|
CLI_VKTeams_EditMessageText(TestParameters);
|
||||||
|
CLI_VKTeams_PinMessage(TestParameters);
|
||||||
|
CLI_VKTeams_UnpinMessage(TestParameters);
|
||||||
|
CLI_VKTeams_DeleteMessage(TestParameters);
|
||||||
|
CLI_VKTeams_SendVoice(TestParameters);
|
||||||
|
CLI_VKTeams_ResendVoice(TestParameters);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKT_ChatManagment() Export
|
||||||
|
|
||||||
|
TestParameters = New Structure;
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID2" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("Picture3" , TestParameters);
|
||||||
|
|
||||||
|
CLI_VKTeams_RemoveChatMembers(TestParameters);
|
||||||
|
CLI_VKTeams_ChangeChatPicture(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatInfo(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatAdmins(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatMembers(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatBlockedUsers(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatJoinRequests(TestParameters);
|
||||||
|
CLI_VKTeams_BlockChatUser(TestParameters);
|
||||||
|
CLI_VKTeams_UnblockChatUser(TestParameters);
|
||||||
|
CLI_VKTeams_ApprovePending(TestParameters);
|
||||||
|
CLI_VKTeams_DisapprovePending(TestParameters);
|
||||||
|
CLI_VKTeams_SetChatTitle(TestParameters);
|
||||||
|
CLI_VKTeams_SetChatDescription(TestParameters);
|
||||||
|
CLI_VKTeams_SetChatRules(TestParameters);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
#EndRegion
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
@ -7671,6 +7737,683 @@ Procedure CLI_Dropbox_CancelFilePublication(FunctionParameters)
|
|||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
|
|
||||||
|
#EndRegion
|
||||||
|
|
||||||
|
#Region VKTeams
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_CheckToken(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token", Token);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "CheckToken", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "CheckToken", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTUser(Result);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetEvents(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
LastID = 0;
|
||||||
|
|
||||||
|
For N = 1 To 5 Do // In real work - endless loop
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("last" , LastID);
|
||||||
|
Options.Insert("timeout", 3);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetEvents", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetEvents", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTEvents(Result); // SKIP
|
||||||
|
|
||||||
|
Events = Result["events"];
|
||||||
|
|
||||||
|
// Event handling...
|
||||||
|
|
||||||
|
If Not Events.Count() = 0 Then
|
||||||
|
|
||||||
|
LastID = Events[Events.UBound()]["eventId"];
|
||||||
|
|
||||||
|
EndIf;
|
||||||
|
|
||||||
|
EndDo;
|
||||||
|
|
||||||
|
// END
|
||||||
|
|
||||||
|
OPI_Tools.Pause(3);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SendTextMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
Text = "Message text";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid", ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendTextMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendTextMessage (simple)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
ReplyID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
Text = "<b>Bold text</b>";
|
||||||
|
Markup = "HTML";
|
||||||
|
|
||||||
|
Keyboard = New Array;
|
||||||
|
ButtonsLineArray = New Array;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("text" , "Button1");
|
||||||
|
Options.Insert("data" , "ButtonEvent1");
|
||||||
|
Options.Insert("style", "attention");
|
||||||
|
|
||||||
|
Button = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "MakeActionButton", Options);
|
||||||
|
ButtonsLineArray.Add(Button);
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("text" , "Button2");
|
||||||
|
Options.Insert("url" , "https://openintegrations.dev");
|
||||||
|
|
||||||
|
Button = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "MakeActionButton", Options);
|
||||||
|
ButtonsLineArray.Add(Button);
|
||||||
|
|
||||||
|
Keyboard.Add(ButtonsLineArray);
|
||||||
|
Keyboard.Add(ButtonsLineArray);
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
Options.Insert("reply" , ReplyID);
|
||||||
|
Options.Insert("keyboard", Keyboard);
|
||||||
|
Options.Insert("parsemod", Markup);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendTextMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendTextMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
MessageID = Result["msgId"];
|
||||||
|
OPI_TestDataRetrieval.WriteParameter("VkTeams_MessageID", MessageID);
|
||||||
|
FunctionParameters.Insert("VkTeams_MessageID", MessageID);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ForwardMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
FromChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
Options.Insert("fromid" , FromChatID);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ForwardMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ForwardMessage (simple)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
Text = "Additional text";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
Options.Insert("fromid" , FromChatID);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ForwardMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ForwardMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SendFile(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
Text = "File caption";
|
||||||
|
|
||||||
|
File = FunctionParameters["Document"]; // URL
|
||||||
|
FilePath = GetTempFileName("docx"); // Path
|
||||||
|
|
||||||
|
CopyFile(File, FilePath);
|
||||||
|
|
||||||
|
FileBD = New BinaryData(FilePath); // Binary
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , File);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendFile (URL)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , FilePath);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendFile (Path)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , FileBD);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
Options.Insert("filename" , "ImportantDocument.docx");
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendFile", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
DeleteFiles(FilePath);
|
||||||
|
|
||||||
|
FileID = Result["fileId"];
|
||||||
|
OPI_TestDataRetrieval.WriteParameter("VkTeams_FileID", FileID);
|
||||||
|
FunctionParameters.Insert("VkTeams_FileID", FileID);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ResendFile(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
FileID = FunctionParameters["VkTeams_FileID"];
|
||||||
|
Text = "File caption";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("fileid" , FileID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ResendFile", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ResendFile", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetFileInformation(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
FileID = FunctionParameters["VkTeams_FileID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("fileid" , FileID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetFileInformation", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetFileInformation", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTFile(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_EditMessageText(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
Text = "New message text";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "EditMessageText", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "EditMessageText (simple)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
|
||||||
|
|
||||||
|
Text = "<b>New bold message text</b>";
|
||||||
|
Markup = "HTML";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
Options.Insert("parsemod" , Markup);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "EditMessageText", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "EditMessageText", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_DeleteMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DeleteMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "DeleteMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SendVoice(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
ReplyID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
File = FunctionParameters["Audio2"] ; // URL
|
||||||
|
FilePath = GetTempFileName("m4a"); // Path
|
||||||
|
|
||||||
|
CopyFile(File, FilePath);
|
||||||
|
|
||||||
|
FileBD = New BinaryData(FilePath); // Binary
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid", ChatID);
|
||||||
|
Options.Insert("file" , File);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendVoice", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendVoice (URL)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid", ChatID);
|
||||||
|
Options.Insert("file" , FilePath);
|
||||||
|
Options.Insert("reply" , ReplyID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendVoice", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendVoice (Path)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
DeleteFiles(FilePath);
|
||||||
|
|
||||||
|
FileID = Result["fileId"];
|
||||||
|
OPI_TestDataRetrieval.WriteParameter("VkTeams_VoiceID", FileID);
|
||||||
|
FunctionParameters.Insert("VkTeams_VoiceID", FileID);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ResendVoice(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
FileID = FunctionParameters["VkTeams_VoiceID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid", ChatID);
|
||||||
|
Options.Insert("fileid", FileID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ResendVoice", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ResendVoice", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_RemoveChatMembers(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("members", User);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "RemoveChatMembers", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "RemoveChatMembers", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ChangeChatPicture(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
File = FunctionParameters["Picture3"]; // URL
|
||||||
|
FilePath = GetTempFileName("png"); // Path
|
||||||
|
|
||||||
|
CopyFile(File, FilePath);
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , File);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ChangeChatPicture", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ChangeChatPicture (URL)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , FilePath);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ChangeChatPicture", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ChangeChatPicture (Path)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
|
||||||
|
|
||||||
|
DeleteFiles(FilePath);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatInfo(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatInfo", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatInfo", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTChat(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatAdmins(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatAdmins", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatAdmins", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTList(Result, "admins");
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatMembers(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatMembers", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatMembers", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTList(Result, "members");
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatBlockedUsers(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatBlockedUsers", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatBlockedUsers", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTList(Result, "users");
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatJoinRequests(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatJoinRequests", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatJoinRequests", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTList(Result, "users");
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_BlockChatUser(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("userid" , User);
|
||||||
|
Options.Insert("dellast", True);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "BlockChatUser", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "BlockChatUser", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_UnblockChatUser(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("userid" , User);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "UnblockChatUser", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "UnblockChatUser", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_PinMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid" , MessageID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "PinMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "PinMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_UnpinMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid" , MessageID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "UnpinMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "UnpinMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ApprovePending(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("userid" , User);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ApprovePending", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending (single)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTPending(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ApprovePending", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTPending(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_DisapprovePending(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("userid" , User);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DisapprovePending", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending (single)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTPending(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DisapprovePending", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTPending(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SetChatTitle(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
Text = "New title";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatTitle", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SetChatTitle", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SetChatDescription(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
Text = "New description";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatDescription", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SetChatDescription", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SetChatRules(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
Text = "Text of the new rules";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatRules", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SetChatRules", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
@ -1328,6 +1328,72 @@ EndProcedure
|
|||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
|
||||||
|
#Region VkTeams
|
||||||
|
|
||||||
|
Procedure CLI_VKT_CommonMethods() Export
|
||||||
|
|
||||||
|
TestParameters = New Structure;
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_FileID", TestParameters);
|
||||||
|
|
||||||
|
CLI_VkTeams_CheckToken(TestParameters);
|
||||||
|
CLI_VkTeams_GetEvents(TestParameters);
|
||||||
|
CLI_VKTeams_GetFileInformation(TestParameters);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKT_MessagesSending() Export
|
||||||
|
|
||||||
|
TestParameters = New Structure;
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID2" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_MessageID", TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("Document" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("Audio2" , TestParameters);
|
||||||
|
|
||||||
|
CLI_VkTeams_SendTextMessage(TestParameters);
|
||||||
|
OPI_Tools.Pause(60);
|
||||||
|
|
||||||
|
CLI_VKTeams_ForwardMessage(TestParameters);
|
||||||
|
CLI_VKTeams_SendFile(TestParameters);
|
||||||
|
CLI_VKTeams_ResendFile(TestParameters);
|
||||||
|
CLI_VKTeams_EditMessageText(TestParameters);
|
||||||
|
CLI_VKTeams_PinMessage(TestParameters);
|
||||||
|
CLI_VKTeams_UnpinMessage(TestParameters);
|
||||||
|
CLI_VKTeams_DeleteMessage(TestParameters);
|
||||||
|
CLI_VKTeams_SendVoice(TestParameters);
|
||||||
|
CLI_VKTeams_ResendVoice(TestParameters);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKT_ChatManagment() Export
|
||||||
|
|
||||||
|
TestParameters = New Structure;
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID2" , TestParameters);
|
||||||
|
OPI_TestDataRetrieval.ParameterToCollection("Picture3" , TestParameters);
|
||||||
|
|
||||||
|
CLI_VKTeams_RemoveChatMembers(TestParameters);
|
||||||
|
CLI_VKTeams_ChangeChatPicture(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatInfo(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatAdmins(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatMembers(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatBlockedUsers(TestParameters);
|
||||||
|
CLI_VKTeams_GetChatJoinRequests(TestParameters);
|
||||||
|
CLI_VKTeams_BlockChatUser(TestParameters);
|
||||||
|
CLI_VKTeams_UnblockChatUser(TestParameters);
|
||||||
|
CLI_VKTeams_ApprovePending(TestParameters);
|
||||||
|
CLI_VKTeams_DisapprovePending(TestParameters);
|
||||||
|
CLI_VKTeams_SetChatTitle(TestParameters);
|
||||||
|
CLI_VKTeams_SetChatDescription(TestParameters);
|
||||||
|
CLI_VKTeams_SetChatRules(TestParameters);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
#EndRegion
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
@ -7671,6 +7737,683 @@ Procedure CLI_Dropbox_CancelFilePublication(FunctionParameters)
|
|||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
|
|
||||||
|
#EndRegion
|
||||||
|
|
||||||
|
#Region VKTeams
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_CheckToken(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token", Token);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "CheckToken", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "CheckToken", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTUser(Result);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetEvents(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
LastID = 0;
|
||||||
|
|
||||||
|
For N = 1 To 5 Do // In real work - endless loop
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("last" , LastID);
|
||||||
|
Options.Insert("timeout", 3);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetEvents", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetEvents", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTEvents(Result); // SKIP
|
||||||
|
|
||||||
|
Events = Result["events"];
|
||||||
|
|
||||||
|
// Event handling...
|
||||||
|
|
||||||
|
If Not Events.Count() = 0 Then
|
||||||
|
|
||||||
|
LastID = Events[Events.UBound()]["eventId"];
|
||||||
|
|
||||||
|
EndIf;
|
||||||
|
|
||||||
|
EndDo;
|
||||||
|
|
||||||
|
// END
|
||||||
|
|
||||||
|
OPI_Tools.Pause(3);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SendTextMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
Text = "Message text";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid", ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendTextMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendTextMessage (simple)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
ReplyID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
Text = "<b>Bold text</b>";
|
||||||
|
Markup = "HTML";
|
||||||
|
|
||||||
|
Keyboard = New Array;
|
||||||
|
ButtonsLineArray = New Array;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("text" , "Button1");
|
||||||
|
Options.Insert("data" , "ButtonEvent1");
|
||||||
|
Options.Insert("style", "attention");
|
||||||
|
|
||||||
|
Button = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "MakeActionButton", Options);
|
||||||
|
ButtonsLineArray.Add(Button);
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("text" , "Button2");
|
||||||
|
Options.Insert("url" , "https://openintegrations.dev");
|
||||||
|
|
||||||
|
Button = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "MakeActionButton", Options);
|
||||||
|
ButtonsLineArray.Add(Button);
|
||||||
|
|
||||||
|
Keyboard.Add(ButtonsLineArray);
|
||||||
|
Keyboard.Add(ButtonsLineArray);
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
Options.Insert("reply" , ReplyID);
|
||||||
|
Options.Insert("keyboard", Keyboard);
|
||||||
|
Options.Insert("parsemod", Markup);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendTextMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendTextMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
MessageID = Result["msgId"];
|
||||||
|
OPI_TestDataRetrieval.WriteParameter("VkTeams_MessageID", MessageID);
|
||||||
|
FunctionParameters.Insert("VkTeams_MessageID", MessageID);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ForwardMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
FromChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
Options.Insert("fromid" , FromChatID);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ForwardMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ForwardMessage (simple)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
Text = "Additional text";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
Options.Insert("fromid" , FromChatID);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ForwardMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ForwardMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SendFile(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
Text = "File caption";
|
||||||
|
|
||||||
|
File = FunctionParameters["Document"]; // URL
|
||||||
|
FilePath = GetTempFileName("docx"); // Path
|
||||||
|
|
||||||
|
FileCopy(File, FilePath);
|
||||||
|
|
||||||
|
FileBD = New BinaryData(FilePath); // Binary
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , File);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendFile (URL)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , FilePath);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendFile (Path)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , FileBD);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
Options.Insert("filename" , "ImportantDocument.docx");
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendFile", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
DeleteFiles(FilePath);
|
||||||
|
|
||||||
|
FileID = Result["fileId"];
|
||||||
|
OPI_TestDataRetrieval.WriteParameter("VkTeams_FileID", FileID);
|
||||||
|
FunctionParameters.Insert("VkTeams_FileID", FileID);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ResendFile(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
FileID = FunctionParameters["VkTeams_FileID"];
|
||||||
|
Text = "File caption";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("fileid" , FileID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ResendFile", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ResendFile", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetFileInformation(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
FileID = FunctionParameters["VkTeams_FileID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("fileid" , FileID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetFileInformation", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetFileInformation", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTFile(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_EditMessageText(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
Text = "New message text";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "EditMessageText", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "EditMessageText (simple)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
|
||||||
|
|
||||||
|
Text = "<b>New bold message text</b>";
|
||||||
|
Markup = "HTML";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
Options.Insert("parsemod" , Markup);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "EditMessageText", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "EditMessageText", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_DeleteMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid", MessageID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DeleteMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "DeleteMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SendVoice(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
ReplyID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
File = FunctionParameters["Audio2"] ; // URL
|
||||||
|
FilePath = GetTempFileName("m4a"); // Path
|
||||||
|
|
||||||
|
FileCopy(File, FilePath);
|
||||||
|
|
||||||
|
FileBD = New BinaryData(FilePath); // Binary
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid", ChatID);
|
||||||
|
Options.Insert("file" , File);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendVoice", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendVoice (URL)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid", ChatID);
|
||||||
|
Options.Insert("file" , FilePath);
|
||||||
|
Options.Insert("reply" , ReplyID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendVoice", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SendVoice (Path)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
|
||||||
|
|
||||||
|
DeleteFiles(FilePath);
|
||||||
|
|
||||||
|
FileID = Result["fileId"];
|
||||||
|
OPI_TestDataRetrieval.WriteParameter("VkTeams_VoiceID", FileID);
|
||||||
|
FunctionParameters.Insert("VkTeams_VoiceID", FileID);
|
||||||
|
|
||||||
|
OPI_Tools.Pause(5);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ResendVoice(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
FileID = FunctionParameters["VkTeams_VoiceID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid", ChatID);
|
||||||
|
Options.Insert("fileid", FileID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ResendVoice", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ResendVoice", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTMessage(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_RemoveChatMembers(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("members", User);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "RemoveChatMembers", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "RemoveChatMembers", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ChangeChatPicture(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
File = FunctionParameters["Picture3"]; // URL
|
||||||
|
FilePath = GetTempFileName("png"); // Path
|
||||||
|
|
||||||
|
FileCopy(File, FilePath);
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , File);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ChangeChatPicture", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ChangeChatPicture (URL)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("file" , FilePath);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ChangeChatPicture", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ChangeChatPicture (Path)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
|
||||||
|
|
||||||
|
DeleteFiles(FilePath);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatInfo(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatInfo", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatInfo", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTChat(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatAdmins(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatAdmins", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatAdmins", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTList(Result, "admins");
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatMembers(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatMembers", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatMembers", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTList(Result, "members");
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatBlockedUsers(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatBlockedUsers", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatBlockedUsers", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTList(Result, "users");
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_GetChatJoinRequests(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatJoinRequests", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "GetChatJoinRequests", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTList(Result, "users");
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_BlockChatUser(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("userid" , User);
|
||||||
|
Options.Insert("dellast", True);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "BlockChatUser", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "BlockChatUser", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_UnblockChatUser(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("userid" , User);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "UnblockChatUser", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "UnblockChatUser", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_PinMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid" , MessageID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "PinMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "PinMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_UnpinMessage(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
MessageID = FunctionParameters["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("messageid" , MessageID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "UnpinMessage", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "UnpinMessage", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_ApprovePending(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("userid" , User);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ApprovePending", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending (single)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTPending(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ApprovePending", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTPending(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_DisapprovePending(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
User = 1011987091;
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("userid" , User);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DisapprovePending", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending (single)", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTPending(Result); // SKIP
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DisapprovePending", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTPending(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SetChatTitle(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
Text = "New title";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatTitle", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SetChatTitle", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SetChatDescription(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
Text = "New description";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatDescription", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SetChatDescription", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure CLI_VKTeams_SetChatRules(FunctionParameters)
|
||||||
|
|
||||||
|
Token = FunctionParameters["VkTeams_Token"];
|
||||||
|
ChatID = FunctionParameters["VkTeams_ChatID2"];
|
||||||
|
Text = "Text of the new rules";
|
||||||
|
|
||||||
|
Options = New Structure;
|
||||||
|
Options.Insert("token" , Token);
|
||||||
|
Options.Insert("chatid" , ChatID);
|
||||||
|
Options.Insert("text" , Text);
|
||||||
|
|
||||||
|
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatRules", Options);
|
||||||
|
|
||||||
|
OPI_TestDataRetrieval.WriteLog(Result, "SetChatRules", "VkTeams");
|
||||||
|
OPI_TestDataRetrieval.Check_VKTTrue(Result);
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
|
||||||
#EndRegion
|
#EndRegion
|
||||||
|
@ -1328,6 +1328,72 @@
|
|||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
|
||||||
|
#Область VkTeams
|
||||||
|
|
||||||
|
Процедура CLI_ВКТ_ОбщиеМетоды() Экспорт
|
||||||
|
|
||||||
|
ПараметрыТеста = Новый Структура;
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_Token" , ПараметрыТеста);
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_FileID", ПараметрыТеста);
|
||||||
|
|
||||||
|
CLI_VkTeams_ПроверитьТокен(ПараметрыТеста);
|
||||||
|
CLI_VkTeams_ПолучитьСобытия(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ПолучитьИнформациюОФайле(ПараметрыТеста);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_ВКТ_ОтправкаСообщений() Экспорт
|
||||||
|
|
||||||
|
ПараметрыТеста = Новый Структура;
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_Token" , ПараметрыТеста);
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_ChatID" , ПараметрыТеста);
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_ChatID2" , ПараметрыТеста);
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_MessageID", ПараметрыТеста);
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Document" , ПараметрыТеста);
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Audio2" , ПараметрыТеста);
|
||||||
|
|
||||||
|
CLI_VkTeams_ОтправитьТекстовоеСообщение(ПараметрыТеста);
|
||||||
|
OPI_Инструменты.Пауза(60);
|
||||||
|
|
||||||
|
CLI_VKTeams_ПереслатьСообщение(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ОтправитьФайл(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ПереслатьФайл(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ИзменитьТекстСообщения(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ЗакрепитьСообщение(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ОткрепитьСообщение(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_УдалитьСообщение(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ОтправитьГолосовоеСообщение(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ПереслатьГолосовоеСообщение(ПараметрыТеста);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_ВКТ_УправлениеЧатами() Экспорт
|
||||||
|
|
||||||
|
ПараметрыТеста = Новый Структура;
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_Token" , ПараметрыТеста);
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_ChatID" , ПараметрыТеста);
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_ChatID2" , ПараметрыТеста);
|
||||||
|
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Picture3" , ПараметрыТеста);
|
||||||
|
|
||||||
|
CLI_VKTeams_ИсключитьПользователейЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ИзменитьАватарЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ПолучитьИнформациюОЧате(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ПолучитьАдминистраторовЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ПолучитьПользователейЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ПолучитьЗаблокированныхПользователейЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ПолучитьЗапросыВступленияЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ЗаблокироватьПользователяЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_РазблокироватьПользователяЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ОдобритьЗаявкуНаВступление(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_ОтклонитьЗаявкуНаВступление(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_УстановитьЗаголовокЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_УстановитьОписаниеЧата(ПараметрыТеста);
|
||||||
|
CLI_VKTeams_УстановитьПравилаЧата(ПараметрыТеста);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
#КонецОбласти
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@ -7671,6 +7737,683 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
#КонецОбласти
|
||||||
|
|
||||||
|
#Область VKTeams
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПроверитьТокен(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token", Токен);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПроверитьТокен", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПроверитьТокен", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТПользователь(Результат);
|
||||||
|
|
||||||
|
OPI_Инструменты.Пауза(5);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПолучитьСобытия(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDПоследнего = 0;
|
||||||
|
|
||||||
|
Для Н = 1 По 5 Цикл // В реальной работе - бесконечный цикл
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("last" , IDПоследнего);
|
||||||
|
Опции.Вставить("timeout", 3);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьСобытия", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьСобытия", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСобытия(Результат); // SKIP
|
||||||
|
|
||||||
|
События = Результат["events"];
|
||||||
|
|
||||||
|
// Обработка событий...
|
||||||
|
|
||||||
|
Если Не События.Количество() = 0 Тогда
|
||||||
|
|
||||||
|
IDПоследнего = События[События.ВГраница()]["eventId"];
|
||||||
|
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
|
// END
|
||||||
|
|
||||||
|
OPI_Инструменты.Пауза(3);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ОтправитьТекстовоеСообщение(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
Текст = "Текст сообщения";
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid", IDЧата);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьТекстовоеСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьТекстовоеСообщение (простое)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
|
||||||
|
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
IDЦитируемого = ПараметрыФункции["VkTeams_MessageID"];
|
||||||
|
Текст = "<b>Полужирный текст сообщения</b>";
|
||||||
|
Разметка = "HTML";
|
||||||
|
|
||||||
|
Клавиатура = Новый Массив;
|
||||||
|
МассивСтрокиКнопок = Новый Массив;
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("text" , "Кнопка1");
|
||||||
|
Опции.Вставить("data" , "НажатиеКнопки1");
|
||||||
|
Опции.Вставить("style", "attention");
|
||||||
|
|
||||||
|
Кнопка = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "СформироватьКнопкуДействия", Опции);
|
||||||
|
МассивСтрокиКнопок.Добавить(Кнопка);
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("text" , "Кнопка2");
|
||||||
|
Опции.Вставить("url" , "https://openintegrations.dev");
|
||||||
|
|
||||||
|
Кнопка = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "СформироватьКнопкуДействия", Опции);
|
||||||
|
МассивСтрокиКнопок.Добавить(Кнопка);
|
||||||
|
|
||||||
|
Клавиатура.Добавить(МассивСтрокиКнопок);
|
||||||
|
Клавиатура.Добавить(МассивСтрокиКнопок);
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
Опции.Вставить("reply" , IDЦитируемого);
|
||||||
|
Опции.Вставить("keyboard", Клавиатура);
|
||||||
|
Опции.Вставить("parsemod", Разметка);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьТекстовоеСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьТекстовоеСообщение", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
|
||||||
|
|
||||||
|
IDСообщения = Результат["msgId"];
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VkTeams_MessageID", IDСообщения);
|
||||||
|
ПараметрыФункции.Вставить("VkTeams_MessageID", IDСообщения);
|
||||||
|
|
||||||
|
OPI_Инструменты.Пауза(5);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПереслатьСообщение(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
IDЧатаИсточника = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("messageid", IDСообщения);
|
||||||
|
Опции.Вставить("fromid" , IDЧатаИсточника);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПереслатьСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПереслатьСообщение (простое)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
|
||||||
|
|
||||||
|
Текст = "Дополнительный текст";
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("messageid", IDСообщения);
|
||||||
|
Опции.Вставить("fromid" , IDЧатаИсточника);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПереслатьСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПереслатьСообщение", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ОтправитьФайл(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
Текст = "Подпись к файлу";
|
||||||
|
|
||||||
|
Файл = ПараметрыФункции["Document"]; // URL
|
||||||
|
ФайлПуть = ПолучитьИмяВременногоФайла("docx"); // Путь
|
||||||
|
|
||||||
|
КопироватьФайл(Файл, ФайлПуть);
|
||||||
|
|
||||||
|
ФайлДД = Новый ДвоичныеДанные(ФайлПуть); // Двоичные
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("file" , Файл);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьФайл", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьФайл (URL)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("file" , ФайлПуть);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьФайл", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьФайл (Путь)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("file" , ФайлДД);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
Опции.Вставить("filename" , "ВажныйДокумент.docx");
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьФайл", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьФайл", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
|
||||||
|
|
||||||
|
УдалитьФайлы(ФайлПуть);
|
||||||
|
|
||||||
|
IDФайла = Результат["fileId"];
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VkTeams_FileID", IDФайла);
|
||||||
|
ПараметрыФункции.Вставить("VkTeams_FileID", IDФайла);
|
||||||
|
|
||||||
|
OPI_Инструменты.Пауза(5);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПереслатьФайл(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
IDФайла = ПараметрыФункции["VkTeams_FileID"];
|
||||||
|
Текст = "Подпись к файлу";
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("fileid" , IDФайла);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПереслатьФайл", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПереслатьФайл", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПолучитьИнформациюОФайле(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDФайла = ПараметрыФункции["VkTeams_FileID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("fileid" , IDФайла);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьИнформациюОФайле", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьИнформациюОФайле", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТФайл(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ИзменитьТекстСообщения(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
|
||||||
|
Текст = "Новый текст сообщения";
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("messageid", IDСообщения);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИзменитьТекстСообщения", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьТекстСообщения (простое)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат); // SKIP
|
||||||
|
|
||||||
|
Текст = "<b>Новый полужирный текст сообщения</b>";
|
||||||
|
Разметка = "HTML";
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("messageid", IDСообщения);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
Опции.Вставить("parsemod" , Разметка);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИзменитьТекстСообщения", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьТекстСообщения", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
OPI_Инструменты.Пауза(5);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_УдалитьСообщение(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("messageid", IDСообщения);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "УдалитьСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьСообщение", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
OPI_Инструменты.Пауза(5);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ОтправитьГолосовоеСообщение(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
IDЦитируемого = ПараметрыФункции["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Файл = ПараметрыФункции["Audio2"] ; // URL
|
||||||
|
ФайлПуть = ПолучитьИмяВременногоФайла("m4a"); // Путь
|
||||||
|
|
||||||
|
КопироватьФайл(Файл, ФайлПуть);
|
||||||
|
|
||||||
|
ФайлДД = Новый ДвоичныеДанные(ФайлПуть); // Двоичные
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid", IDЧата);
|
||||||
|
Опции.Вставить("file" , Файл);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьГолосовоеСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьГолосовоеСообщение (URL)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid", IDЧата);
|
||||||
|
Опции.Вставить("file" , ФайлПуть);
|
||||||
|
Опции.Вставить("reply" , IDЦитируемого);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьГолосовоеСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьГолосовоеСообщение (Путь)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
|
||||||
|
|
||||||
|
УдалитьФайлы(ФайлПуть);
|
||||||
|
|
||||||
|
IDФайла = Результат["fileId"];
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VkTeams_VoiceID", IDФайла);
|
||||||
|
ПараметрыФункции.Вставить("VkTeams_VoiceID", IDФайла);
|
||||||
|
|
||||||
|
OPI_Инструменты.Пауза(5);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПереслатьГолосовоеСообщение(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
IDФайла = ПараметрыФункции["VkTeams_VoiceID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid", IDЧата);
|
||||||
|
Опции.Вставить("fileid", IDФайла);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПереслатьГолосовоеСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПереслатьГолосовоеСообщение", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ИсключитьПользователейЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
Пользователь = 1011987091;
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("members", Пользователь);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИсключитьПользователейЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИсключитьПользователейЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ИзменитьАватарЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Файл = ПараметрыФункции["Picture3"]; // URL
|
||||||
|
ФайлПуть = ПолучитьИмяВременногоФайла("png"); // Путь
|
||||||
|
|
||||||
|
КопироватьФайл(Файл, ФайлПуть);
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("file" , Файл);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИзменитьАватарЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьАватарЧата (URL)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат); // SKIP
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("file" , ФайлПуть);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИзменитьАватарЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьАватарЧата (Путь)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат); // SKIP
|
||||||
|
|
||||||
|
УдалитьФайлы(ФайлПуть);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПолучитьИнформациюОЧате(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьИнформациюОЧате", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьИнформациюОЧате", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТЧат(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПолучитьАдминистраторовЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьАдминистраторовЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьАдминистраторовЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСписок(Результат, "admins");
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПолучитьПользователейЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьПользователейЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьПользователейЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСписок(Результат, "members");
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПолучитьЗаблокированныхПользователейЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьЗаблокированныхПользователейЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьЗаблокированныхПользователейЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСписок(Результат, "users");
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ПолучитьЗапросыВступленияЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьЗапросыВступленияЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьЗапросыВступленияЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТСписок(Результат, "users");
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ЗаблокироватьПользователяЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
Пользователь = 1011987091;
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("userid" , Пользователь);
|
||||||
|
Опции.Вставить("dellast", Истина);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ЗаблокироватьПользователяЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ЗаблокироватьПользователяЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_РазблокироватьПользователяЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
Пользователь = 1011987091;
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("userid" , Пользователь);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "РазблокироватьПользователяЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "РазблокироватьПользователяЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ЗакрепитьСообщение(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("messageid" , IDСообщения);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ЗакрепитьСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ЗакрепитьСообщение", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ОткрепитьСообщение(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("messageid" , IDСообщения);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОткрепитьСообщение", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОткрепитьСообщение", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ОдобритьЗаявкуНаВступление(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
Пользователь = 1011987091;
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("userid" , Пользователь);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОдобритьЗаявкуНаВступление", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОдобритьЗаявкуНаВступление (один)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТЗаявки(Результат); // SKIP
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОдобритьЗаявкуНаВступление", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОдобритьЗаявкуНаВступление", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТЗаявки(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_ОтклонитьЗаявкуНаВступление(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
Пользователь = 1011987091;
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("userid" , Пользователь);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтклонитьЗаявкуНаВступление", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтклонитьЗаявкуНаВступление (один)", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТЗаявки(Результат); // SKIP
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтклонитьЗаявкуНаВступление", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтклонитьЗаявкуНаВступление", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТЗаявки(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_УстановитьЗаголовокЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
Текст = "Новый заголовок";
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "УстановитьЗаголовокЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УстановитьЗаголовокЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_УстановитьОписаниеЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
Текст = "Новое описание";
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "УстановитьОписаниеЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УстановитьОписаниеЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура CLI_VKTeams_УстановитьПравилаЧата(ПараметрыФункции)
|
||||||
|
|
||||||
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
|
||||||
|
Текст = "Текст новых правил";
|
||||||
|
|
||||||
|
Опции = Новый Структура;
|
||||||
|
Опции.Вставить("token" , Токен);
|
||||||
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Опции.Вставить("text" , Текст);
|
||||||
|
|
||||||
|
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "УстановитьПравилаЧата", Опции);
|
||||||
|
|
||||||
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УстановитьПравилаЧата", "VkTeams");
|
||||||
|
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
@ -7744,7 +7744,7 @@
|
|||||||
Процедура CLI_VKTeams_ПроверитьТокен(ПараметрыФункции)
|
Процедура CLI_VKTeams_ПроверитьТокен(ПараметрыФункции)
|
||||||
|
|
||||||
Токен = ПараметрыФункции["VkTeams_Token"];
|
Токен = ПараметрыФункции["VkTeams_Token"];
|
||||||
|
|
||||||
Опции = Новый Структура;
|
Опции = Новый Структура;
|
||||||
Опции.Вставить("token", Токен);
|
Опции.Вставить("token", Токен);
|
||||||
|
|
||||||
@ -7823,7 +7823,7 @@
|
|||||||
|
|
||||||
Кнопка = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "СформироватьКнопкуДействия", Опции);
|
Кнопка = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "СформироватьКнопкуДействия", Опции);
|
||||||
МассивСтрокиКнопок.Добавить(Кнопка);
|
МассивСтрокиКнопок.Добавить(Кнопка);
|
||||||
|
|
||||||
Опции = Новый Структура;
|
Опции = Новый Структура;
|
||||||
Опции.Вставить("text" , "Кнопка2");
|
Опции.Вставить("text" , "Кнопка2");
|
||||||
Опции.Вставить("url" , "https://openintegrations.dev");
|
Опции.Вставить("url" , "https://openintegrations.dev");
|
||||||
@ -8001,7 +8001,7 @@
|
|||||||
|
|
||||||
Текст = "<b>Новый полужирный текст сообщения</b>";
|
Текст = "<b>Новый полужирный текст сообщения</b>";
|
||||||
Разметка = "HTML";
|
Разметка = "HTML";
|
||||||
|
|
||||||
Опции = Новый Структура;
|
Опции = Новый Структура;
|
||||||
Опции.Вставить("token" , Токен);
|
Опции.Вставить("token" , Токен);
|
||||||
Опции.Вставить("chatid" , IDЧата);
|
Опции.Вставить("chatid" , IDЧата);
|
||||||
|
Loading…
x
Reference in New Issue
Block a user