'************************************************************************************************************************ 'Description: ' 'This example opens UFT One and configures its Java Settings. ' 'Assumptions: '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