动态对象库加载

 

代码如下所示：

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")

 

转载于:https://www.cnblogs.com/vanya/p/6742608.html