Example

This example creates a log file (Myfile.txt) with a list of each time the backspace key was pressed during a VT terminal session.

Private Sub Session_AfterTerminalKey(ByVal Key As Long)

 Dim keyPressTime As String 'Time key was pressed

 

 'Check to see if the backspace key was pressed

 If Key = rcVtBackArrowKey Then

  'Set the time the keystroke is pressed

  keyPressTime = Time

 

  'Open a file to contain the data

  Open "C:\mypath\myfile.txt" For Append As #1

 

  'Write the time to the file

  Print #1, keyPressTime

 

  'Close the file 

  Close #1

 

 End If

 

End Sub