Dim appObj
Set appObj = CreateObject("QuickTest.Application")
appObj.Options.Run.RunMode = "Normal" 'Fast,Normal
Set appObj=nothing
'设置步骤的间隔
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Options.Run.StepExecutionDelay = 10 '(milliseconds)
Set qtApp = Nothing