'************************************************************************************************************************
'Description:
'
'This example starts OpenText Functional Testing, opens a new test, and configures it for recording and running on a Web application. 
'It indicates that the browser used is set by the parameter currently defined in the Record and Run Settings dialog.
'************************************************************************************************************************

Dim qtApp 'As QuickTest.Application ' Declare the application object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create the application object

ret = qtApp.SetActiveAddins(Array("Web","ActiveX"), errDesc) 'Load the Web and ActiveX Add-ins

qtApp.Launch ' Start OpenText Functional Testing
qtApp.New ' Open a new test

' Configure the Web application to use with this test
qtApp.Test.Settings.Launchers("Web").Active = True
qtApp.Test.Settings.Launchers("Web").Browser = "IE"
qtApp.Test.Settings.Launchers("Web").Address = "https://www.advantageonlineshopping.com"
qtApp.Test.Settings.Launchers("Web").CloseOnExit = True
qtApp.Test.Settings.Launchers("Web").RuntimeParameterization = True


' Configure Active Screen access settings
qtApp.Test.Settings.Web.ActiveScreenAccess.UserName = "user1"
qtApp.Test.Settings.Web.ActiveScreenAccess.Password = "mypassword"

' Configure other Web settings
qtApp.Test.Settings.Web.BrowserNavigationTimeout = 60000
qtApp.Visible = True ' Make the OpenText Functional Testing application visible
Set qtApp = Nothing ' Release the Application object