Добавить пользователя в общий древовидный список контактов.
function mAddUserToCommonContacts(iUIN, iGroupID: integer): integer;
Параметр |
Тип |
Значение |
|---|---|---|
iUIN |
integer |
уникальный идентификатор пользователя, >0; |
iGroupID |
integer |
идентификатор группы в общем списке контактов, число >0. |
0 |
ошибок нет, пользователь успешно добавлен в список контактов; |
-1 |
пользователь уже находится в общем списке контактов; |
-2 |
группы с таким номером не существует; |
-3 |
несуществующий UIN пользователя; |
-4 |
вы не можете добавить в общий список контактов встроенного робота с UIN = 0; |
-5 |
общий список контактов пуст, создайте в нём сначала хотя бы одну группу. |
var
iGroupID, x: integer;
sMsg: string;
begin
iGroupID := mGetDepartmentIDByTextPath('MyChat Developers');
mLogScript(inttostr(iGroupID), '');
if iGroupID <> -1 then begin
x := mAddUserToCommonContacts(30, 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(x));
end;
end.[13:57:32] (Log "mAddUserToCommonContacts"): 12
[13:57:32] (Log "mAddUserToCommonContacts"): [0] all Ok!
[13:57:32] (Run "mAddUserToCommonContacts"): Время выполнения скрипта: 19 мс
[13:57:32] (Run "mAddUserToCommonContacts"): Скрипт выполнен успешно.