AfterDisconnect Event (IbmTerminal)
Occurs after InfoConnect disconnects from the host.
This example opens screen history after the session connects and saves it to a file after the session is disconnected.
To run this example, copy this code to the ThisIbmTerminal code window.
Private Sub IbmTerminal_AfterConnect(ByVal sender As Variant)
'When a session connects, open Screen History
ThisIbmTerminal.Productivity.ScreenHistory.ScreenHistoryPanelVisible = True
End Sub
Private Sub IbmTerminal_AfterDisconnect(ByVal sender As Variant)
Dim rcode As ReturnCode
Dim path As String
Dim timeStamp As String
'Get the current time, remove spaces, and replace invalid filename characters.
timeStamp = Replace(Time, " ", "")
timeStamp = Replace(timeStamp, ":", "-")
'Set the file path and name.
path = Environ("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\" & timeStamp & "Screens" & ".rshx"
'If a screen history exists, save it to a file.
If ThisIbmTerminal.Productivity.ScreenHistory.Count > 0 Then
rcode = ThisIbmTerminal.Productivity.ScreenHistory.SaveScreenHistoryFile(path, True)
'Remove the screens from screen history
ThisIbmTerminal.Productivity.ScreenHistory.ClearAllScreens
End If
End Sub