AVZ 5. Руководство пользователя
×
Меню
Индекс

16.44.1. function  SendNetMessage

function  SendNetMessage(AHost, AFromSt, AToSt, AMessageSt: string) : boolean;
 
Отправляет сообщение по сети, аналог NET SEND.
Параметры:
·AHost - имя хоста, которому передается сообщение
·AFromSt - поле "От кого"
·AToSt - поле "Кому"
·AMessageSt - текст сообщения.
 
Значения параметров AFromSt, AToSt, AMessageSt могут содержать русские буквы, но в этом случае не гарантируется корректное отображение сообщения.
 
 
Пример:
 
begin
  // Запуск сканирования
  RunScan;
  // Что-то подозрительное ??
  if (GetSuspCount > 0) or (GetDetectedCount > 0) then begin
    SendNetMessage('Monitoring', 'AVZ', 'Admin',
                   'Report from computer "' + GetComputerName + '" '+
                   'SuspCount = ' + InttoStr(GetSuspCount) + ', '
                   'DetectedCount = ' + InttoStr(GetDetectedCount)
                   );
  end;
end.
 
В примере использовались: GetComputerName, GetDetectedCount, GetSuspCount, RunScan