MyChat Scripts: функция mGetUserRoleName, получить название группы прав пользователя

Получить название группы прав пользователя по его UIN.

 

Синтаксис

function mGetUserRoleName(iUIN: integer): string;

 

Параметры и возвращаемые значения

 

Результат функции

Название группы прав пользователя, если он существует. Если указан несуществующий UIN, будет возвращена пустая строка.

 

Пример
Подсчёт количества пользователей в группах прав "Guests" и "WEB guests".

var 
  sRoleName: string;
  i, iMaxUIN, iGuestsCount, iWEBGuestsCount: integer;
begin
  iMaxUIN         := mGetMaxRegisteredUIN;
  iGuestsCount    := 0;
  iWEBGuestsCount := 0;
  
  mLogScript('Max registered UIN: ' + inttostr(iMaxUIN), '');
  
    for i := 1 to iMaxUIN do
      if mIsUINExists(i) then begin
        sRoleName := mGetUserRoleName(i);
          if sRoleName = 'Guests' then inc(iGuestsCount) else
          if sRoleName = 'WEB guests' then inc(iWEBGuestsCount);
      end;
      
  mLogScript('Guests count: ' + inttostr(iGuestsCount), '');
  mLogScript('WEB Guests count: ' + inttostr(iWEBGuestsCount), '');
end.

Результат работы скрипта

[17:16:28] (Log "mGetUserRoleName"): Max registered UIN: 15868

[17:16:28] (Log "mGetUserRoleName"): Guests count: 3985

[17:16:28] (Log "mGetUserRoleName"): WEB Guests count: 927

[17:16:28] (Run "mGetUserRoleName"): Время выполнения скрипта: 706 мс

[17:16:28] (Run "mGetUserRoleName"): Скрипт выполнен успешно.

 

Ещё посмотреть

IntToStr

mGetMaxRegisteredUIN

mLogScript