Share this page
Relevant for: GUI tests and components
The OpenText Functional Testing script below shows a sample script that was generated using the Generate Script button in the Options dialog box. The script was generated with the Web and Java Add-ins loaded.
The LLM settings shown here are available in version 26.3 and later.
Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Options.DisableVORecognition = False
App.Options.AutoGenerateWith = False
App.Options.WithGenerationLevel = 2
App.Options.TimeToActivateWinAfterPoint = 500
App.Options.SaveLoadAndMonitorData = True
App.Options.Run.RunMode = "Normal"
App.Options.Run.ViewResults = True
App.Options.Run.StepExecutionDelay = 0
App.Options.Run.MovieCaptureForTestResults = "Never"
App.Options.Web.AddToPageLoadTime = 10
App.Options.Web.RecordCoordinates = False
App.Options.Web.RecordMouseDownAndUpAsClick = False
App.Options.Web.RecordAllNavigations = False
App.Options.Web.RecordByWinMouseEvents = ""
App.Options.Web.BrowserCleanup = False
App.Options.Web.RunOnlyClick = False
App.Options.Web.RunMouseByEvents = True
App.Options.Web.RunUsingSourceIndex = True
App.Options.Web.EnableBrowserResize = True
App.Options.Web.PageCreationMode = "URL"
App.Options.Web.CreatePageUsingUserData = "Get Post"
App.Options.Web.CreatePageUsingNonUserData = ""
App.Options.Web.CreatePageUsingAdditionalInfo = True
App.Options.Web.FrameCreationMode = "URL"
App.Options.Web.CreateFrameUsingUserData = "Get Post"
App.Options.Web.CreateFrameUsingNonUserData = ""
App.Options.Web.CreateFrameUsingAdditionalInfo = True
App.Options.Java.RecordListByIndex = False
App.Options.Java.RecordComboByIndex = False
App.Options.Java.RecordTreeByIndex = False
App.Options.Java.RecordTabByIndex = False
App.Options.Java.AWTEventModel = "Auto"
App.Options.Java.AnalogTableRecording = False
App.Options.Java.TreePathSeparator = ";"
App.Options.Java.TableExternalEditors = ""
App.Options.Java.TableInternalEditors = ""
App.Options.WindowsApps.AttachedTextRadius = 35
App.Options.WindowsApps.AttachedTextArea = "TopLeft"
App.Options.WindowsApps.ExpandMenuToRetrieveProperties = True
App.Options.WindowsApps.NonUniqueListItemRecordMode = "ByName"
App.Options.WindowsApps.RecordOwnerDrawnButtonAs = "PushButtons"
App.Options.WindowsApps.ForceEnumChildWindows = 0
App.Options.WindowsApps.ClickEditBeforeSetText = 0
App.Options.WindowsApps.VerifyMenuInitEvent = 0
App.Options.TextRecognitionOrder = "APIThenOCR"
App.Options.TextRecognitionBlockType = "Multiple"
App.Options.TextRecognitionLanguages = "English"
App.Options.DisplayKeywordView = True
App.Options.LLM.Model = "MyModelName"
App.Options.LLM.ApiKey = "6a2fd0ec1bc304c9351272784966981f9a066f1b429b8c89fdb448d305872784966981f9a066f1b429b8c89fdb448d305865f93b7f0f2db448d305865f93b7f0f23e7879feb37b2b825102a438b37a07e3b6621c86e48b6073eb836dbc71acb81d7946a069e440e6c0db4036ee8400f59ee11a00badc2b09a16cff9c841af4961824f46818e12916810d21624e57ff94b207073d6bbd00698d2d15b9ad19948e65b48493"
App.Options.LLM.CustomEndpoint = "https://MyCompany.MyAIServer.com/openai/v1"
App.Options.LLM.Provider = "OpenAI"
App.Folders.RemoveAll
App.Folders.Add("C:\Temp\MyTests")
