Select the Emulator to Test

Source code

Copy code
'************************************************************************************************************************
'Description:
'This example opens UFT One and configures the Terminal Emulator options.
'Assumptions:
'UFT is not open.
'************************************************************************************************************************

Dim qtApp 'As QuickTest.Application 'Declare the Application object variable
Dim qtTest 'As QuickTest.Test 'Declare a Test object variable
Dim qtTeOptions 'As QuickTest.TeOptions 'Declare the TE Options object variable

Set qtApp = CreateObject("QuickTest.Application") 'Create the Application object
qtApp.SetActiveAddins Array("Terminal Emulators") 'Activate the Terminal Emulator Add-in
qtApp.Launch 'Start UFT One
qtApp.Visible = True 'Make the UFT One application visible
qtApp.Open "C:\Tests\Test1", False

Set qtTeOptions = qtApp.Options.TE 'Return the TE Options object

'Configure the Terminal Emulator options

'Set global Terminal Emulator options (apply to all emulators)

qtTeOptions.ScreenTitleRow = 1 'Set the screen title location
qtTeOptions.ScreenTitleCol = 1
qtTeOptions.ScreenTitleLength = 30
qtTeOptions.AutoAdvance = False 'Specifies that the emulator does not support auto-advance fields
qtTeOptions.AutoSyncKeys = "13" 'Record a Sync step each time the Enter key is pressed while recording the test
qtTeOptions.RecordMenusAndPopups = True 'Enable recording of emulator popups and menus
qtTeOptions.RecordCursorPosition = True 'Record cursor position steps
qtTeOptions.UsePropertyPattern = True ' Use default property pattern file
qtTeOptions.PropertyPatternsFile = "C:\Program Files (x86)\OpenText\UFT One\Dat\PropertyPatternConfigTE.xml" 'The path varies depending on the version of UFT One

'Specify the current emulator
qtTeOptions.CurrentEmulator = "Host On-Demand 8.0" 'Set the current emulator as Host On-Demand 8.0

'Set options that are specific to the current emulator
qtTeOptions.Protocol = "autodetect" 'Let UFT One detect the session protocol
qtTeOptions.BlankLines = 0 'No blank lines at the bottom of the emulator window.
qtTeOptions.CodePage = 0 'Use the default code page conversion
qtTeOptions.HllapiDllName = "C:\Program Files\IBM\EHLLAPI\pcshll32.dll" 'Specify the HLLAPI dll to use
qtTeOptions.HllapiProcName = "hllapi" 'Specify the HLLAPI function to use
qtTeOptions.VerifyHllapiDllPath = True 'Display a warning message if the HLLAPI dll is not found
qtTeOptions.ScreenLabelUseAllChars = True 'Use protected and unprotected fields to identify the screen label.
qtTeOptions.WindowTitlePrefix = "MyTerminal" 'Identify the terminal window based on its window title prefix.
qtTeOptions.TrailingMode = True 'Trim white characters when recording in context-sensitive mode
qtTeOptions.TrailingFieldLength = 5 'If the field begins with more than five black characters.
qtTeOptions.BeepOnSync = False 'Do not beep after each Sync step.
qtTeOptions.UseKeyEvent "@R", "17;52" 'Replay the TE_RESET key using the CTRL+R keyboard event.
qtTeOptions.SyncTime = 200 'Wait 200 milliseconds before checking the emulator status

'Clean up
Set qtTeOptions = Nothing 'Release the TE Options object
Set qtApp = Nothing ' Release the Application object