Роботы, плагины и скрипты к чату MyChat. Разработка альтернативных клиентов и различных утилит. Технические вопросы по программированию, замечания и предложения по развитию API
Аватара пользователя
Алексей Пикуров
Скрипт делает экспорт всех фотографий зарегистрированных пользователей сервера на диск, в папку c:\temp\foto\

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

Результат:

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


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