Cisco Cisco Computer Telephony Integration OS 8.5 Guida Dello Sviluppatore
4-81
CTI OS Developer’s Guide for Cisco ICM/IPCC Enterprise & Hosted Editions Release 7.1(1)
Chapter 4 Building Your Application
Enabling Silent Monitor in your Application
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
Monitored Client Code Sample
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