Скрипт для экспорта всех фотографий зарегистрированных пользователей на диск
Добавлено: Чт фев 23, 2017 4:49 pmСкрипт делает экспорт всех фотографий зарегистрированных пользователей сервера на диск, в папку c:\temp\foto\
Все файлы называются по шаблону "(UIN) полное имя пользователя.jpg".
Результат:
Текст скрипта (версия MyChat 5.24+):
Все файлы называются по шаблону "(UIN) полное имя пользователя.jpg".
Результат:
Текст скрипта (версия MyChat 5.24+):
Код: Выделить всё
// ---------------------------------------
// Script created by Alexey Pikurov
// 23.02.2017 14:55:41
// ---------------------------------------
var
sUsersList: string;
iUIN: integer;
begin
sUsersList := mGetUsersListByState(-2);
while length(sUsersList) > 0 do begin
iUIN := strtoint(GetNextSt(sUsersList, ','));
mExtractUserFoto(iUIN,
'c:\temp\foto\',
'(' + inttostr(iUIN) + ') ' + mGetUserAttribute(iUIN, 'DisplayName'));
end;
end.