Роботы, плагины и скрипты к чату MyChat. Разработка альтернативных клиентов и различных утилит. Технические вопросы по программированию, замечания и предложения по развитию API
Аватара пользователя
Алексей Пикуров
Скрипт "навешивается" на событие OnPrivateRequest на сервере. Работает с версий MyChat 5.22 и выше.

Код: Выделить всё
function OnPrivateRequest(iCID, iUIN, iUINTo, iRole, iRoleReciever, iTask: integer): boolean;
var
  s,
  sIP,                            // IP адрес пользователя WEB-поддержки
  sWEBSupportBrowserInfo,         // информация о веб-браузере
  sWEBSupportRefLink,             // рефлинк
  sWEBSupportsSysLanguage,        // язык локали браузера
  sWEBSupportsPlatformOS: string; // операционная система юзера
 
  iCIDTo: integer;
begin
  if mGetRoleNameByID(iRole) = 'WEB guests' then begin
    sIP                     := mGetUserAttribute(iUIN, 'IP_Address');
    sWEBSupportBrowserInfo  := mGetUserAttribute(iUIN, 'WEBSupportBrowserInfo');
    sWEBSupportRefLink      := mGetUserAttribute(iUIN, 'WEBSupportRefLink');
    sWEBSupportsSysLanguage := mGetUserAttribute(iUIN, 'WEBSupportSysLanguage');
    sWEBSupportsPlatformOS  := mGetUserAttribute(iUIN, 'WEBSupportPlatformOS');
   
    s := '---------------' + CRLF +
         '-=WEB Support=-' + CRLF + CRLF +
         'IP: ' + sIP;
     
      if length(sWEBSupportBrowserInfo) > 0 then s := s + CRLF + 'Browser: ' + sWEBSupportBrowserInfo + CRLF;
      if length(sWEBSupportRefLink) > 0 then s := s + CRLF + 'Reflink: ' + sWEBSupportRefLink;
      if length(sWEBSupportsSysLanguage) > 0 then s := s + CRLF + 'System language: ' + sWEBSupportsSysLanguage;
      if length(sWEBSupportsPlatformOS) > 0 then s := s + CRLF + 'OS: ' + sWEBSupportsPlatformOS;
     
    mSendPrivateMessage(iUIN, iUINTo, s, 21, true);
   
    iCIDTo := mGetUserCID(iUINTo);
    mSendCustomMsgToClientConsoleByCID(iCIDTo, 'WEB support session from UIN ' + inttostr(iUIN), 'newmsg', false, true, 78);
  end;

  result := true;
end;

begin

end.

Выглядит это вот так:

websupportinfoscript.png
websupportinfoscript.png (35.22 КБ) Просмотров: 1060


Справка: https://nsoft-s.com/mcserverhelp/index. ... equest.htm