Скрипт для отправки оповещения из текстовых файлов для групп людей в MyChat
script-broadcast-to-group-from-file.png (82.9 КБ) Просмотров: 3078
Текст скрипта:
// ---------------------------------------
// Script created by Алексей Пикуров ([email protected])
// отправка оповещений по времени из текстовых файлов
// для указанных групп людей
// 15.09.2018 14:13:00
// ---------------------------------------
const
sGroupsList = 'Special'; // группы пользователей, через запятую, без пробелов
sPath = 'c:\messages\broadcast\'; // путь на диске сервера, откуда брать файлы для оповещений
var
sFullName, sFileName, sMsg, sUsersList, sCurrentGroup, sGroupsOriginal: string;
iDay: integer;
bFlag: boolean;
begin
iDay := DayOfTheWeek(Now);
sFileName := FormatDatetime('hh.nn', Now) + '.txt'; // например, 17.45.txt
sGroupsOriginal := sGroupsList;
while length(sGroupsOriginal) > 0 do begin
sCurrentGroup := GetNextSt(sGroupsOriginal, ',');
sFullName := sPath + sFileName;
if FileExists(sFullName) then
if iDay < 6 then begin // выполняем скрипт только по рабочим дням
sMsg := Trim(LoadTextFromFile(sFullName, 0));
if length(sMsg) > 0 then begin
sUsersList := mGetUsersListInGroupsByNames(sCurrentGroup);
if length(sUsersList) > 0 then
mSendBroadcast(sMsg, sUsersList, EndOfTheDay(Now), 1);
end;
end;
end;
end.