qtApp.SetActiveAddins Array("Web") 运行问题

skyhen

Dim qtApp 'As QuickTest.Application ' Declare the application object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create the application object
qtApp.SetActiveAddins Array("Web") ' Activate the Web Add-in 出现问题
qtApp.Launch ' Start QuickTest
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 = "http://192.10.5.201/oa/platformData/infoplat/pub/cesOA_59/shouye_503/index.html"
qtApp.Test.Settings.Launchers("Web").CloseOnExit = True
' Configure Active Screen access settings
qtApp.Test.Settings.Web.ActiveScreenAccess.UserName = "XXX"
qtApp.Test.Settings.Web.ActiveScreenAccess.Password = "XXXX"
' Configure other Web settings
qtApp.Test.Settings.Web.BrowserNavigationTimeout = 60000
qtApp.Visible = True ' Make the QuickTest application visible
Set qtApp = Nothing ' Release the Application object

为什么运行脚本的时候,qtApp.SetActiveAddins Array("Web") 这句话出现问题,请各位大大给小第一点指导,小弟先谢谢了

winfood

如果你遇到的错误信息象下面的对话框一样，说明你运行脚本的地方不对。

这段代码取自QTP Automation Object Model Reference，用来演示对QTP自动化时加载Web Addin。
注意QTP自动化的前提，不是在QTP内运行该脚本，而是把脚本保存为一个VBScript文件(扩展名vbs)然后运行该脚本。
QTP程序将被这个VBScript脚本从外部调用。

skyhen

我将此脚本放在了VBS文件中运行,但脚本没有执行下面的这段语句
qtApp.Test.Settings.Launchers("Web").Active = True
qtApp.Test.Settings.Launchers("Web").Browser = "IE"
qtApp.Test.Settings.Launchers("Web").Address = "http://192.10.5.201/oa/platformData/infoplat/pub/cesOA_59/shouye_503/index.html"
qtApp.Test.Settings.Launchers("Web").CloseOnExit = True
' Configure Active Screen access settings
qtApp.Test.Settings.Web.ActiveScreenAccess.UserName = "XXX"
qtApp.Test.Settings.Web.ActiveScreenAccess.Password = "XXXX"
' Configure other Web settings
qtApp.Test.Settings.Web.BrowserNavigationTimeout = 60000
qtApp.Visible = True ' Make the QuickTest application visible
Set qtApp = Nothing ' Release the Application object

请问winfood 这是怎么回事啊?????

winfood

原帖由 skyhen 于 2007-6-29 00:04 发表
我将此脚本放在了VBS文件中运行,但脚本没有执行下面的这段语句
qtApp.Test.Settings.Launchers("Web").Active = True
qtApp.Test.Settings.Launchers("Web").Browser = "IE"
qtApp.Test.Settings.Launcher ...

刚刚试了一下，这段脚本没有任何问题啊。最好详细说一下你的操作步骤以及遇到的错误信息，最好有个截图什么的，这样容易说清楚。

BTW，我的操作步骤是：
用Notepad把这段脚本保存成Test.vbs文件；
找到并鼠标双击执行这个脚本；