Вы можете делать это в скриптовом движке на сервере. Или вы хотите это делать через REST? Опишите подробнее, пожалуйста.
Чат со мной
{
"cmd" : "0017",
"ServerKey" : "MyChat_token",
"APIStype" : "mydata",
"UIN" : 47,
"GroupID" : 15
}
"cmd":1,"Error":30,"hash":"OBD7_45_0V1NoWQ","CMD":"6"
var
iUIN,x: integer;
iGroupID: integer;
sUserNameJSON,sDomaneNam,sMsg: string;
begin
iUIN:=56;
sUserNameJSON := mGetUserDataAsJSON(iUIN, 'DomainName');
JSONGetString(sUserNameJSON, 'DomainName', sDomaneNam);
mLogScript(sDomaneNam, 'Домен');
if sDomaneNam = 'Viber' then begin
iGroupID := mGetDepartmentIDByTextPath('Абоненты\VIBER');
mLogScript(sDomaneNam, 'Viber') end else
if sDomaneNam = 'Telegram' then begin
iGroupID := mGetDepartmentIDByTextPath('Абоненты\TELEGRAM');
mLogScript(sDomaneNam, 'Telegram') end else
if sDomaneNam = 'VK' then begin
iGroupID := mGetDepartmentIDByTextPath('Абоненты\ВКОНТАКТЕ');
mLogScript(sDomaneNam, 'ВК') end else
iGroupID := mGetDepartmentIDByTextPath('Абоненты');
x := mAddUserToCommonContacts(iUIN,iGroupID);
case x of
0: sMsg := 'all Ok!';
-1: sMsg := 'user already is in the common contact list';
-2: sMsg := 'wrong GroupID';
-3: sMsg := 'user UIN does not exist';
-4: sMsg := 'you can''t use UIN = 0';
end;
mLogScript(sMsg, IntToStr(iGroupID));
end.
procedure OnRegistered(iCID, iUIN: integer; var iRole: integer; var bBlocked: boolean);
var
sGroupName: string;
x: integer;
begin
sGroupName := mGetRoleNameByID(iRole);
if sGroupName = 'Guests' then x := mGetRoleIDByName('MyGroupForAllNewUsers');
if x <> -1 then iRole := x;
end;
begin
end.
// ---------------------------------------
// Script created by admin (UIN 1)
// 12.11.2020 10:25:41
// ---------------------------------------
procedure OnRegistered(iCID, iUIN: integer; var iRole: integer; var bBlocked: boolean);
begin
mLogScriptToDisk(mHTTPSendPostMessage('google.com', '', '', 2000));
mLogScriptToDisk(mHTTPSendPostMessage('127.0.0.1:9999', '', '', 2000));
end;
begin
end.
У вас правами разрешены подключения мобильных кли[…]
Добрый день. Проблема ушла после обновления на вер[…]
https://nsoft-s.com/files/mychatclient.deb https:/[…]
Здравствуйте. Ошибка повторяется только на iPad?
MyChat Client [-] (01.05.2024) (win32) ошибк[…]
Принято, спасибо. Будем ждать.
Версия обновлена. Вы обновили свой сервер? Проблем[…]
Сделали ещё исправления . Свежая сборка будет на […]
Изменили логику отображения длительности отсутст[…]
Это формируете вы, система контроля рабочего време[…]
К сожалению проблема не решена, вы можете отключит[…]
Подскажите, в версии 3.3 починили эту проблему? А […]
Георгий дал вам ссылку на справку, расположенную н[…]