[Алексей Пикуров]

Скрипт делает экспорт всех фотографий зарегистрированных пользователей сервера на диск, в папку c:\temp\foto\

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

Результат:

allusersfotos.png

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

У вас нет необходимых прав для просмотра вложений в этом сообщении.

Team lead
Чат со мной

Скрипт выдает ошибку

[12:32:59] (Error "Foto"): [Error] (13:7): Unknown identifier 'mExtractUserFoto'

[Алексей Пикуров]

mExtractUserPhoto, название функции исправлено. Открывайте справку, пожалуйста.

Team lead
Чат со мной