This sample saves all of the text entered into a session by a user to a log file. Only text entered by the user is saved.
If you prefer to run macros in pre-configured sessions instead of creating your own sessions, you can download the VBA Sample Sessions and open the log-user-input.rd3x (IBM) and log-user-input.rdox (Open Systems) files. The download package contains everything you need to run the macros in these files. See Download the VBA Sample Sessions.
To run this sample
- In an Ibm terminal session, Open the Visual Basic Editor and then copy the code into the ThisIbmScreen code window.
- Save the session and then reopen it.
- Enter some data on a terminal session screen and open the log file to check the results. (The .log file has the same name as your session document file and is in the same folder as that file.)
| Log user input |
Copy Code
|
Public buffer As String
'Save each key that is entered into a buffer
Private Function IbmScreen_BeforeSendKeys(ByVal sender As Variant, Keys As String, ByVal row As Long, ByVal column As Long) As Boolean
buffer = buffer & Keys
IbmScreen_BeforeSendKeys = True
End Function
'Before the screen is changed, append the buffer to a text file.
Private Function IbmScreen_BeforeSendControlKey(ByVal sender As Variant, key As Long) As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
'Open a text file to append data
Set ts = fso.OpenTextFile(ThisIbmTerminal.SessionFilePath & ".log", 8, True)
ts.Write buffer & "<Key(" & key & ")>" & vbCrLf
ts.Close
'Clear the buffer
buffer = ""
IbmScreen_BeforeSendControlKey = True
End Function
|
To run this sample
- Open an Open Systems terminal session, open the Visual Basic Editor and then copy the code into the ThisScreen code window.
- Save the session and reopen it.
- Enter some data on a terminal session screen and open the log file to check the results. (The .log file has the same name as your session document file and is in the same folder as that file.)
| Log user input |
Copy Code
|
Dim buffer As String
'Save each key that is entered into a buffer
Private Function Screen_KeysSending(ByVal sender As Variant, Keys As String) As Boolean
buffer = Buffer & Keys
Screen_KeysSending = True
End Function
'Before the screen is changed, append the buffer to a text file.
Private Function Screen_ControlKeySending(ByVal sender As Variant, Key As Attachmate_Reflection_Objects_Emulation_OpenSystems.ControlKeyCode) As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
'Open a text file and append data
Set ts = fso.OpenTextFile(ThisTerminal.SessionFilePath & ".log", 8, True)
ts.Write Buffer & "<Key(" & Key & ")>" & vbCrLf
ts.Close
'Clear the buffer
buffer = ""
Screen_ControlKeySending = True
End Function
|
Concepts
These samples use events to capture and save data users enter during a terminal session.
As the user enters text, the BeforeSendKeys (IBM) or KeysSending (Open Systems) event adds the text entered to a buffer before each key is sent.
When the control key is pressed, the BeforeSendControlKey (IBM) or ControlKeysSending (Open Systems) events are handled to append the text in the buffer to a file. The buffer is cleared before the control key is sent.
