function  SendNetMessage

function  SendNetMessage

Previous pageReturn to chapter overviewNext page

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.