Configure Java Settings for Device Replay
Source code
'This example opens UFT One and configures its Java Settings.
'There is no unsaved test currently open in UFT One.
'For more information, see the example for the Test.SaveAs method.

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.SetActiveAddins Array("Java") ' Load the Java Add-in
qtApp.Launch ' Start UFT One
qtApp.Visible = True ' Make the UFT One application visible

' Configure the Java Settings

' Instruct UFT One to use the Java API for setting JavaEdit objects
qtApp.Test.Settings.Java.EditSet.KeyPressed = False
qtApp.Test.Settings.Java.EditSet.KeyTyped = False
qtApp.Test.Settings.Java.EditSet.KeyReleased = False
qtApp.Test.Settings.Java.EditSet.InputMethod = False
qtApp.Test.Settings.Java.EditSet.FocusLost = False
qtApp.Test.Settings.Java.EditSet.JavaAPI = True

' Instruct UFT One to ignore only the '\r' (carriage return) character.
qtApp.Test.Settings.Java.EditSet.JavaAPICharactersToExclude = "\r"

' Instruct UFT One to perform Drag&Drop operations only using device replay
qtApp.Test.Settings.Java.DeviceReplay.Click = False
qtApp.Test.Settings.Java.DeviceReplay.DoubleClick = False
qtApp.Test.Settings.Java.DeviceReplay.Type = False
qtApp.Test.Settings.Java.DeviceReplay.DragDrop = True

Set qtApp = Nothing ' Release the Application object