MyChat Scripts: функция GetCIDSByUINAndClientType, список подключений пользователя

MyChat Scripts: функция mGetCIDSByUINAndClientType, список подключений пользователя

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

 

Получить список всех подключений (Connection ID) онлайн-приложений пользователя по его UIN и типу приложения.

 

Синтаксис

function GetCIDSByUINAndClientType(const iUIN: integer; const sClientType: string): integer;

 

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

Параметр

Тип

Значение

iUIN

integer

уникальный идентификатор пользователя, CID-ы которого необходимо узнать.

sClientType

string

типы подключений, через запятую. Если указать пустую строку или слово "any", будут выбраны все подключения.

 

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

Список CID-ов через запятую. Если список пуст — пользователь офлайн.

 

Пример

const
  iUIN = 6; // user UIN for test, set your own number
var
  iCID: integer;
  sCIDList, sClientType, sIP: string;
begin
  sCIDList := mGetCIDSByUINAndClientType(iUIN, 'win32,web,forum,kanban,admin');
  
    if length(sCIDList) = 0 then mLogScript('User is offline or unregistered UIN', '')
      else begin
        while length(sCIDList) > 0 do begin
          iCID := StrToInt(Fetch(sCIDList, ','));
          
          sClientType := mGetCIDAttribute(iCID, 'ClientType');
          sIP         := mGetCIDAttribute(iCID, 'IP');
          
          mLogScript(sClientType, sIP);
        end;
      end;
end.

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

[15:35:47] (Log "mGetCIDSByUIN"): [192.168.10.1] win32

[15:35:47] (Log "mGetCIDSByUIN"): [192.168.10.13] web

[15:35:47] (Log "mGetCIDSByUIN"): [192.168.10.113] admin

[15:35:47] (Log "mGetCIDSByUIN"): [213.130.24.149] kanban

[15:35:47] (Log "mGetCIDSByUIN"): [213.130.24.149] forum

[15:35:47] (Run "mGetCIDSByUIN"): Время выполнения скрипта: 3 мс

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

 

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

IntToStr

Length

mGetCIDAttribute

mLogScript

StrToInt