Cisco Cisco Computer Telephony Integration Option 8.5 Developer's Guide

       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

The Standalone control was also integrated with the Allagents Sample, which is 
called AllAgentsmonitor. This sample demonstrates how to connect to CTI OS, 
select an agent and silent monitor him or her. Essentially it creates some UI plus 
an Agent Selection tool around the code given in the previous section. No specific