Use Connection Macros

Using macros to establish host connections can be quite useful, particularly if you connect to multiple hosts, or use different connection settings.

If you use OpenSystems hosts, you may also want to use macros to configure your connection settings, especially if you use automation to create InfoConnect session documents. (If you save the correct host connection information in the session document that contains your macros, you don't need to change connection settings programmatically.)

When using macros to configure settings, use these best practices:

  • Identify and change the connection type using the OpenSystems Terminal object's ConnectionType property. To use the best network connection possible, specify a connection type of BestNetwork.
  • Use a ConnectionSettings object (for example, ConnectionSettingsTelnet) to configure the individual settings for the connection type.
  • Set only those properties you need to change. Properties you don't change are set to default values.       
Note: If you assign values that are invalid to the properties of the ConnectionSettings object, or you try to set a property that can't be changed when the connection is open, errors can result. Include an error-handling routine in your macro to trap and deal with these errors (for example, by displaying a message box). You can retrieve the error text using the ConnectionErrorMessage property.

 

This sample retrieves the type of Open Systems connection that is used and displays it in a message box.

This sample applies only to Open Systems terminals.

To run this sample

  1. In an Open Systems session, open the Visual Basic Editor and then enter the sample code in the ThisTerminal code window.
    Running a Connection Macro
    Copy Code
    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)
        Dim how As ConnectionTypeOption
       
        Dim msg As String
        how = ThisTerminal.connectionType
     
        If how = ConnectionTypeOption.ConnectionTypeOption_None Then
            msg = "There is no connection currently configured."
        End If
        If how = ConnectionTypeOption.ConnectionTypeOption_BestNetwork Then
            msg = "The current Connection Type is" & "BestNetwork"
        End If
        If how = ConnectionTypeOption.ConnectionTypeOption_COMSerialPort Then
            msg = "The current Connection Type is " & "COMSerialPort"
        End If
        If how = ConnectionTypeOption.ConnectionTypeOption_Modem Then
            msg = "The current Connection Type is " & "Modem"
        End If
        If how = ConnectionTypeOption.ConnectionTypeOption_Rlogin Then
            msg = "The current Connection Type is " & "RLogin"
        End If
        If how = ConnectionTypeOption.ConnectionTypeOption_SecureShell Then
            msg = "The current Connection Type is " & "SecureShell"
        End If
        If how = ConnectionTypeOption.ConnectionTypeOption_Telnet Then
            msg = "The current Connection Type is " & "Telnet"
        End If
        If how = ConnectionTypeOption.ConnectionTypeOption_VT_MGR Then
            msg = "The current Connection Type is " & "VT_MGR"
        End If
        MsgBox (msg)
    End Sub
    
  2. Disconnect the session and then reconnect to display the connection type.
See Also