Cisco Cisco Computer Telephony Integration Option 9.0 Guide Du Développeur
5-46
CTI OS Developer’s Guide for Cisco Unified Contact Center Enterprise
Release 8.5(3)
Chapter 5 CTI OS ActiveX Controls
The Silent Monitor StandAlone ActiveX Control
m_Args.AddItem “portA”, “42028”
Dim nRetVal As Long
SilentMonitorCtl.Connect m_Args, nRetVal
If nRetVal <> CIL_OK Then
MsgBox "Connect returned error " + Str(nRetVal)
End If
End Sub
Private Sub btnDisconnect_Click()
Dim nRetVal As Long
SilentMonitorCtl.Disconnect
End Sub
Private Sub btnStartMonitoring_Click()
m_Args.clear
m_Args.AddItem “AgentId”, “1000”
m_Args.AddItem “PeripheralID”, “5004”
Dim nRetVal As Long
SilentMonitorCtl.StartMonitoring m_Args, nRetVal
If nRetVal <> CIL_OK Then
MsgBox "StartMonitoring returned error " + Str(nRetVal)
End If
End Sub
Private Sub btnStopMonitoring_Click()
m_Args.clear
m_Args.AddItem “AgentId”, “1000”
m_Args.AddItem “PeripheralID”, “5004”
Dim nRetVal As Long
SilentMonitorCtl.StopMonitoring m_Args, nRetVal
If nRetVal <> CIL_OK Then
MsgBox "StopMonitoring returned error " + Str(nRetVal)
End If
End Sub
Private Sub SilentMonitorCtl_OnSessionDisconnected(ByVal pIArguments As
SILENTMONITORCTLLib.IArguments)
MsgBox "SilentMonitorSession Disconnected Event"
End Sub