51Testing软件测试论坛

标题: vbs中 load ObjectRepositories问题 [打印本页]

作者: liucongying 时间: 2008-1-31 17:54
标题: vbs中 load ObjectRepositories问题
'Description:

'

'This example opens a test, configures an action's object repositories collection

'and saves the test.

'

'Assumptions:

'There is no unsaved test currently open in QuickTest.

'For more information, see the example for the Test.SaveAs method.

'************************************************************************************************************************

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable

Dim qtRepositories 'As QuickTest.ObjectRepositories ' Declare an action's object repositories collection variable

Dim lngPosition

' Open QuickTest

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object

qtApp.Launch ' Launch QuickTest

qtApp.Visible = True ' Set QuickTest to be visible

' Open a test and get the "Login" action's object repositories collection

qtApp.Open "C:\Tests\Test1", False, False ' Open a test

Set qtRepositories = qtApp.Test.Actions("Login").ObjectRepositories ' Get the object repositories collection object of the "Login" action

' Add MainApp.tsr if it's not already in the collection

If qtRepositories.Find("C:\MainApp.tsr") = -1 Then ' If the repository cannot be found in the collection

qtRepositories.Add "C:\MainApp.tsr", 1 ' Add the repository to the collection

End If

为什么我执行到 Set qtRepositories = qtApp.Test.Actions("Login").ObjectRepositories 这句话的时候报错说对象不支持此属性或方法 “Test.Actions”why???????????????????
当然有 Login这个action德有人试试吗能成功吗

作者: gy21st 时间: 2008-1-31 19:47
单步调试一下吧，我直接把你的代码拷过来都没有问题。

[ 本帖最后由 gy21st 于 2008-1-31 19:59 编辑 ]

作者: liucongying 时间: 2008-2-1 10:28
标题: 回复 2# 的帖子
不会把，我还是老问题。。。难道我8。2没有卸载干净？

作者: gy21st 时间: 2008-2-1 10:38
标题: 回复 3# 的帖子
现在什么版本呢？看看帮助支持不支持这个方法。

作者: liucongying 时间: 2008-2-1 10:47
标题: 回复 4# 的帖子
9。2的版本我发现就是 action的对象的方法不支持其它都支持的。。。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)