Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
' Maximize the QuickTest window
App.WindowState = "Maximized"
' Display the Expert View
App.ActivateView "ExpertView"
'Open a new or existing test in editable mode
App.open "C:/Program Files/HP/QuickTest Professional/Tests/Test1", False
App.open "C:/Program Files/HP/QuickTest Professional/Tests/ExistingTest", False
QTP Tips 3 - Run QTP via VBScript
最新推荐文章于 2022-02-25 21:57:21 发布