个人看法,一个不脱离对象库,像Meir Bar-Tal说的主要适用还是在Watir或者Pam30之类;一个不用字典,干脆直接遍历对象库。
而遍历对象库,包括了通用对象库与Current Action 对象库
Dim qtApp,Repository1,Repository2
Set qtApp = CreateObject("QuickTest.Application")
ActionName=Environment("ActionName")
Set Repository1=qtApp.Test.Actions(ActionName).ObjectRepositories
Set Repository2 = CreateObject("Mercury.ObjectRepositoryUtil")
Repository2.Load Environment("TestDir")&"\"&Environment("ActionName")&"\ObjectRepository.bdb"