Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Terminal Object / Connected Event
Example
In This Topic
Connected Event
In This Topic
The event occurs after the connection to the host has been made.
Syntax
private Sub Terminal_Connected ( 
   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

Reference

Terminal Object
Terminal Members

Send Feedback