Cisco Cisco Computer Telephony Integration OS 8.5 Developer's Guide

         nMode pIArguments.GetValueInt(“StatusCode)

If nMode = eSMStatusMonitorStarted Then strAgent =  

pIArguments.GetValueString(“MonitoredUniqueObjectID”)

            MsgBox “Silent Monitor Status”,, 

“Started Monitoring Agent: ” & strAgent

         Else

            MsgBox “Silent Monitor Status”,, 

“Request Failed with code = ” & nMode            

         End If

End Sub

Private Sub tmrScreening_Timer()

‘After listening the conversation for 30 sec, drop monitoring session

‘Assemble arguments for stop  request

‘Agent to monitor

m_Args.AddItem "SMSessionKey", m_nSMSessionKey

‘Request silent monitor session to stop

m_SMManager.StopSilentMonitorRequest(m_Args, m_nSMSessionKey)

End Sub

Private Sub m_session_OnSilentMonitorStartRequestedEvent(By Val 

pIArguments As CTIOSCLIENTLib.IArguments)

     Dim strRequestInfo As String

    

     strRequestInfo =  pIArguments.DumpArgs

MsgBox “Request to Start Silent Monitor Received”,, strRequestInfo

End Sub

Private Sub m_session_OnSilentMonitorStopRequestedEvent(By Val 

pIArguments As CTIOSCLIENTLib.IArguments, bDoDefaultProcessing)

     Dim strRequestInfo As String

    

     strRequestInfo =  pIArguments.DumpArgs

MsgBox “Request to Stop Silent Monitor Received”,, strRequestInfo

End Sub