Страница 1 из 1

Скрипт для экспорта всех фотографий зарегистрированных пользователей на диск

СообщениеДобавлено: Чт фев 23, 2017 4:49 pm
Алексей Пикуров
Скрипт делает экспорт всех фотографий зарегистрированных пользователей сервера на диск, в папку c:\temp\foto\

Все файлы называются по шаблону "(UIN) полное имя пользователя.jpg".

Результат:

allusersfotos.png
allusersfotos.png (48.12 КБ) Просмотров: 1570


Текст скрипта (версия 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.