SendInput Method Example

This example inputs a string to a VT terminal session.

Sub Main()

 Dim Sys As Object, Sess As Object, MyScreen As Object


 Set Sys = CreateObject("EXTRA.System")

 Set Sess = Sys.ActiveSession

' Assumes an open session

 Set MyScreen = Sess.Screen


 ' This will put Hello User! in the upper left of a VT terminal

 VT$ = Chr$(27) + "[H"

 MyScreen.SendInput VT$ + " Hello User! "

End Sub