Where can I get statements for changing qtp settings.

[sshukla12]

Hi,
u can refer this code it might help u.

Code:

Sub loadTestSettings(byRef App, byVal strENV)
   If getRunMode() = "DEBUG" Then
              ' setting en mode DEBUG
        App.Test.Settings.Run.OnError = "Dialog"
    Else
     ' setting en mode Run
        App.Test.Settings.Launchers("Web").Active = False
        App.Test.Settings.Launchers("Web").Browser = "IE"
        App.Test.Settings.Launchers("Web").CloseOnExit = False
        App.Test.Settings.Launchers("Windows Applications").Active = False
        App.Test.Settings.Launchers("Windows Applications").Applications.RemoveAll
        App.Test.Settings.Launchers("Windows Applications").RecordOnQTDescendants = True
        App.Test.Settings.Launchers("Windows Applications").RecordOnExplorerDescendants = True
        App.Test.Settings.Launchers("Windows Applications").RecordOnSpecifiedApplications = True
        App.Test.Settings.Run.IterationMode = "rngAll"
        App.Test.Settings.Run.StartIteration = 1
        App.Test.Settings.Run.EndIteration = 1
        App.Test.Settings.Run.ObjectSyncTimeOut = 20000
        App.Test.Settings.Run.DisableSmartIdentification = True
        App.Test.Settings.Run.OnError = "Stop"
        'App.Test.Settings.Run.OnError = "Dialog"
        App.Test.Settings.Resources.DataTablePath = "<Default>"
        App.Test.Settings.Web.BrowserNavigationTimeout = 10000
        App.Test.Settings.Web.ActiveScreenAccess.UserName = ""
        App.Test.Settings.Web.ActiveScreenAccess.Password = ""
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' System Local Monitoring settings
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        'App.Test.Settings.LocalSystemMonitor.Enable = false
    End If
End Sub

Regards,
Sankalp