Manualsbrain.com
  1. Manuals
  2. Brands
  3. Cisco
  4. Cisco Computer Telephony Integration Option 9.0
  5. Developer's Guide

Cisco Cisco Computer Telephony Integration Option 9.0 Developer's Guide

Download
Page of 508
   
5-47
CTI OS Developer’s Guide for Cisco Unified ICM/Contact Center Enterprise & Hosted
Release 8.0(1)
Chapter 5      CTI OS ActiveX Controls
The Silent Monitor StandAlone ActiveX Control
Private Sub btnConnect_Click()
    m_Args.clear
   m_Args.AddItem “CtiosA”, “localhost”
   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