Этот код записывает значения счетчиков в системный журнал событий перед тем, как они будут сброшены (обнулены).

Код может быть модифицирован для записи показаний счетчиков в базу данных, текстовый файл или XML-файл.

Код должен быть использован в виде нового модуля или как часть уже имеющегося модуля.

'================== START ===============

'Декларация ScriptModuleEvent.CallType

Const BeforeCountersResetEvent = 8

'Функция обработчика события, которая будет вызываться

Function ScriptEvent(CallType, Params)

       Dim S, ObjRule

       'Подготовка строки

       'Params(0) содержит правило, для которого будут сбрасываться счетчики

       If CallType = BeforeCountersResetEvent Then

               Set ObjRule = Params(0)

               S = ObjRule.Name & ":" & vbCRLF & _

                       "Incoming: " & ObjRule.CurrentIn & vbCRLF & _

                       "Outgoing: " & ObjRule.CurrentOut

               'Записать строку в системный журнал событий

               TrafficFilter.LogInfo S

       End If

End Function

'Добавить обработчик события в список событий модуля

'В данном случае последний параметр игнорируется (используется только в событиях по времени)

'но обязательный и не может иметь значение 0

CurrentModule.Events.Add GetRef("ScriptEvent"), BeforeCountersResetEvent, 1

'=================== END ================