Добавление пользователя через API в список контактов
Добавлено: Пт окт 30, 2020 12:56 pm
Собственно это и есть предложение: добавлять пользователя через API в список контактов при создании и после
Форум Network Software Solutions
https://nsoft-s.com/forum/
{
"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.