请帮忙。qtp automation object model reference

lily_mu75

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://newtours.mercuryinteractive.com "
qtApp.Test.Settings.Launchers("Web").CloseOnExit = 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.Test.Settings.Web.NextPageIfObjNotFound = True

qtApp.Visible = True ' Make the QuickTest application visible
Set qtApp = Nothing ' Release the Application object


运行过程中第4行和第6行出错，请帮助解决一下，要先运行哪个程序呢？谢谢大家帮助，我实在搞不定了。这是QuickTest Automation Object Model Reference中的一个例子，出错报告如下：（第一张图片对应于第4行qtApp.SetActiveAddins Array("Web") ' Activate the Web Add-in，第二张图片对应第6行qtApp.New ' Open a new test）
欢迎来我的博客：http://blog.sina.com.cn/u/1255515404

[ 本帖最后由 lily_mu75 于 2006-11-24 12:00 编辑 ]

yangkinki

你把这个保存，放到test batch runner里面，然后关闭QTP程序，在test batch runner 中运行。（首先在QTP中的tools > option >run 中选择上allow other mercury products 。。。” ， 楼主找的那些例子是这样用的，呵呵

lily_mu75

谢谢！但是我在Qtp选项中找不到test batch runner ，也就是说没法激活这个对话框test batch runner，谢版主，再麻烦告知一下。多谢！多谢！难道是我装的程序有问题？

[ 本帖最后由 lily_mu75 于 2006-11-24 12:43 编辑 ]

lily_mu75

唉，我好笨，找到了test batch runner。谢谢。我按照你讲的方法去试试。

lily_mu75

非常感谢！问题解决了！真的太感谢了！sdlkfj5

lily_mu75

呵呵，在test batch runner 运行了，可一查看结果，还是一样的出错，看来，问题不在这。

lily_mu75

不行啊，版主，你说的那个报告结果是一样的错，请大家帮助！
请问需要开启的是那个应用程序啊？

原帖由 lily_mu75 于 2006-11-24 11:29 发表
Dim qtApp 'As QuickTest.Application ' Declare the application object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create the application object

qtApp.SetActiveAddins ...

yangkinki

你把这些代码放到vb中去运行，看一下会有什么结果

lily_mu75

不行啊，问题是不知道是要哪个程序运行啊？我想应该是web add-in ，可是在启动qtp时已经加载了，还有这个插件在哪可以手动启动啊？说不定启动了就可以了。

lily_mu75

非常感谢了，你说的方法实际上是可行的，后来我在word中宏中来运行，是可以的。实际上根本的原因我并没有真正理解qtp automation object model reference是给谁用的，现在才明白它是给第三方软件提供测试接口用的。我目前还用不到这些，了解一下也就够了。sdlkfj6