- Создаём на компьютере с сервером MyChat папку "c:\messages\broadcast\".
- Добавляем туда текстовые файлы, которые делаем в обычном Блокноте. Названия файлов — это время, когда должны отправляться сообщения. Например, "17.35.txt" или "08.00.txt". Расширение .txt Блокнот добавляет автоматически при сохранении файла. Время должно быть кратно пяти минутам.
- Создаём одну или несколько групп пользователей в MyChat Server и добавляем туда людей, для которых будут делаться оповещения.
- Создаём скрипт на событие "User defined scripts", "Every 5 minutes", включаем его.
- Профит!
Текст скрипта:
// ---------------------------------------
// 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.
Чат со мной