Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Terminal Object / Disconnected Event
Example
In This Topic
    Disconnected Event
    In This Topic
    The event occurs after the connection to the host has been disconnected.
    Syntax
    private Sub Terminal_Disconnected ( 
       ByVal sender As Object, _
       ByVal connectionId As Integer, _
       ByVal connectionType As ConnectionTypeOption, _
       ByVal connectionSettings As Object _
    ) 

    Parameters

    sender
    An object.
    connectionId
    An integer.
    connectionType
    The type of connection.This is a ConnectionTypeOption Enumeration.
    connectionSettings
    An object.
    Example
    This example logs commands and data entered and received and saves it in a text file when logging is stopped. To run this sample, copy the code to the ThisTerminal code window.
    Private Sub Terminal_Connected(ByVal sender As Variant, ByVal ConnectionID As Long, ByVal connnectionType As Attachmate_Reflection_Objects_Emulation_OpenSystems.ConnectionTypeOption, ByVal connectionSettings As Variant)
     
        'Start capturing text to a file:
        ThisScreen.ScreenPrinting.PrinterLogging = True
        ThisScreen.ScreenPrinting.PrintToFile = Environ$("USERPROFILE") & "\Documents" & "\test.txt"
        ThisTerminal.StartLogging
        
    End Sub
     
    Private Sub Terminal_Disconnected(ByVal sender As Variant, ByVal ConnectionID As Long, ByVal connnectionType As Attachmate_Reflection_Objects_Emulation_OpenSystems.ConnectionTypeOption, ByVal connectionSettings As Variant)
        
        'Stop capturing text to a file:
        ThisScreen.ScreenPrinting.PrinterLogging = False
        ThisTerminal.StopLogging
        
    End Sub
    See Also