动态对象库加载

 

代码如下所示：

Repositories Collection.Add "D：QTP自动化测试技术领航link.tsr"

　　这句代码写在脚本中，一旦被执行到以后会触发加载对象库文件使其成为副对象库的事件，效果和手工添加副对象库完全一致，只是没有了选择Action并加载的步骤，因为没必要，把这句代码写在Action1中，则说明加载到Action1中；添加到Action2中，则代码加载到Action2中，依此类推。通常，把3大实时动态加载的代码写在脚本的最前面几行，另外需要注意的是，3大实时动态加载的生命周期都很短，脚本执行结束它们也就结束。下面提供一个用VBScript后台语言动态调用副对象库的函数供读者参考：

PublicFunction AddObjectRepository(objectrepositoryname) 

     Dim Pos

     '判断：如果已存在".tsr"后缀名则直接使用该文件路径，如果不存在则添加后缀名

     If　instr(objectrepositoryname,".tsr") > 0 Then

     RepPath = objectrepositoryname

     else

     RepPath = objectrepositoryname & ".tsr"

     End If

     '初始化：如果存在残留的副对象库则删除

     RepositoriesCollection.RemoveAll()

     '添加副对象库

     RepositoriesCollection.Add(RepPath)

     '添加后的验证：查找副对象库并将值返回给变量，如果存在返回1

     Pos = RepositoriesCollection.Find(RepPath) 

     MsgBox Pos

     '返回的值如果不等于1代表不存在则报错

     If Pos <> 1 Then

     MsgBox "找不到副对象库！"

     End If

End Function

'调用该函数

Call AddObjectRepository("D：QTP自动化测试技术领航link.tsr")