MyChat Scripts: функция mHaltUIN, завершить работу всех подключений MyChat Client по UIN

MyChat Scripts: функция mHaltUIN, завершить работу всех подключений MyChat Client по UIN

"Для разработчиков", "Серверные скрипты", "Описание функций", "Пользователи", "mHaltUIN".

 

Отключить от сервера любого онлайн-пользователя и принудительно завершить работу всех экземпляров его подключенных приложений.

 

Синтаксис

function mHaltUIN(iUIN: integer): integer;

 

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

Параметр

Тип

Значение

iUIN

integer

уникальный идентификатор онлайн-пользователя.

 

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

>0

всё ок, отключено N соединений;

-1

вы не можете завершить работу встроенного бота (UIN 0);

-2

UIN должен быть больше нуля;

-3

указанный пользователь отключен от сервера (офлайн).

 

Пример

Функция отключает от сервера и завершает работу всех подключенных приложений пользователей указанной группы.

const
  GROUP_NAME = 'External users';
var
  SL: TStringList;
  i, iUIN, iCount: integer;
begin
  SL := TStringList.Create;
  SL.CommaText := mGetUsersListInGroupByName(GROUP_NAME);
  
    if SL.Count > 0 then begin
      iCount := 0;
      
        for i := 0 to SL.Count - 1 do begin
          iUIN := StrToInt(SL[i]);
          
            if mIsUINOnline(iUIN) then begin
              mHaltUIN(iUIN);
              inc(iCount);
            end;  
        end;  
    end;  
    
  SL.Free;
  
    if iCount > 0 then mLogScript('Halted ' + IntToStr(iCount) + ' users', '');    
end.

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

[18:09:47] (Log "mHaltUIN"): Halted 17 users

[18:09:47] (Run "mHaltUIN"): Время выполнения скрипта: 527 мс

[18:09:47] (Run "mHaltUIN"): Скрипт выполнен успешно.

 

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

Inc

IntToStr

mGetUsersListInGroupByName

mIsUINOnline

mLogScript

StrToInt